Probier das
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
iItem: Integer;
begin
with Listbox1, TIniFile.Create('myINI.ini') do
try
//liest in der Form "Ident=Value" lässt aber Einträge mit leeren
// Werten aus
ReadSectionValues('MySection', Items);
//Entfernen des "Ident="-Teils
for iItem:=Pred(Items.Count) downto 0 do
Items[iItem]:= Items.Values[Items.Names[iItem]];
finally
Free;
end;
end;
Es ist nicht gerade die perfomanteste Lösung (
Items.Values[Items.Names[iItem]]), außerdem könntest Du vor längeren Updates mithilfe von
Listbox1.Items.BeginUpdate die Updates im Formular unterbinden.