.csv Datei einlesen

[mkinzler]

Delphi-Quellcode:

var
  sl, sl2: TStrings;
  i: integer;
begin
  sl := TStringList.Create;
  sl2 := TStringList.Create;
  sl2.Delimiter := ';';
  sl2.StrictDelimiter := True;
  sl.LoadFromFile( 'bsp.csv');
  for i := 0 to sl.Count - 1 do
  begin
    sl2.DelimitedText := sl[i];
    s1 := sl2[0] //1.Spalte
    ...
  end;