Hat Jemand eine Ahnung wie ich diese Datei in ein Stringgrid bekomme.

[verkouter]

Mit dieser Funktion öffne ich die anderen Messdateien

Delphi-Quellcode:

procedure tform1.LoadCSV(Filename: string; sg: TStringGrid);
var
  i, j, Position, count, edt1: integer;
  temp, tempField : string;
  FieldDel: char;
  Data: TStringList;
begin
  Data := TStringList.Create;
  FieldDel := ';';
  Data.LoadFromFile(Filename);
  temp :=  Data[1];
  count := 0;
  for i:= 1 to length(temp) do
    if copy(temp,i,1) =  FieldDel then
      inc(count);
  edt1 := count+1;
  sg.ColCount := 30;
  sg.RowCount := Data.Count +1;
  sg.FixedCols := 0;
  for i := 0 to Data.Count - 1 do
  begin;
    temp :=  Data[i];
    if copy(temp,length(temp),1) <> FieldDel then
      temp := temp + FieldDel;
    while Pos('"', temp) > 0 do
    begin
      Delete(temp,Pos('"', temp),1);
    end;
    for j := 1 to edt1 do
    begin
      Position := Pos(FieldDel,temp);
      tempField := copy(temp,0,Position-1);
      sg.Cells[j-1,i+1] := tempField;
      Delete(temp,1,length(tempField)+1);
    end;
  end;
  Data.Free;
end;

bei dieser Datei erhalte ich die Fehlermeldung "Listenindex überschreitet das Maximum".