Hallo Honigdachs,
erstmal hast du bei deinem Code einen "begin"-"end;"-Block vergessen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
ini: TIniFile;
begin
if
Application.MessageBox('Datei anzeigen lassen?', 'Dialog zur Anzeige', MB_YESNO) = id_yes
then
begin // <- hier
ini:=TIniFile.Create(extractfilepath(paramstr(0)) + 'X.ini/.txt'); // lade die Ini-Datei "X.ini/.txt" im Anwendungsvezeichnis
Listbox1.items.text := ini.ReadString('Caption', 'Title', '{Keine Ahnung}'); {
Wenn in der Section "Caption" ein Eintrag mit dem Bezeichner "Title" auftaucht, gib den Wert als String in der Listbox aus, ansonsten ist der Eintrag der Listbox "{Keine Ahnung)" (die geschweifte Klammer würde das Kommentar schließen)!
Beispiel1: In der Datei "X.ini/.txt" steht
[Caption]
title=Eintrag?
Beispiel2: In der Datei "X.ini/.txt" steht
[Wurst]
Leberwurst=lekker!
Mettwurst=nich essen ...
[Käse]
Gauda=wie ordinär!
Edamer=aromatisch
}
ini.free;
end // <- und hier (vor dem "else" kommt kein Komma!)
else {wenn hier kein Code mehr hin soll kannst/solltest du dir das "else" sparen};
end;
Ich hoffe das hilft dir,
Bug
PS: Jetzt hab ich so lange geschrieben, die roten Kästen greifen an!