Hmm ich hab folgendes jetzt gemacht:
Code:
procedure TForm1.Button4Click(Sender: TObject);
var Datei : TextFile;
begin
Assign(Datei, 'c:\Test2.txt');
Append(Datei);
if IOResult <> 0 then Reset(Datei);
Writeln (Datei, Memo1.Text);
CloseFile(Datei);
end;
bekomme aber immernoch den Fehler
[Fehler] Unit1.pas(60): Inkompatible Typen: 'TPersistent' und 'Text'
kann ich irgendwie nichts mit anfangen