IniFiles und Listbox

[maluprog]

Hallo,

habe mir den Hinweis angesehen und etwas meinen Daten angepasst:

Delphi-Quellcode:

procedure TForm1.BkorrClick(Sender: TObject);
var s: string;
    i: integer;
begin
  ListBoxini.Items.BeginUpdate;
  try
    for i := 0 to Pred(ListBoxini.Items.Count) do
      begin
        s := Copy(ListBoxini.Items[i], Pos('=',ListBoxini.Items[i]) + 1, Length(ListBoxini.Items[i]));
        ListBoxini.Items[i] := s;
      end;
  finally
    ListBoxini.Items.EndUpdate;
  end;
end;

Funktioniert bestens, Danke

manne