Listbox ohne Wertbezeichnung aus INI füllen?

[mlspider]

Irgendwie stehe ich heute völlig neben mir.

Delphi-Quellcode:

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'Conf\Data\Core.ini');
ini.ReadSectionValues('Name',ListBox1.Items);
Ini.Free;

Als Ergebnis würde es beispielsweise wie folgt aussehen:

01=Versuch
02=Test

usw.

Wie könnte man aber den jeweiligen Wertebezeichner wegschneiden, so das eine Listbox nur mit den jeweiligen Wert befüllt wird?

[Aphton]

Gehe alle einzelnen Einträge (Items) durch und schneide jeweils pro Eintrag alles bis '=' (inklusive) per Delete() ab. Mit Pos() ermittelst du die Stelle von '='.

MfG

[mlspider]

Und wie könnte so eine For-Schleife aussehen?

[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.

[mlspider]

Inkompatible Typen. Leider

[DeddyH]

Was soll da inkompatibel sein? Hab ich was übersehen?

[mlspider]

Delphi-Quellcode:

try
    for i := 0 to Pred(ListBox2.Items.Count) do
      begin

        // ab dieser Zeile zickt der Compiler 
        s := Copy(Pos('=',ListBox2.Items[i]) + 1, Length(ListBox2.Items[i]));

        ListboxBox2.Items[i] := s;
      end;
  finally
    ListBox2.Items.EndUpdate;
  end;

[DeddyH]

Jetzt hab ich mir 3 mal die Brille geputzt, aber immer noch nichts gefunden. Gut, dann mal in der Langform:

Delphi-Quellcode:

try
    for i := 0 to Pred(ListBox2.Items.Count) do
      begin
        s := ListBox2.Items[i];
        iPos := Pos('=', s) + 1; //iPos: integer
        s := Copy(s, iPos, Length(s)); //hier ist der Fehler, sorry, hab das s vergessen
        Listbox2.Items[i] := s;
      end;
  finally
    ListBox2.Items.EndUpdate;
  end;

Heißt also, in der Version von oben muss es lauten

Delphi-Quellcode:

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

[mlspider]

Auch ich habe meine Brille erneut geputzt.

Gerade auch gesehen. Jetzt funzt es. Danke.