Daten speichern und Öffnen mit Ini-Files

beljo · Beiträge: 129

hallo Leute
hab folgendes versucht.
Textfelder in eine Datei ablegen und wieder in die Textfelder Laden. Dies habe ich nach Gaussis Vorschlag mit Ini-Files realisert.
hier mein Quelltext:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.execute then
 begin
   ini := TIniFile.create(SaveDialog1.Filename);
   ini.writeString('MeineWerte','Spannung1',Edit1.text);
   ini.free;
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.execute then
 begin
  ini :=TiniFile.;
  ini.ReadString('MeineWerte','Spannung1',Edit1.text);
  ini.free;
end;
end;

Ich habe mit TIniFile anstatt mit TMemIniFile gearbietet, weil ich das nicht in uses deklarieren konnte.
Das Einlesen funktioniert einwandfrei.Leider geht das Auslesen aus der Datei in das Textfeld nicht.(Keine Fehlermeldung)
Wo ist der Fehler in der Methode Button2Click?
vielen Dank im Vorraus Leute

Marco D. · Verfasst: Sa 11.03.06 15:02

So muss es heißen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

if opendialog1.execute then
 begin
  ini :=TiniFile.create(opendialog1.filename);
  ini.ReadString('MeineWerte','Spannung1',Edit1.text);
  ini.free;
end;

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

beljo · Beiträge: 129

Nett gemeint Marco aber beim kopieren hab ich geschlammt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.execute then
 begin
   ini := TIniFile.create(SaveDialog1.Filename);
   ini.writeString('MeineWerte','Spannung1',Edit1.text);
   ini.free;
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.execute then
 begin
  ini :=TiniFile.Create(opendialog1.filename);
  ini.ReadString('MeineWerte','Spannung1',Edit1.text);
  ini.free;
end;
end;

Hatte den Teil den Du geschrieben hast ausversehen ausgelassen.
So funktioniert es auch nicht Problem bleibt das selbe wie am Anfang

Marco D. · Verfasst: Sa 11.03.06 15:20

Ah na gut

Also:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.execute then
 begin
  ini :=TiniFile.Create(opendialog1.filename);
  edit1.text:=ini.ReadString('MeineWerte','Spannung1',Edit1.text);
  ini.free;
end;
end;

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

beljo · Beiträge: 129

Super hat funktioniert :-)

wundere mich wie ich soooooooo einen DUMMENEN Fehler machen konnte hätte bestimmt noch Tage gegrübelt ;-)

nochmals Vielen Vielen Dank Marco

Marco D. · Verfasst: Sa 11.03.06 16:09

beljo hat folgendes geschrieben:

wundere mich wie ich soooooooo einen DUMMENEN Fehler machen konnte hätte bestimmt noch Tage gegrübelt ;-)

Das gleiche Problem hatte ich auch einmal. Und aus Fehlern lernt man

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme