TEdit inhalte speichern

[HagBurt]

Hallo! ich hab heute ein kleines prog geschrieben wo man verschiedene sachen
in edits eintragen muss....
jetzt wollte ich wissen, wie ich die inhalte von den edits speichern kann
wenn das programm beendet wird!

Danke im vorraus

[Luckie]

Da gibt es mehrere Möglichkeiten:
[oh]
- TStringList
- Ini Dateien
- Typisierte Dateien
- Textdateien
- Registry
[/oh]

[nailor]

ich würde sagen, typischer fall für ini dateien

[Hansa]

Schätze mal am einfachsten in Textdateien. z.B, so:

Delphi-Quellcode:

AssignFile (d,'Text.txt');
rewrite (d);
writeln (d,Edit1.Text);
Closefile (d);

Die kann man dann mit jedem Textprogramm öffnen.

[HagBurt]

danke für die schnellen antworten :-D
was bedeutet das (d) in deinem code?
wie muss ich den deklarieren oder so????

bin noch ziehmlicher anfänger...... :oops:



HagBurt

[Nothine]

D is in diesem fall ein textfile, folgendermaßen (und lokal) zu deklarieren

Delphi-Quellcode:

var D: TextFile;

:wink:

[Hansa]

Ja, d ist ein "Textfile" :thumb: , aber lokal muß es nicht sein. 8)

[Nothine]

:P wenn er nur mal eben schnell den inhalt von ein paar edit-felder speichern will is es lokal am sinnvollsten :P :mrgreen:

[Hansa]

Kommt drauf an, insbesondere wie lokal. :P Verwendet er z.B. eine ButtonClick-Prozedur und bestückt die Edits woanders, dann ist pillo. :mrgreen:

[Nothine]

ich geb mich deiner bestechenden logik für diesmal hin :mrgreen:
(aber auch nur weil ich jetz kein bock hab zu diskutieren :mrgreen:)

[Hansa]

Besser so, mache den nicht noch verrückt. :lol:

[HagBurt]

danke, soweit sogut....

aber ich bräuchte noch einen code schnippsel
zum wieder laden von den textdateien...(so das ich es zb in
das oncreate schreiben kann)

Danke, Hagburt

[HagBurt]

hallo, habs jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
l := Tstringlist.create;
l.loadfromfile('test.txt');
s := l.text;
edit1.Text := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var d: textfile;
begin
assignFile (d,'test.txt');
rewrite (d);
writeln (d,Edit1.Text);
Closefile (d);
end;

aber jetzt nach programmstart wird zwar der zuvor gespeicherte
text wieder eingefügt aber dahinter sind noch zwei so schriftzeichen "||"
ist es möglich diese zeichen beim einfügen zu unterdrücken?

Danke, HagBurt

[nailor]

warum?!?! speicherst du strings in ne textfile ab und liest es in eine stringlist wieder ein?!?

[Jelly]

Hallo,
in der RxLib (mittlerweiler Jedi Project) ist die FormStorage Komponte dabei. Da spart man sich die Tipparbeit... Die Kompo speichert die Werte auch in einer ini-File...

Gruß,

[HagBurt]

hallo

@nailor
weil ich nichts genaueres gefunden hab
wie ich wieder aus der textfile laden kann.

@jelly
was ist die RxLib ? :oops:

Danke, HagBurt

[Jelly]

Die RxLib gibts z.B. bei Torry.net und ist eine ziemlich umfangreiche, Freeware Komponentensammlung.

Gruß,

[Ricane]

Sagt mal......

wie wird der eigentliche Speichervorgang bei der FormStorage Kompo denn angestoßen?! Ich habe folgenden Code:

Delphi-Quellcode:

  FormStorage.Active := False;
  FormStorage.IniFileName := ExtractFilePath(Application.ExeName) +
    'Settings.ini';
  FormStorage.IniSection := 'Main';
  FormStorage.StoredValue['ServerAnz'] := lbGesamt.Caption;

  For I := 1 To StrToInt(lbGesamt.Caption) Do
  Begin
    FormStorage.IniSection := 'Server' + IntToStr(I);
    FormStorage.StoredValue['Servername'] := edtServername.Text;
    FormStorage.StoredValue['URL'] := edtServerGrundURL.Text;
    FormStorage.StoredValue['Thumb'] := edtThumbDatei.Text;
    FormStorage.StoredValue['Voll'] := edtDateiVoll.Text;
    FormStorage.StoredValue['SpanneVon'] := edtSpanneVon.Text;
    FormStorage.StoredValue['SpanneBis'] := edtSpanneBis.Text;
    FormStorage.StoredValue['Stellen'] := seStellen.Text;
    FormStorage.StoredValue['Typ'] := cmbDateiart.Text;
  End;
  FormStorage.Active := True;

Aber der klappt nicht... wie funzt das? Müsste doch eigentlich ganz trivial sein...


Beste Grüsse,

Ricane