Textdatei bis zum ersten Komma in ListBox laden

[s-off]

Hallo,

Delphi-Quellcode:

//hiermit zerlegst du einen übergebenen string in seine einzelteile (getrennt durch (hier:) komma) und bekommst einen
//bestimmten teil zurück
function TForm1.ParseString(sTrenner, sString: string; iCount: Integer): string;
var
   i: Integer;
   sErgebnis: string;
begin
   Result := '';
   if Length(sString) > 0 then begin
      if sString[Length(sString)] <> sTrenner then begin
         sString := sString + sTrenner;
      end;
      for i := 1 to iCount do begin
         sErgebnis := Copy(sString, 0, Pos(LowerCase(sTrenner), LowerCase(sString)) - 1);
         sString := Copy(sString, Pos(LowerCase(sTrenner), LowerCase(sString)) + 1, Length(sString));
      end;
      Result := sErgebnis;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   slTemp: TStringlist;
   i: Integer;
begin
   slTemp := TStringlist.Create;
   try
      slTemp.LoadFromFile('C:\Download\textdatei.txt');
      for i := 1 to slTemp.Count - 1 do begin //from 1 cause no header
         ListBox1.Items.Add(ParseString(',', slTemp.Strings[i], 1)); //first item
      end;
   finally
      FreeAndNil(slTemp);
   end;
end;