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?

[CarlAshnikov]

Ok ich habe mich wohl missverständlich ausgedrückt:

Wenn du hier im Forum Quellcode postets, dann verwende dazu bitte die Delphi Tags ([DELPHI ] Hier kommt der Code rein[/DELPHI ] ). Ohne Leerzeichen am Ende. Diese kannst du auch bekommen indem du den kleinen Helm im Beitrag-Editor drückst.

Was ist damit:

Zitat:

Sind die Prozeduren auch wirklich im Objektinspektor den entsprechenden Events (Create und Destroy) zugeordnet?

[baumina]

Stimmt, normalerweise müsste deine proceudre so aussehen

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

[Popov]

Das sind Delphi Tags:

Code:

[DELPHI]
  ShowMessage('Hallo Welt.');
[/DELPHI]

Wenn du den Delphi Code nicht "vernünftig" postest, wird es Leute geben die sich den Code nicht mal ansehen werden. Mach es, ist für dich günstiger.

Eigentlich wollte auch ich den Thread wegklicken, aber etwas ist direkt ins Auge gefallen:

Delphi-Quellcode:

var
  List: TStrings;
begin
  List := TStringList.Create;

Das geht und es wird vermutlich keine Meldung geben, aber hier werden die Eigenschaften und Methoden von TStringList auf TStrings reduziert. Und wenn sie in TStrings anders durchgeführt werden als in TStringList, dann bekommst du das Ergebnis von TStrings.

[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...