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