Textdatei speichern: Speicherort bestimmen.

[himitsu]

Zitat:

Zitat von Chemiker

man sollte unbedingt IOResult einsetzen um evt. Fehler abzufangen.

Wenn die Fehlerprüfung seitens Delphi aktiv ist, dann ist das nicht nötig, bzw. sogar umsonst,
denn Delphi setzt bei aktiver Fehlerprüfung nach jeden der Datei-Befehle (Reset, Append, Rewrite, Read, ReadLn, Write, WriteLn BlockRead usw.) einen Code, welcher IOResult ausließt und notfalls eine Exception auslößt.
Heißt also, wenn man in soeinem Fall IOResult auswerten will, dann kommt man garnicht dazu, da Delphi schon vorher reagiert.

Aus diesem Grund schaltet man auch die Fehlerprüfung lokal ab (mit {$I-} ), wenn man mit IOResult selber prüfen will.

[Helmi]

Hallo,

mich wunderts dass keine Access Violation gekommen ist.

Denn das hier müsste eine liefern:

Delphi-Quellcode:

  for i:=0 to memo1.Lines.Count do 
   begin 
    writeln(Datei, Memo1.Lines[i]); 
   end;

es müsste dann schon so lauten:

Delphi-Quellcode:

  for i:=0 to Pred(memo1.Lines.Count) do   // bzw. memo1.Lines.Count - 1
   begin 
    writeln(Datei, Memo1.Lines[i]); 
   end;

[Chemiker]

Hallo,

das war nur ein Hinweis in der Hilfe von Delphi findet man mehr.

Bis bald Chemiker

[xZise]

Moin,

Zitat:

Zitat von p80286

@bassmann
dann hast Du aber

Delphi-Quellcode:

writeln(Datei, raum); 
  writeln(Datei, datum); 
  writeln(Datei, edit1.text);

unterschlagen.[...]

Bisschen kopieren vorher ;)

Delphi-Quellcode:

var
  sl : TStrings;
begin
  sl := TStringList.Create;
  try
    sl.Assign(Memo1.Lines);
    sl.Insert(0, raum);
    sl.Insert(1, datum);

    // Alternativ statt des assigns da oben, dürfte auch das gehen:
    sl.AddStrings(Memo1.Lines);
    // Dann kann man aus Insert ein Add machen.

    sl.SaveToFile(...);
  finally
    sl.Free;
  end;
end;

MfG
Fabian