Zitat von
alleinherrscher:
Um ne Textdatei zu schreiben:
Delphi-Quellcode:
var aFile:Textfile;
assignfile('C:\irgendeinPfad\irgendeineDatei.endung',aFile);
rewrite(aFile);
writeln('irgendeinStringDerInDeineTextDateiInEineZeileGeschriebenWerdenSoll');
//...
closefile(aFile);
Ums zu lesen ersetzt du rewrite durch reset(afile) und writeline durch readln(String,aFile)
Ok ich habs probiert auf deine Weise aber leider kam ein Fehler! (
Unit.pas(27):Inkompatible Typen)
Mein Quelltext schaut aus wie folgt:
Delphi-Quellcode:
var
Form1: TForm1;
aFile: Textfile;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile('C:\test\test.txt',aFile);
rewrite(aFile);
writeln('Hallo das ist ein test');
closefile(aFile);
end;
end.