Thema: Delphi Auslesen aus Ini

Einzelnen Beitrag anzeigen

Dr4ke

Registriert seit: 12. Mai 2007
39 Beiträge
 
#11

Re: Auslesen aus Ini

  Alt 5. Mär 2009, 18:08
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=Mustermann@gmx.de
ICQ=0815
MSN=Mustermann@gmx.de
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.
  Mit Zitat antworten Zitat