Auslesen aus Ini

[Dr4ke]

Guten Tag!
Ich bin dabei eine persönliche Adressbuch-Software zu erstellen, habe jedoch Probleme beim Auslesen.
Ich speichere die Eingaben wie Name, Nummer etc. in einer Ini-Datei, was soweit auch gut funktioniert.
Doch wenn ich sie wieder auslesen möchte, bekomme ich erstmal einen Fehler der mir sagt ich benutze den falschen Typ, was schonmal nicht stimmt und wenn ich den Typ dann umwandle bekomme ich nur eine "0" als Ausgabe.

Delphi-Quellcode:

procedure TForm1.btnSucheClick(Sender: TObject);
var
ini : TIniFile;
name, vorname : string;
begin

ini := TIniFile.Create('liste.ini');
try
  labelVorname.Caption := edtSucheVorname.Text;
  labelName.Caption := edtSucheNachname.Text;
  labelMSN.Caption :=  IntToStr(ini.ReadInteger(name+', '+vorname, 'MSN', 0));

finally
  ini.free;

end;
end;

Die Ini-Datei sieht folgendermaßen aus:

Delphi-Quellcode:

[Mustermann, Max]
Geburtstag=12.07.1980
Telefon=081555
Handy=081508150815
E-Mail=[e-mail]
ICQ=0815
MSN=[e-mail]

Das Label allerdings verwandelt sich nur in eine 0 .. Woran könnte das liegen

[Whatever]

Hallo,

also der erste Fehler der mir auffällt ist die Variable "Name". Dieser Name ist schon von Delphi reserviert, Du kannst ihn also nich als Variable benutzen.

Zitat:

ini.ReadInteger(name+', '+vorname, 'MSN', 0)

Strings müssen in Apostrophe gesetzt werden Variablen nicht. Was du da genau vorhattest weiß ich nicht. Auch das + muss nich gesetzt werden.

mfg Whatever

[Dr4ke]

Das mit dem 'Name' wusste ich nicht, danke, kann allerdings hier nicht die Fehlerquelle sein.

Und

Delphi-Quellcode:

ini.ReadInteger(name+', '+vorname, 'MSN', 0)

in dieser Zeile ist schon alles ok, wenn du dir ma bitte die Section der Ini anschaust.

[Helmi]

Hallo,

dein MSN-Eintrag in der INI-Datei ist ein String - du versuchst aber einen Integer aus der INI-Datei zu lesen

So müsst es heissen:

Delphi-Quellcode:

labelMSN.Caption :=  ini.ReadString(name+', '+vorname, 'MSN', ''));

[Whatever]

Oh tut mir leid hab ich übersehn :oops:

Aber lieg ich richtig das Du mit der besagten Zeile das hier auslesen willst?

Zitat:

[e-mail]

Wenn ja muss es natürlih heißen

Delphi-Quellcode:

labelMSN.Caption :=  IntToStr(ini.[u]ReadString[/u](name+', '+vorname, 'MSN', 0));

ReadString da [e-mail] ein String und kein Integer ist. Damit hätte sich der Fehler mit dem falschen Typ geklärt.

mfg Whatever

[Dr4ke]

Wie schon im ersten Post erwähnt, erzeugt das seltsamerweise einen Fehler.

Mit der Zeile

Delphi-Quellcode:

labelMSN.Caption :=  ini.ReadString(nachname+', '+vorname, 'MSN', 0);

erhalte ich

Zitat:

[Fehler] Unit1.pas(112): E2010 Inkompatible Typen: 'string' und 'Integer'

Edith sagt: jegliche variablen 'name' bereits in 'nachname' geändert. ;)

[Whatever]

Delphi-Quellcode:

labelMSN.Caption :=  ini.ReadString(nachname+', '+vorname, 'MSN', '');

so sollte es klappen.... denk ich

[Dr4ke]

