TLabel+TEdit

[LOMBI]

Delphi3-Prof., Paradox7-Tabellen
Anfänger


Hallo,

Auf der Form1 befinden sich TLabels mit der Bezeichnung "Freifeld".
Auf der Form2 habe ich TEdits, damit der User die individuellen
Bezeichnungen für die Freifelder eingeben kann. Das funktioniert bestens, aber wenn das Programm beendet und neu gestartet wird, sind die Bezeichnungen nicht mehr vorhanden.

Wer kann bitte helfen?

Gruß
Lombi

[Luckie]

Tja. Wie wäre es mit abspeichern? Oder wie denkst du soll das Programm beim nächsten Start wissen, was der Benutzer da eingetippt hat? :gruebel:

[Matze]

Stichwort: INI ini

[malo]

Zitat:

Zitat von Matze

Stichwort: INI ini

oder einfach hier :zwinker:

[LOMBI]

Hallo,

also irgendwie kriege ich das mit dem "Ini" nicht hin. Das Prog wird
zwar compiliert, aber es funktioniert nicht.

Delphi-Quellcode:

Uses: ... IniFiles;
procedure TForm2.FormClose(...)
var
Ini:TIniFile;
begin:
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+
       'Freifelder.ini');
try
ini.ReadString(EditFreifeld1.Text','EditFreifeld2.Text','EditFreifeld3.Text');
finally;
ini.free;
end;

Was mache ich falsch? Für Hilfe wäre ich sehr dankbar!

Gruß
Lombi

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Matze]

Delphi-Quellcode:

'EditFreifeld3.Text'

Du musst bei den Edits das so lösen:

Delphi-Quellcode:

EditFreifeld3.Text

da sonst "EditFreifeld3.Text" in der Ini steht, anstelle dessen Inhalt.

[Sharky]

Hai LOMBI,

warum versuchst Du denn beim beenden des Programmes etwas aus der INI zu lesen? Ich denke es wäre besser etwas zu schreiben ;-)

[LOMBI]

Nun habe ich folgendes geändert:

ini.WriteString(EditFreifeld1, ...);

aber beim Progstart sind die Einträge in den TEdits einfach nicht da.

Gruß
Lombi

[Sharky]

Lädst Du sie denn auch in deinem OnCreate der Form?

[MrSpock]

Hallo Lombi,

eine IniDatei hast Sektionen, die in eckigen Klammern stehen:

z.B.:

Zitat:

[Feldinhalte]
Feld1=Hallo
Feld2=Spacko
Feld3=Sharkylinchen

Um diese 3 Felder zu schreiben kannst du folgenden Code benutzen:

Delphi-Quellcode:

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

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