begin Lines.SaveToFile(FileName);
OpenDialog1.FileName:=FileName; //
end;
, " " :
Memo1.Lines.SaveToFile(OpenDialog1.FileName); // ,
, . , , , . , Filter . . :
Delphi Title . , " " " ".
InitialDir . "", .
Delphi, File >New >Other > OtherFile >Text.
. , .
Read, , , .
Write, , .
procedure Seek(var f; n:longint);
. Seek , f, n. .
function FilePos(var F):longint;
function FileSize(var F):integer;
, f Seek(f, filesize(f)-1);
Seek(f, 0); Seek(f, filepos(f)-1);
Truncate (var f); ,
, . .
reset rewrite RecSize, , :
procedure reset (var f:file {;RecSize:word}); procedure rewrite (var f:file {;RecSize:word});
|
|
|
RecSize =128 .
read write , . read write
procedure blockread (var f:file; var buf; count:integer; {var at:integer}); procedure blockwrite (var f:file; var buf; count:integer; {var at:integer});
f , , buf , , count , . buf , count*RecSize . at .
Delphi :
1. , . , . , - . , .
2. . , , .
3. . . , , .
. () .
OpenDialog, SaveDialog.
1. . Memo.
2. , . Memo.
3. , . Memo.
4. , . Memo.
5. .
6. , .
7. , . .
8. , . . . , .
9. , . . 10. , . .
11. , . .
12. , . , , . , .
|
|
|
1. .
2. , , Edit. ?. ( .)
3. , , Edit. , : , , .
4. , , z, . .
5. , , Edit. , : , , .
6. , , Edit. _. ( .)
7. , , Memo. Label.
8. , , Edit. e i.
9. . .
10. . , : , .
11. . , , .
12. . , , . ( .)
1
| procedure AssignFile (var F; FileName: String); | F FileName. |
| procedure ChDir (Path: String); | . Path - , . |
| procedure CloseFile (var F); | , , AssignFile . CloseFile . CloseFile , AssignFile , . |
| function DateTimeToFileDate (DateTime: TDateTime): Integer; | DateTime TDateTime Delphi () . |
| function FileDateToDateTime (FileDate: Integer): TDateTime; | () TDateTime Delphi. |
| function DiskFree (D: Byte): LongInt; | . D - (0 - , ; 1 - ; 2 - B; 3 - ..). -1, . |
| function DiskSpace (D: Byte): Integer; | . D - (0 - , ; 1 - ; 2 - B; 3 - ..). -1, . |
| function EOF (var F:): Boolean; | True, . , , - . |
| procedure Erase (var F); | F. CloseFile. |
| function FileAge (const FileName: String): Integer; | FileName ( ) -1, . |
| function FileExists (const FileName: String): Boolean; | True, FileName , False . |
| function FileGetDate (Handle: Integer): Integer; | Handle ( ). , -1. |
| function FileSetDate (Handle: Integer; Age: Integer): Integer; | Handle Age ( ). 0 . |
| function FindFirst (const Path: String; Attr: Integer; var F: TSearchRec): Integer; | F TSearchRec , . Path: ; Attr: . |
| function FindNext (var F: TSearchRec): Integer; | F . F FindFirst. |
| procedure FindClose (var F: TSearchRec); | , FindNext FindFirst. |
| procedure Flush(var F); | , . |
| procedure GetDir (D: Byte; var S: String); | ( ). D - (0: , 1 - , 2 - ..); S - String, . |
| procedure MkDir (Dir: String); | . Dir - , . |
| procedure Rename (var F; NewName: String); | , .. F. NewName - , . . |
| procedure Reset (var F: File[; RecSize: Word]); | . RecSize . |
| procedure Rewrite (var F: File[; RecSize: Word]); | . RecSize . |
| procedure RmDir (Dir: String); | Dir. , .. . |
| function CopyFile (OldName, NewName: AnsiChar; FileExists: Boolean): Boolean; | . - Delphi, API Windows. |
|
|
|
|
|
|
| uses Windows. : OldName - ; NewName - ; FileExists - , . FileExists=False . FileExists=True . | |
| function GetLogicalDrives: Cardinal; | - WinAPI . , . |