So erfolgt leider überhaupt keine Ausgabe mehr. :(

[Helmi]

Zitat:

Zitat von Dr4ke

So erfolgt leider überhaupt keine Ausgabe mehr. :(

Dann prüf doch mal ob die Section, die zu mittels nachname + vorname zusammenbaust auch wirklich gibt,
denn der Code von Whatever funktioniert für dein Ini-Beispiel

[Edit]
Habs grad mal in meinem Projekt ausprobiert:

Auslesen aus der Ini-Datei:

Delphi-Quellcode:

Label1.Caption := ReadString('Mustermann, Max', 'MSN', 'geht nicht');

Ini-Datei:

[Mustermann, Max]
MSN=test

Und "test" wird im Label angezeigt

[Whatever]

Mach doch zum Testen mal

Delphi-Quellcode:

labelMSN.Caption :=  ini.ReadString('Mustermann, Max', 'MSN', '');

Das muss funktionieren :gruebel:

[Dr4ke]

Ja, den Eintrag gibt es.

Hier einmal die komplette Ini-Datei mit nur einer Section:

Zitat:

[Mustermann, Max]
Geburtstag=12.07.1980
Telefon=081555
Handy=081508150815
E-Mail=[e-mail]
ICQ=0815
MSN=[e-mail]

Die Procedure zum eintragen ist folgende:

Delphi-Quellcode:

procedure datenSpeichern(var nachname, vorname, geb, nummer, handy, email, icq, msn : string; ini : TIniFile);
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'liste.ini');

ini.WriteString(nachname+', '+vorname, 'Geburtstag', geb);
ini.WriteString(nachname+', '+vorname, 'Telefon', nummer);
ini.WriteString(nachname+', '+vorname, 'Handy', handy);
ini.WriteString(nachname+', '+vorname, 'E-Mail', email);
ini.WriteString(nachname+', '+vorname, 'ICQ', icq);
ini.WriteString(nachname+', '+vorname, 'MSN', msn);
ini.Free;
end;

Zum auslesen benutze ich:

Delphi-Quellcode:

procedure TForm1.btnSucheClick(Sender: TObject);
var
ini : TIniFile;
nachname, vorname : string;
begin

ini := TIniFile.Create('liste.ini');
try
  labelVorname.Caption := edtSucheVorname.Text;
  labelName.Caption := edtSucheNachname.Text;
  labelMSN.Caption :=  ini.ReadString(nachname+', '+vorname, 'MSN', '');

finally
  ini.free;

end;
end;

P.S.: Tatsächlich, das Auslesen funktioniert generell nicht, da muss es einen massiven Fehler geben, den ich allerdings nicht ausfindig machen kann. Das arbeiten mit Ini Dateien hab ich mir von dsdt abgeschaut.

[Helmi]

Hallo,

das kann auch nicht gehen:

Delphi-Quellcode:

procedure TForm1.btnSucheClick(Sender: TObject); 
var 
ini : TIniFile; 
nachname, vorname : string; 
begin 

ini := TIniFile.Create('liste.ini'); 
try 
  labelVorname.Caption := edtSucheVorname.Text; 
  labelName.Caption := edtSucheNachname.Text; 
  labelMSN.Caption :=  ini.ReadString(nachname+', '+vorname, 'MSN', ''); 

finally 
  ini.free; 

end;
end;

Denn die Variablen "nachname" und "vorname" sind nicht definiert.

Du müsstest es wie folgt schreiben:

Delphi-Quellcode:

begin 

//Variablen definieren
nachname := 'Mustermann';
vorname  := 'Max';

ini := TIniFile.Create('liste.ini'); 
try

[Edit]
oder wenn du deine Edits verwenden willst:

Delphi-Quellcode:

procedure TForm1.btnSucheClick(Sender: TObject); 
var 
ini : TIniFile; 
nachname, vorname : string; 
begin 

ini := TIniFile.Create('liste.ini'); 
try 
  vorname  := edtSucheVorname.Text;
  nachname := edtSucheNachname.Text;

  labelVorname.Caption := vorname; 
  labelName.Caption := nachname; 

  labelMSN.Caption :=  ini.ReadString(nachname+', '+vorname, 'MSN', ''); 
finally 
  ini.free; 

end;
end;

[Dr4ke]

Natürlich ein peinlicher Fehler, dass ich die Zuweisung vergessen haben, allerdings noch immer keine bzw. die Falsche Ausgabe.

Delphi-Quellcode:

procedure TForm1.btnSucheClick(Sender: TObject);
var
ini : TIniFile;
nachname, vorname : string;
begin
nachname := edtSucheNachname.Text;
vorname := edtSucheVorname.Text;
ini := TIniFile.Create('liste.ini');
try
  labelVorname.Caption := edtSucheVorname.Text;
  labelName.Caption := edtSucheNachname.Text;
  labelMSN.Caption :=  ini.ReadString(nachname+', '+vorname, 'MSN', 'geht nicht');

finally
  ini.free;

end;
end;

Und oh Wunder: Das label wird zu "geht nicht" :D

[Helmi]

jetzt mach mal nen test und schreib direkt

Delphi-Quellcode:

labelMSN.Caption :=  ini.ReadString('Mustermann, Max', 'MSN', 'geht nicht');

[Dr4ke]

Exakt das gleiche Resultat ..

[DeddyH]

Und wenn Du mal einen absoluten Pfad verwendest?

[Helmi]

Existiert die Ini-Datei?

Gib hier mal einen absoluten Pfad an:

Delphi-Quellcode:

ini := TIniFile.Create('liste.ini');

Also so z. b.:

Delphi-Quellcode:

ini := TIniFile.Create('c:\liste.ini');

beziehungsweise den Pfad, in dem die Datei wirklich liegt...

[Dr4ke]

Aber natürlich, der Pfad war einfach nur falsch!

Mit

Delphi-Quellcode:

ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'liste.ini');

funktioniert es einwandfrei, vielen Dank!