1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
|
begin
type
procedure FormCreate(Sender: TObject);
var
Liste: TStringlist;
procedure TForm1.FormCreate(Sender: TObject);
begin
Liste := TStringlist.Create;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if StrToInt(edit1.text) > 0 then Liste.add('TEXT' + edit1.Text);
Liste.SaveToFile(ExtractFilePath(ParamStr( 0 )) + 'delphi.dat');
end;
end. |