Vokabeltrainer mit Lazarus

[bernhard_LA]

Delphi-Quellcode:

var
  Form1: TForm1;


procedure TForm1.Button1Click(Sender: TObject);
begin
  MEMO1.LINES.CLEAR;   // [B] warum wird das  memo gelöscht wenn  man speichert ????[/B] ...  
                       // somit ist die Datei dann auch immer leer ???
  MEMO1.LINES.SAVETOFILE('porttrai.txt');


end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
Memo1.Lines.LoadFromFile('porttrai.txt');  ///  oder  Memo1.Lines.LoadFromFile('c:\temp\porttrai.txt');

 end;

 procedure TForm1.Button3Click(Sender: TObject);
 begin
 close ;
 end;

 procedure TForm1.Button4Click(Sender: TObject);
 begin
    MEMO1.LINES.CLEAR;
 end