TEdit speichern und lesen

[Wikes]

Also ich habe es probiert baumina.

Code sieht so aus in meiner Form:

Delphi-Quellcode:

// Form_Test.OnCreate
procedure isi_FormCreate(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('C:\Projekts\Textdokument.txt');
    if List.Count>0 then
      Edit1.Text:=List[0];
  finally
    List.Free;
  end;
end;


// Form_Test.OnDestroy
procedure isi_FormDestroy(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.Add(Edit1.Text);
    List.SaveToFile('C:\Projekts\Textdokument.txt');
  finally
    List.Free;
  end;
end;

Das lesen funktioniert beim Öffnen des Programms, aber das Speichern bzw. überschreiben nicht.

[baumina]

Komisch, bei mir funktioniert dein Code. Vielleicht hast du keine Schreibrechte in dem Verzeichnis?

[CarlAshnikov]

Verwende bitte in Zukunft die Delphi Code Tags (der kleine Helm im Editor) damit dein Code besser lesbar ist.

Was bedeutet es funktioniert nicht? Kommt eine Fehlermeldung?

Sind die Prozeduren auch wirklich im Objektinspektor den entsprechenden Events (Create und Destroy) zugeordnet? Eigentlich sollte das nicht funktionieren, da sie keine Objektmethoden sind.

[Wikes]

Ich kanns auch in einem anderen Verzeichnis probieren.

Fehlermeldung kommt keine.
Was ist Delphi Code Tags?

[Wikes]

Kann ich es irgendwie auch ohne Textdokument machen?

[baumina]

Stimmt, normalerweise müsste deine proceudre so aussehen

procedure TForm1.FormCreate(Sender: TObject); also Formularname Punkt FormCreate.

[Wikes]

ich benutze ein anderes Programm wo Delphi verwendet wird. Deswegen der Unterschied in proceudre.

Prozeduren sind im Objektinspektor zugeordnet.

Delphi-Quellcode:

// Form_Test.OnCreate
procedure isi_FormCreate(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile('C:\Projekts\Textdokument.txt');
    if List.Count>0 then
      Edit1.Text:=List[0];
  finally
    List.Free;
  end;
end;


// Form_Test.OnDestroy
procedure isi_FormDestroy(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.Add(Edit1.Text);
    List.SaveToFile('C:\Projekts\Textdokument.txt');
  finally
    List.Free;
  end;
end;

[vagtler]

Zitat von Wikes:

[...] Prozeduren sind im Objektinspektor zugeordnet. [...]

Aber nicht die hier geposteten...

[baumina]

Zitat von Wikes:

ich benutze ein anderes Programm wo Delphi verwendet wird. Deswegen der Unterschied in proceudre.

Prozeduren sind im Objektinspektor zugeordnet.

Wir wiederholen uns nicht grundlos. Die Proceduren FormCreate und FormDestroy müssen zwingend proceduren des Formulars sein.

[BadenPower]

Zitat von Wikes:

ich benutze ein anderes Programm wo Delphi verwendet wird. Deswegen der Unterschied in proceudre.

Was soll das denn für ein sein?

Und wenn Du uns das Programm nicht nennst, dann können wir auch nicht auf die ausschlaggebenden scheinbar vorhandenen (oder auch nicht) Auswirkungen auf den erzeugten Code eingehen.