Listbox ohne Wertbezeichnung aus INI füllen?

[DeddyH]

Delphi-Quellcode:

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

Nur so heruntergetippt und nicht getestet.