Turbo DELPHI
5
:
..
2014
. . , .
:
; ( );
; ( );
( ); .
:
TextFile , ;
File of <> , ;
File , .
, var f1:textfile; f2:file of integer; f3:file of char; f4:file;
f1 , f2 f3 , f4 .
Delphi - , , , , , . Delphi . .
. , . - .
AssignFile(< >,< >);
< > - , ; < > , .
, , , , D:\STUDENTS\MIB211\z1.txt.
, . . Delphi . , .
, .
|
|
Reset(< >);
, . , , , , . 0.
!!! , reset, , , reset
Rewrite(< >);
, . , .. 0.
!!! rewrite , , , rewrite
Append(< >);
. , , , , . .
CloseFile (< >);
closeFile , , assignFile.
ERASE(VAR F) f;
Rename(VAR f; NewName:string) - . !!! .
Memo, Button Edit. . .
Delphi , . Dialogs Delphi OpenDialog Delphi SaveDialog. Delphi , , Delphi , , ..
, . Delphi OpenDialog Windows- , Delphi SaveDialog - .
Delphi , , . Delphi Execute. " " " " .
Delphi, , .. , String, . ListBox, ComboBox Memo, Standard . Memo, .
|
|
Delphi , Memo, Button. Caption " ... ", -" ", - " ... "
OnClick " ... " :
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FileName OpenDialog , Memo.
OpenDialog1.FileName, Delphi " " with. , "" , . :
With do begin
end;
:
with OpenDialog1, Memo1 do
if Execute then Lines.LoadFromFile(FileName);
OpenDialog SaveDialog , . " ... " :