einen string in eine txt schreiben

[Christian18]

Hallo,

ich habe mal eine Frage. Wie kann ich einen String in eine txt schreiben??? Ich habe es schon einmal versucht. Bei mir funktioniert es aber leider nicht.

ich hab es so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var s : String;
      f : TextFile;
begin
  s:=Edit1.Text;

  AssignFile(f, 'c:\text.txt');
  Reset(f);
  Writeln(f, s);

  CloseFile(f);
end;

[alcaeus]

Hallo Christian,

Reset oeffnet die Datei fuer Lesezugriff. Um Schreiben zu koennen musst du Append oder Rewrite verwenden.

[add] Eventuell solltest du auch {$I-} bzw. {$I+} verwenden, um Fehler abzufangen:

Delphi-Quellcode:

{$I-}
Rewrite(f);
{$I+}
if IOResult <> 0 then
begin
  //Error occured, do something.
end;

[/add]

Greetz
alcaeus

[Nogge]

Könnte man auch anstelle der {$I-} bzw. {$I+} try und except benutzen?

[Luckie]

Guck dir in der Hilfe mal {$I-} und IOResult und wie sie zusammenspielen.

[alcaeus]

Zitat von Nogge:

Könnte man auch anstelle der {$I-} bzw. {$I+} try und except benutzen?

Kurz gesagt: nein. Die File-Routinen fuer Delphi werfen keine Exceptions wenn sie auf Fehler treffen, sondern schreiben nur ihren Fehlercode in eine Variable, die du mit IOResult ausliest (so wie alle API-Funktionen uebrigens ). Wenn du mit try-except arbeiten willst, musst du dir da schon eine Wrapper-Klasse schreiben und die Exceptions selbst ausloesen

Greetz
alcaeus

[Nogge]

Vielen Dank euch beiden. Die Hilfe und deine Ergänzung, alcaeus, hat mich wieder etwas schlauer gemacht^^