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;
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<