TEdit speichern und lesen

[Perlsau]

Wie lautet deine Frage?

[Headbucket]

Willkommen hier im Forum!

Du möchtest also wenige Daten speichern und laden, richtig?

Dafür bietet sich am Anfang eine INI-Datei an. Hier findest du ein gutes Tutorial: Ini-Dateien

Beim Öffnen deines Programmes musst du den Wert aus der INI-Datei laden und beim Schließen speichern.

Wenn du dazu Fragen hast, dann kannst du sie ja gerne hier stellen.

Grüße

[Wikes]

Das Problem ist, dass ich einfache Programme lesen kann. Aber selbst eins schreiben fällt mir schwer, weil ich auch nicht alles verstehe, dazu brauch ich wenigstens ein Bsp. Ich hab auch zu dem Thema schon viel gegoogelt und auch ausprobiert, aber funktioniert hats dann doch nicht wirklich.

Kann mir jemand helfen das Programm zu schreiben? Ich brauch es für ein Auftrag.
Oder wo kann mir Hilfe holen?

Danke Headbucket, ich werde es morgen ausprobieren.

[CarlAshnikov]

Interessanter Weise gibt es ein Tutorial das fast genauso heißt wie der Thread Titel. Inhalt eines Edit-Feldes speichern

Da du ja sicherlich vorher mal nach ähnlichen Themen gesucht hast, solltest du dringend an deinen Suchfertigkeiten arbeiten

[Wikes]

Das habe ich schon gesehen und ausprobiert. Ich weiß nicht was da noch dazu gehört an Einstellungen?
Ich konnte damit beim Öffnen des Progamms die Werte automatisch speichern und dann hab ich den Wert geändert und es hat sich nichts getan. Beim erneuten Öffnen wars wieder weg und im Textfile ist auch nichts neues drinn gewesen. Das Lesen hat auch geklappt, aber beides zusammen nicht. Ich weiß nicht genau was noch dazu gehört. Vll könnt ihr mir ja helfen?

[p80286]

nun alleine beim Dateinamen, des Beispiels "'Catei.txt'" kringeln sich meine Fußnägel.

Zitat von Wikes:

Das habe ich schon gesehen und ausprobiert. Ich weiß nicht was da noch dazu gehört an Einstellungen?
Ich konnte damit beim Öffnen des Progamms die Werte automatisch speichern und dann hab ich den Wert geändert und es hat sich nichts getan. Beim erneuten Öffnen wars wieder weg und im Textfile ist auch nichts neues drinn gewesen. Das Lesen hat auch geklappt, aber beides zusammen nicht. Ich weiß nicht genau was noch dazu gehört. Vll könnt ihr mir ja helfen?

Jetzt wäre der richtige Moment um uns Deinen Sourcecode zu zeigen. denn manchmal ist der Unterschied zwischen dem was man glaubt gemacht zu haben, und dem was man wirklich gemacht hat, recht groß.

Gruß
K-H

[baumina]

Der Trick ist, dass du das Lesen und das Schreiben der Textdatei an der richtigen Stelle machst. Delphi hat dafür Ereignisse. Wenn du in den Entwurfsmodus des Formulars gehst, kannst du im Objektinspektor auf Ereignisse des Formulars gehen. Dort findest du das Ereignis OnCreate. Dort Doppelklicken und in der Procedure, die dann für dich erstellt wird, schreibst du den Code fürs Lesen der Textdatei und den Inhalt der Textdatei schiebst in den Text des Editfeldes. Für das Ereignis OnDestroy machst du ebenfalls einen Doppelklick und schreibst des Code für das Speichern in die Textdatei rein.

[Wikes]

Ich kann jetzt nicht an den Rechner, erst morgen wieder.

Ich habe einfach den Code aus dem Link genommen und natürlich den Datei Name/Ort angepasst. Aber des ganze was noch dazu gehört hab ich net sauber hingekriegt. Wenns irgendwo eine Anleitung auf Deutsch für die ganzen Ereignisse usw geben würde, wärs gut.
Aber Danke ich werds morgen probieren.

[BadenPower]

Zitat von Wikes:

Wenns irgendwo eine Anleitung auf Deutsch für die ganzen Ereignisse usw geben würde, wärs gut.

Delphi -> F1-Taste

oder zum Beispiel hier:
http://docwiki.embarcadero.com/Libra...s.TForm_Events

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