EOF (< >): Boolean True, .
EOLn (< >): Boolean True, .
SeekEOF (< >):Boolean EOF, , EOLn. .
SeekEOLn (< >): Boolean EOLn, .
:
ChDir (Path: String ) , th , .
CreateDir (Dir: String): Boolean , Dir , . True, , Fls .
DeleteFile (FileName: String): Boolean , FileName, . FileName . , True, False.
DiskFree (Drive: Byte): Int64 Drive. Drive : 0 , 1 :, 2 : ..
FileExists (FileName: String): Boolean True, FileName , False .
FileSearch (Name, DirList: String): String Name , DirList. . , , , , . .
GetCurrentDir: String , .
MkDir (Path: String) , Path , .
RemoveDir (Dir: String): Boolean , Dir. , True, False.
RenameFile (OldName, NewName: String): Boolean OldName NewName. , True, False.
SetCurrentDir (Dir: String) , Dir. , rue, False.
, , Dialogs :
TOpenDialog Windows- .
|
|
:
- FileName: string ;
- InitialDir: string , ;
- Title: string ;
- Options , .
Execute: Boolean, . True, Open. Cancel, False.
TSaveDialog Windows- . FileName, InitialDir, Title, Options Execute .
( FileName), (Append, Rewrite, Reset).
TStrings. , . , , . Object Pascal.
LoadFromFile (FileName: string) FileName -, . , RichEdit1.Lines.LoadFromFile(FileName);
SaveToFile (FileName: string) () FileName -, .
, ListBox1.Items.SaveToFile(FileName);
ListBox1 Button1.
procedure TForm1.Button1Click(Sender: TObject);
Begin
OpenDialog1.InitialDir:=GetCurrentDir;
{ - }
OpenDialog1.Title:='My Open-file dialog';
If OpenDialog1.Execute Then // ,
Begin // ListBox1:
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
Button1.Hint:=OpenDialog1.FileName;
{ - Button1: }
Button1.ShowHint:=True;
end;
end;
1