funexam.dat

不用说了！看看就明白了！

==========

==========
TryStrToCurr
///////Begin TryStrToCurr
procedure TForm1.Button1Click(Sender: TObject);
var
C: Currency;
begin
CheckBox1.Checked := TryStrToCurr(Edit1.Text, C);
Edit2.Text := FormatCurr('', C);
end;
///////End TryStrToCurr

==========

==========
TextToFloat
///////Begin TextToFloat
procedure TForm1.Button1Click(Sender: TObject);
var
E: Extended;
begin
CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,
fvExtended);
Edit2.Text := FormatFloat('', E);
end;
///////End TextToFloat

==========

==========
FloatToDecimal

==========

==========
DateTimeToTimeStamp

==========

==========
TimeStampToDateTime

==========

==========
MSecsToTimeStamp

==========

==========
TimeStampToMSecs

==========

==========
EncodeDate
Edit1.Text := DateToStr(EncodeDate(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value));

==========

==========
EncodeTime
Edit1.Text := TimeToStr(EncodeTime(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value, SpinEdit4.Value));

==========

==========
TryEncodeDate
///////Begin TryEncodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
vDate: TDate;
begin
CheckBox1.Checked := TryEncodeDate(SpinEdit1.Value, SpinEdit2.Value,
SpinEdit3.Value, TDateTime(vDate));
Edit1.Text := DateToStr(vDate);
end;
///////End TryEncodeDate

==========

==========
TryEncodeTime
///////Begin TryEncodeTime
procedure TForm1.Button1Click(Sender: TObject);
var
vTime: TTime;
begin
CheckBox1.Checked := TryEncodeTime(SpinEdit1.Value, SpinEdit2.Value,
SpinEdit3.Value, SpinEdit3.Value, TDateTime(vTime));
Edit1.Text := TimeToStr(vTime);
end;
///////End TryEncodeTime

==========

==========
DecodeDate
///////Begin DecodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
SpinEdit1.Value := Year;
SpinEdit2.Value := Month;
SpinEdit3.Value := Day;
end;
///////End DecodeDate

==========

==========
DecodeDateFully
///////Begin DecodeDateFully
procedure TForm1.Button1Click(Sender: TObject);
var
Year, Month, Day, DOW: Word;
begin
DecodeDateFully(Date, Year, Month, Day, DOW);
SpinEdit1.Value := Year;
SpinEdit2.Value := Month;
SpinEdit3.Value := Day;
SpinEdit4.Value := DOW;
end;
///////End DecodeDateFully

==========

==========
InternalDecodeDate
InternalDecodeDate(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 function SysUtils.DecodeDateFully

==========

==========
DecodeTime
///////Begin DecodeTime
procedure TForm1.Button1Click(Sender: TObject);
var
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(Time, Hour, Min, Sec, MSec);
SpinEdit1.Value := Hour;
SpinEdit2.Value := Min;
SpinEdit3.Value := Sec;
SpinEdit4.Value := MSec;
end;
///////End DecodeTime

==========

==========
DateTimeToSystemTime
DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils.pas
功能 返回日期时间类型转换成系统时间类型

==========

==========
SystemTimeToDateTime

==========

==========
DayOfWeek
说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)
参考 function SysUtils.DateTimeToTimeStamp
例子 
///////Begin DayOfWeek
procedure TForm1.Button1Click(Sender: TObject);
const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
Edit1.Text := cWeekCn[DayOfWeek(Now)];
end;
///////End DayOfWeek

==========

==========
Date
Edit1.Text := DateToStr(Date);

==========

==========
Time
Edit1.Text := TimeToStr(Time);

==========

==========
Now
Edit1.Text := DateTimeToStr(Now);

==========

==========
CurrentYear
SpinEdit1.Value := CurrentYear;

==========

==========
IncMonth
DateTimePicker1.Date := IncMonth(Date, SpinEdit1.Value);

==========

==========
IncAMonth
///////Begin IncAMonth
procedure TForm1.Button1Click(Sender: TObject);
var
vYear, vMonth, vDay: Word;
begin
DecodeDate(Date, vYear, vMonth, vDay);
IncAMonth(vYear, vMonth, vDay, SpinEdit1.Value);
DateTimePicker1.Date := EncodeDate(vYear, vMonth, vDay);
end;
///////End IncAMonth

==========

==========
ReplaceTime
///////Begin ReplaceTime
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
vDateTime := Now;
ReplaceTime(vDateTime, DateTimePicker1.Time);
Edit1.Text := DateTimeToStr(vDateTime);
end;
///////End ReplaceTime

==========

==========
ReplaceDate
///////Begin ReplaceDate
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
vDateTime := Now;
ReplaceDate(vDateTime, DateTimePicker1.Date);
Edit1.Text := DateTimeToStr(vDateTime);
end;
///////End ReplaceDate

==========

==========
IsLeapYear
说明 (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))
参考 <NULL>
例子 CheckBox1.Checked := IsLeapYear(SpinEdit1.Value);

==========

==========
DateToStr
Edit1.Text := DateToStr(Date);

==========

==========
TimeToStr
Edit1.Text := TimeToStr(Date);

==========

==========
DateTimeToStr
Edit1.Text := DateTimeToStr(Now);

==========

==========
StrToDate
DateTimePicker1.Date := StrToDate(Edit1.Text);

==========

==========
StrToDateDef
DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);

==========

==========
TryStrToDate
///////Begin TryStrToDate
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime);
DateTimePicker1.Date := vDateTime;
end;
///////End TryStrToDate

==========

==========
StrToTime
DateTimePicker1.Time := StrToTime(Edit1.Text);

==========

==========
StrToTimeDef
DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);

==========

==========
TryStrToTime
///////Begin TryStrToTime
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);
DateTimePicker1.Time := vDateTime;
end;
///////End TryStrToTime

==========

==========
StrToDateTime
Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text));

==========

==========
StrToDateTimeDef
Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now));

==========

==========
TryStrToDateTime
///////Begin TryStrToDateTime
procedure TForm1.Button1Click(Sender: TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);
Edit2.Text := DateTimeToStr(vDateTime);
end;
///////End TryStrToDateTime

==========

==========
FormatDateTime
Edit2.Text := FormatDateTime(Edit1.Text, Now);

==========

==========
DateTimeToString
<参见FormatDateTime>

==========

==========
FloatToDateTime
Edit2.Text := DateTimeToStr(FloatToDateTime(StrToFloatDef(Edit1.Text, 0)));

==========

==========
SysErrorMessage
Edit1.Text := SysErrorMessage(SpinEdit1.Value);

==========

==========
GetLocaleStr
Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<NULL>');

==========

==========
GetLocaleChar
Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0);

==========

==========
GetFormatSettings
///////Begin GetFormatSettings
procedure TForm1.Button1Click(Sender: TObject);
begin
ShortDateFormat := 'YYYY"年"MM"月"DD"日"';
ShowMessage(DateToStr(Date));
GetFormatSettings;
ShowMessage(DateToStr(Date));
end;
///////End GetFormatSettings

==========

==========
Sleep

Sleep(3000);

==========

==========
GetModuleName
///////Begin GetModuleName
procedure TForm1.Button1Click(Sender: TObject);
var
vHandle: THandle;
begin
vHandle := LoadLibrary(PChar(Edit1.Text));
Caption := GetModuleName(vHandle);
FreeLibrary(vHandle);
end;
///////End GetModuleName

==========

==========
ShowException
ShowException(Self, Self);

==========

==========
Abort
Abort;

==========

==========
OutOfMemoryError
OutOfMemoryError;
==========

==========
Beep
Beep;

==========

==========
ByteType
SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value));

==========

==========
StrByteType
SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), SpinEdit2.Value));

==========

==========
ByteToCharLen
SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value);

==========

==========
CharToByteLen
SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value);

==========

==========
ByteToCharIndex
SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value);

==========

==========
CharToByteIndex
SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value);

==========

==========
StrCharLength
SpinEdit1.Value := StrCharLength(PChar(Edit1.Text));

==========

==========
StrNextChar
Edit2.Text := StrNextChar(PChar(Edit1.Text));

==========

==========
CharLength
SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value);

==========

==========
NextCharIndex
SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value);

==========

==========
IsPathDelimiter
CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value);

==========

==========
IsDelimiter
CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SpinEdit1
==========

==========
LastDelimiter
SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);

==========

==========
AnsiCompareFileName
SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text);

==========

==========
SameFileName
CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text);

==========

==========
AnsiPos
SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text);

==========

==========
AnsiStrPos
Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text));

==========

==========
AnsiStrRScan
Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');

==========

==========
AnsiStrScan
Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');

==========

==========
StringReplace
///////Begin StringReplace
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Values['[]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []);
Memo1.Lines.Values['[rfReplaceAll]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]);
Memo1.Lines.Values['[rfIgnoreCase]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]);
Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, rfIgnoreCase]);
end;
///////End StringReplace

==========

==========
WrapText
说明 Result := WrapText(Line, sLineBreak, [' ', '-', #9], MaxCol);
参考 function SysUtils.CharLength;function SysUtils.CompareText
例子 Memo1.Text := WrapText(Memo2.Text, SpinEdit1.Value); 

==========

==========
FindCmdLineSwitch
CheckBox1.Checked := FindCmdLineSwitch(Edit1.Text);

==========

==========
FreeAndNil
///////Begin FreeAndNil
procedure TForm1.Button1Click(Sender: TObject);
var
Temp: TObject;
begin
Temp := TObject.Create;
Temp.Free;
ShowMessage(Format('%p', [Pointer(Temp)]));

Temp := TObject.Create;
FreeAndNil(Temp);
ShowMessage(Format('%p', [Pointer(Temp)]));
end;
///////End FreeAndNil

==========

==========
Supports

==========

==========
CreateGUID
///////Begin CreateGUID
procedure TForm1.Button1Click(Sender: TObject);
var
vGUID: TGUID;
begin
CreateGUID(vGUID);
Edit1.Text := GUIDToString(vGUID);
end;
///////End CreateGUID

==========

==========
StringToGUID
Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));

==========

==========
GUIDToString
Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));

==========

==========
IsEqualGUID
CheckBox1.Checked := IsEqualGUID(StringToGUID(Edit1.Text), StringToGUID(Edit2.Text));

==========

==========
RaiseLastOSError
RaiseLastOSError;
==========

==========
RaiseLastWin32Error
 RaiseLastWin32Error;

==========

==========
Win32Check
CheckBox2.Checked := Win32Check(CheckBox1.Checked);

==========

==========
AddTerminateProc
///////Begin AddTerminateProc
function NewTerminateProc: Boolean;
begin
Result := True;
ShowMessage('NewTerminateProc');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddTerminateProc(NewTerminateProc);
end;
///////End AddTerminateProc

==========

==========
CallTerminateProcs
CallTerminateProcs;

==========

==========
SafeLoadLibrary

==========