TLabel+TEdit

[LOMBI]

Danke für Euer Interesse!

Sharky:

Ich habe nun die Eigenschaft OnCreate auf der Form2 gewählt.

MrSpock:

Ich habe den Quellcode genau übernommen, aber es will immer noch nicht,
dh beim Progstart fehlen die Einträge in den TEdits auf Form2. Muß ich
vielleicht manuell in der win.ini die Feldinhalte hinzufügen?

Gruß
Lombi

[SirThornberry]

win.ini? gehts noch? wurde die inidatei (Freifelder.ini) eigentlich angelegt?

[Matze]

Lies dir mal das Ini-Tutorial durch, das im 4. Post angesprochen wurde, so wird das nichts.

Win.ini :lol:

[LOMBI]

Hallo,

im Freifelder-Editor steht folgendes:

[Aktiv]
Wert=1
[userinformation]
userneu=Test
[Feldinhalte]
Feld1=EditFreifeld1
Feld2=EditFreifeld2
...

Wenn auf Form2 der Text in den Edit-Eingabefeldern geändert
wird, dann müßte sich das doch oben auswirken oder? Wähle ich
zB als Text "Geburtstag", dann müßte Feld1=Geburtstag lauten.

Gruß
Lombi

[Matze]

Wenn du es per

Delphi-Quellcode:

ini.writestring(...);

hineinschreibst, dann ja.

[LOMBI]

... genauso mache ich das. Woran könnte es dann noch liegen?
Es wird auch alles einwandfrei compiliert.

Gruß

[Matze]

Zeig bitte deinen Code, so kann keiner etwas dazu sagen.

[MrSpock]

Hallo LOMBI,

in meinem Code musst du natürlich noch die korrekten Namen der EditFelder eingeben, die du speichern willst:

Delphi-Quellcode:

...Ini.WriteString('Feldinhalte', 'Feld1', Freifeld1Edit.Text);
Ini.WriteString('Feldinhalte', 'Feld2', Freifeld2Edit.Text);
Ini.WriteString('Feldinhalte', 'Feld3', Freifeld3Edit.Text);

In der OnCreate musst du jetzt diese Felder wieder mit ReadString einlesen:

Delphi-Quellcode:

...
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+
       'Freifelder.ini');
Freifeld1Edit.Text := Ini.ReadString('Feldinhalte', 'Feld1', '');
Freifeld2Edit.Text := Ini.ReadString('Feldinhalte', 'Feld2', '');
Freifeld3Edit.Text := Ini.ReadString('Feldinhalte', 'Feld3', '');
Ini.Free;

[LOMBI]

Hier mein Code:

Delphi-Quellcode:

Uses ...IniFiles;
...
procedure TForm2.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:= TIniFile.Create(ExtractFilePath(ParamStr(0))+
      'Freifelder.Ini');
      Try
      Ini.WriteString('Feldinhalte','Feld1',EditFreifeld1.Text);
      Ini.WriteString('Feldinhalte','Feld2',EditFreifeld2.Text);
      Ini.WriteString('Feldinhalte','Feld3',EditFreifeld3.Text);
EditFreifeld1.Text := Ini.ReadString('Feldinhalte','Feld1','');
EditFreifeld2.Text := Ini.ReadString('Feldinhalte','Feld2','');
EditFreifeld3.Text := Ini.ReadString('Feldinhalte','Feld3','');
Finally;
Ini.Free;
end;

Das Programm wird einwandfrei compiliert, aber die Einträge auf Form2
in den EditFreifeldern1-3 in der Ini nicht gespeichert. Bitte prüfen,
vielen Dank!

Gruß
Lombi

[MrSpock]

Hallo LOMBI,

du solltest den Code nicht einfach blind kopieren. Denke doch einmal nach, was du da programmierst. Mit WriteString schreibst du die Daten, die in den EditFeldern stehen in die Ini Datei und mit ReadString liest du sie wieder aus. Du hast nun beide Aktionen in die OnCreate Methode geschrieben. Dort sind die Editfelder natürlich noch leer. Du schreibst dann die leeren Strings in die Ini Datei und liest sie anschließend leer wieder aus.

Richtig wäre die Daten dann zu schreiben, wenn etwas Sinnvolles drin steht. Also packst du entweder einen Schalter "Speichern" auf das Formular und speicherst die Inhalte der Editfelder auf Knopfdruck oder du speicherst sie z.B. im OnClose Event, also mit dem Schließen des Formulars. In der OnCreate Methode darfst du dann die Werte nur LESEN, aber natürlich nicht sofort wieder mit Leereinträgen überschreiben.