?? help-function.txt
字號:
for Y := 0 to StringGrid1.RowCount do
begin
{ Write out the length of each string, followed by the string itself. }
StringLen := Length(StringGrid1.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle,
StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);//?????????/
end;
end;
FileClose(FileHandle);
end;
end;
##FileExists, RenameFile, FileCreate, FileWrite, FileClose, ExtractFileName Example
-----------------------------------------------------------------------------
FileSeek 移動(dòng)檔案指標(biāo)位置
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FileSeek(Handle, Offset, Origin: Integer): Integer;
說明 Origin=0讀/寫指標(biāo)由檔案開頭算起.
Origin=1讀/寫指標(biāo)由目前位置算起.
Origin=2讀/寫指標(biāo)移動(dòng)到檔案結(jié)束處.
**** 功能與Dos Int 21h 插斷 42h 的功能相同.
失敗傳回-1.
范例 procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle : Integer;
FileName : String;
Buffer : PChar;
S : String;
ReadBytes : Integer;
begin
FileName:='c:\delphi_test\abc.ttt';
S:='1234567890';
if FileExists(FileName) then
FileHandle := FileOpen(FileName, fmOpenReadWrite)
else
FileHandle := FileCreate(FileName);
if FileHandle < 0 then
Begin
MessageDlg('開檔失敗', mtInformation, [mbOk], 0);
Exit;
End;
GetMem(Buffer, 100);
try
StrPCopy(Buffer, S);
FileWrite(FileHandle,Buffer^,10);
FileSeek(FileHandle,4,0);
ReadBytes:=FileRead(FileHandle, Buffer^, 100);
Buffer[ReadBytes]:=#0;
Label1.Caption:=IntToStr(ReadBytes)+' '+
StrPas(Buffer);
finally
FreeMem(Buffer);
end;
FileClose(FileHandle);
end;
結(jié)果 存檔後abc.ttt共有1234567890等十個(gè)Bytes.
從第五位元開始讀取,共讀取六個(gè)位元.
567890
(位移是從0開始算起)
procedure TForm1.Button1Click(Sender: TObject);
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead = FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);
for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer[i];
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
end;
finally
FreeMem(Buffer);
end;
end;
end;
##FileOpen, FileSeek, FileRead Example
-----------------------------------------------------------------------------
FileGetAttr 檔案屬性
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FileGetAttr(const FileName: string): Integer;
說明 faReadOnly = $00000001;
faHidden = $00000002;
faSysFile = $00000004;
faVolumeID = $00000008;
faDirectory = $00000010;
faArchive = $00000020;
faAnyFile = $0000003F;
范例 procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
S:=IntToStr(FileGetAttr('c:\delphi_d\delphi_help1.txt'));
Label1.Caption := S;
end;
-----------------------------------------------------------------------------
FileSetAttr 設(shè)定檔案屬性
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FileSetAttr(const FileName: string; Attr: Integer):
Integer;
說明 設(shè)定成功傳回0
-----------------------------------------------------------------------------
FindClose 結(jié)束FindFirst/FindNext
-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then
FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then
FileAttrs := FileAttrs + faAnyFile;
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
begin
with StringGrid1 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
while FindNext(sr) = 0 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1, RowCount-1] := sr.Name;
Cells[2, RowCount-1] := IntToStr(sr.Size);
end;
end;
FindClose(sr);
end;
end;
end;
##FindFirst, FindNext, FindClose Example
-----------------------------------------------------------------------------
FindFirst 尋找第一個(gè)符合的檔案.
-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then
FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then
FileAttrs := FileAttrs + faAnyFile;
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
begin
with StringGrid1 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
while FindNext(sr) = 0 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1, RowCount-1] := sr.Name;
Cells[2, RowCount-1] := IntToStr(sr.Size);
end;
end;
FindClose(sr);
end;
end;
end;
##FindFirst, FindNext, FindClose Example
-----------------------------------------------------------------------------
FindNext 尋找下一個(gè)符合的檔案.
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 procedure FindClose(var F: TSearchRec);
函數(shù)原型 function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec): Integer;
函數(shù)原型 function FindNext(var F: TSearchRec): Integer;
說明 成功傳回0
范例 var
SRec: TSearchRec;
procedure TForm1.SearchClick(Sender: TObject);
begin
FindFirst('c:\delphi\bin\*.*', faAnyFile, SRec);
Label1.Caption := SRec.Name + ' is ' + IntToStr(SRec.Size) +
' bytes in size';
end;
procedure TForm1.AgainClick(Sender: TObject);
begin
FindNext(SRec);
Label1.Caption := SRec.Name + ' is ' + IntToStr(SRec.Size) +
' bytes in size';
end;
procedure TForm1.FormClose(Sender: TObject);
begin
FindClose(SRec);
end
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
xcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
============================================
Floating-point conversion routines 浮點(diǎn)數(shù)轉(zhuǎn)換函式
============================================
FloatToDecimal 將浮點(diǎn)數(shù)轉(zhuǎn)換為十進(jìn)位數(shù).
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 procedure FloatToDecimal(var Result: TFloatRec; const Value;
ValueType: TFloatValue; Precision, Decimals: Integer);
-----------------------------------------------------------------------------
FloatToStrF 將浮點(diǎn)數(shù)轉(zhuǎn)換為格式化字串.
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FloatToStrF(Value: Extended; Format: TFloatFormat;
Precision,Digits: Integer): string;
-----------------------------------------------------------------------------
FloatToStr 將浮點(diǎn)數(shù)轉(zhuǎn)換為字串.
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FloatToStr(Value: Extended): string;
-----------------------------------------------------------------------------
FloatToText 將浮點(diǎn)數(shù)轉(zhuǎn)換為格式化十進(jìn)位.
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FloatToText(Buffer: PChar; const Value; ValueType:
TFloatValue;Format: TFloatFormat; Precision, Digits:
Integer): Integer;
-----------------------------------------------------------------------------
FloatToTextFmt 將浮點(diǎn)數(shù)轉(zhuǎn)換為格式化十進(jìn)位.
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FloatToTextFmt(Buffer: PChar; const Value;
ValueType: TFloatValue; Format: PChar): Integer;
-----------------------------------------------------------------------------
FormatFloat 將浮點(diǎn)數(shù)轉(zhuǎn)換為格式化字串.
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function FormatFloat(const Format: string; Value: Extended):
string;
-----------------------------------------------------------------------------
StrToFloat 將字串轉(zhuǎn)換為浮點(diǎn)數(shù).
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function StrToFloat(const S: string): Extended;
范例 procedure TForm1.Button1Click(Sender: TObject);
var
Value:Double;
S:String;
begin
S:=' 1234.56 ';
Value:=StrToFloat(S);
Label1.Caption:=Format('轉(zhuǎn)換為 [%9.3f]',[Value]);
end;
注意 若S字串含有非數(shù)字字元,會(huì)產(chǎn)生錯(cuò)誤訊號.
-----------------------------------------------------------------------------
TextToFloat 將 null-terminated 字串轉(zhuǎn)換為浮點(diǎn)數(shù).
-----------------------------------------------------------------------------
Unit SysUtils
函數(shù)原型 function TextToFloat(Buffer: PChar; var Value; ValueType:
TFloatValue): Boolean;
===========================================
Flow-control routines 流程控制常式
===========================================
Break 從 for, while, or repeat 終止跳出.
-----------------------------------------------------------------------------
Unit System
函數(shù)原型 procedure Break;
范例 var
S: string;
begin
while True do
begin
ReadLn(S);
try
if S = '' then Break;
WriteLn(S);
finally
{ do something for all cases }
end;
end;
end;
-----------------------------------------------------------------------------
Continue 從 for, while, or repeat 繼續(xù)執(zhí)行.
-----------------------------------------------------------------------------
Unit System
函數(shù)原型 procedure Continue;
范例 var
F: File;
i: integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1) do
begin
try
if FileListBox1.Selected[i] then
begin
if not FileExists(FileListBox1.Items.Strings[i]) then
begin
MessageDlg('File: ' +FileListBox1.Items.Strings[i]
+ ' not found', mtError, [mbOk], 0);
Continue;
end;
AssignFile(F, FileListBox1.Items.Strings[i]);
Reset(F, 1);
ListBox1.Items.Add(IntToStr(FileSize(F)));
CloseFile(F);
end;
finally
{ do something here }
end;
end;
end;
范例
var
F: File;
i: Integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1) do begin
try
if FileListBox1.Selected[i] then
begin
if not FileExists(FileListBox1.Items.Strings[i]) then begin
MessageDlg('File: ' + FileListBox1.Items.Strings[i] +
' not found', mtError, [mbOk], 0);
Continue;
end;
AssignFile(F, FileListBox1.Items.Strings[i]);
Reset(F, 1);
ListBox1.Items.Add(IntToStr(FileSize(F)));
CloseFile(F);
end;
finally
{ do something here }
end;
end;
end;
## Continue, Items, Selected Example
-----------------------------------------------------------------------------
Exit 直接離開一個(gè)程序.
-----------------------------------------------------------------------------
Unit System
函數(shù)原型 procedure Exit;
-----------------------------------------------------------------------------
Halt 結(jié)束程式返回作業(yè)系統(tǒng).
-----------------------------------------------------------------------------
Unit System
函數(shù)原型 procedure Halt [ ( Exitcode: Integer) ];
范例 begin
if 1 = 1 then
begin
if 2 = 2 then
begin
if 3 = 3 then
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -