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