Code:
procedure TForm1.savedetail;
var
text: String;
OPFile: textFile;
OPFilePath: String;
i: Integer;
begin
OPFilePath:= Traumbox.items.strings[Traumbox.Itemindex];
assignfile(OPFile, OPFilePath);
if not(fileexists(OPFilePath)) then rewrite(OPFile)
else
begin
reset(OPFile);
end;
append(OPFile);
writeln(OPFile, Traumname.Text);
for i:= 1 to Traummemo.Lines.Count do
begin
writeln(OPFile, Traummemo.Lines.Strings[i]);
end;
closefile(OPFile);
end;
Hi Leude,
wie kann ich in diesem Beispiel nach append(OPFile); auf den Dateianfang pointen?
ich habs mit Seek(OPFile, 0); versucht aber da will er File und nich TextFile.
und wenn ich append rausnehme will er auf keinen writln machen.
wie kann ich das nun ändern?
ich will das er die datei IMMER überschreibt und NICHTS anhängt.