Schleife

[kingmarv]

Hi

Ich führe eine schleife aus um den Inhalt aus einer txt datei in eine combobox1 zufüllen. Die Inhalte der Txt datei sind durch trennzeichen getrennt und ich brauche den Inhalt vor dem ersten trennzeichen.
Komischerweise trägt er immer den gleichen ( den ersten eintrag ) in die combobox obwohl es vom code her eigentlich richtig ist.

Wo ist also der fehler ?

Delphi-Quellcode:

function explode(sPart, sInput: string): ArrOfStr;
begin
  while Pos(sPart, sInput) <> 0 do
  begin
    SetLength(Result, Length(Result) + 1);
    Result[Length(Result) - 1] := Copy(sInput, 0,Pos(sPart, sInput) - 1);
    Delete(sInput, 1,Pos(sPart, sInput));
  end;
  SetLength(Result, Length(Result) + 1);
  Result[Length(Result) - 1] := sInput;
end;

Delphi-Quellcode:

List:=TStringlist.create;
list.loadfromfile('user.txt');
for i:=0 to list.Count-1 do begin

arr:=explode(';',list.strings[i]);
combobox1.Items.add(arr[0]);

end;

Wenn ich diese Zeile rausnehme arr:=explode(';',list.strings[i]); und list.strings[i] hinzufüge trägt er zwar alles korrekt ein aber nur den ganzen string.


Danke schonmal im vorraus


mFG