So habe ich es gerade:
Delphi-Quellcode:
for iGridRows := 1 to iRows do
begin
for jGridCols := 1 to iCols do
begin
OW.Tables[1].Cell[0,0].AsText:= advStringgrid1.cells[0,0]; // <--------
OW.Tables[1].Cell[1,0].AsText:=advStringgrid1.cells[1,0];// <--------
end;
end;
Dann nur noch anpassen, ich weiss nicht genau in welche Zeilen du alles einfügen willst. Dies ist nur ein Beispiel:
Delphi-Quellcode:
for iGridRows := 1 to iRows do
begin
for jGridCols := 1 to iCols do
begin
OW.Tables[1].Cell[iGridRows,jGridCols].AsText:= advStringgrid1.cells[iGridRows,jGridCols];
end;
end;
Hallo Coffeecoder,
danke für deine Antwort.
Klappt irgendwie nicht.
Kriegst du eine Fehlermeldung? Wenn ja, welche?
Sonst beschreibe mal bitte genauer was nicht geht