Stringgrids

[dopeline]

ich weiß nicht, hift dir das vielleicht weiter? (habs auf ner krüpp-sprachen-seite gefunden (hierher))

Delphi-Quellcode:

procedure TMainForm.actOpenExecute(Sender: TObject);
var
  csv: TextFile;
  stl: TStringList;
  st: String;
  i: Integer;
begin
  OpenDialog1.Filter := 'csv ƒtƒ@ƒCƒ‹ (*.csv)|*.CSV';
  if OpenDialog1.Execute then
    stl := TStringList.Create;
    try
      AssignFile(csv,OpenDialog1.FileName);
      Reset(csv);
      try
        while not EOF(csv) do
        begin
          Readln(csv,st);
          StrColGrid1.RowCount := StrColGrid1.RowCount+1;
          stl.CommaText := st;
          for i:=0 to stl.Count-1 do
          begin
            StrColGrid1.Cols[i+1].Strings[i+1] := stl.Strings[i];
          end;
        end;
      finally
        CloseFile(csv);
      end;
    finally
      stl.Free;
    end;
end;

wenn dir das hift...

Gruß, dopeline