Inhalt eines TEdit in eine Datei kopieren.

[Seppel]

Wie kann ich den Inhalt eines Editierfeldes in eine Datei kopieren, z.B. in eine Textdatei.
Meine Test ergaben Zugriffsfehler, ich hoffe ihr könnt mir helfen.

[DeddyH]

Zeig doch mal, wie Du es versucht hast.

[Bernhard Geyer]

Zitat von Seppel:

Meine Test ergaben Zugriffsfehler, ich hoffe ihr könnt mir helfen.

dann zeig doch einfach mal was du bisher gemacht hast damit wir dir sagen können was du falsch macht/wo du denkfehler hast.

[Seppel]

Ja, ich hab ein bisschen gesucht(im Forum).

Hier:

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
var copyedit1: TStrings;
begin
copyedit1.LoadFromFile('c:\test.txt');
copyedit1.Add(Edit1.Text);
copyedit1.SaveToFile('c:\test.txt');
end;

[Progman]

EditFelder haben keine Methode SaveToFile. Da hilft der Umweg über eine TStringList.

Delphi-Quellcode:

StringList:=TStringlist.Create;
StringList.Add(Edit1.Text);
StringList.SaveToFile('bla.txt')
StringList.Free;

[Seppel]

Zitat von Progman:

EditFelder haben keine Methode SaveToFile. Da hilft der Umweg über eine TStringList.

Delphi-Quellcode:

StringList:=TStringlist.Create;
StringList.Add(Edit1.Text);
StringList.SaveToFile('bla.txt')
StringList.Free;

Danke es geht.

[Seppel]

copyedit1.LoadFromFile('test.txt'); Damit kann ich das file wieder öffnen, wie kriege ich die Daten darin zurück in mein Editier feld?

[DeddyH]

Delphi-Quellcode:

StringList.LoadFromFile(Dateiname);
if StringList.Count > 0 then
  Edit.Text := StringList[StringList.Count - 1];//letzte Zeile der Textdatei

[Progman]

Gleiche Methode, nur umgekehrt:

Delphi-Quellcode:

StringList:=TStringlist.Create;
StringList.LoadFromFile('bla.txt')
Edit1.Text:=StringList[0];
StringList.Free;

[Klaus01]

Ein EditFeld ist nicht dazu gedacht eine TextDatei darzustellen.
Dazu solltest Du ein TMemo nehmen - es sei denn Du willst immer nur eine Zeile
der Datei im EditFled haben.

Grüße
Klaus