CSV in Delphi

[Ultimator]

Hier:

Delphi-Quellcode:

procedure TCheckCompObject.SplitString(Str: string; Separator: Char; var ts: TStringList); 
begin 
  try 
    ts.Clear; 
    while AnsiPos(Separator, Str) > 0 do begin 
      ts.Add(trim(Copy(Str, 1, AnsiPos(Separator, Str) - 1))); 
      Str := Copy(Str, AnsiPos(Separator, Str) + 1, Length(Str)); 
    end; 
    ts.Add(trim(Str)); 
  except 
// 
    end; 
  end; 
end;

[edit]Das hat DPercon mal gepostet[/edit]