Stringrid

[DieFliege]

Hallo

Erst mal vielen Dank - Ich werde es mir anschauen und gucken ob ich da was finde. Zur Info noch, dies ist der bisher verwendete Code:

Delphi-Quellcode:

//##############################################################################
//############################# CSV-Datei einlesen #############################
procedure LoadGrid(grid: TStringGrid; csv: TFileName);
var
  sRows : TStrings;
  sCols : TStrings;
  i     : Integer;
begin
  sRows := TStringList.Create;
  sRows.LoadFromFile(csv);
  sCols := TStringList.Create;
  sCols.CommaText := sRows[0];
  grid.ColCount := sCols.Count;
  sCols.Free;
  grid.RowCount := sRows.Count;
  for i := 0 to Pred(sRows.Count) do
    grid.Rows[i].CommaText := sRows[i];
  sRows.Free;
end;

procedure TForm1.btn_google_csvClick(Sender: TObject);
begin
  LoadGrid(StringGrid1, 'adressen_google_csv.csv');
end;
//##############################################################################

LG DieFliege