Hai Hansa,
hast Du es schon einmal mit
BeginUpdate / EndUpdate versucht? Das sollte man beim einfügen von großen Datenmengen immer verwenden.
Delphi-Quellcode:
procedure SGBeginUpdate (sg : TStringGrid);
var
ndx : Integer;
begin
for ndx := 0 to sg.RowCount-1 do
begin
sg.Rows[ndx].BeginUpdate;
end;
for ndx := 0 to sg.ColCount -1 do
begin
sg.Cols[ndx].BeginUpdate;
end;
end;
procedure SGEndUpdate (sg : TStringGrid);
var
ndx : Integer;
begin
for ndx := 0 to sg.RowCount-1 do
begin
sg.Rows[ndx].EndUpdate;
end;
for ndx := 0 to sg.ColCount -1 do
begin
sg.Cols[ndx].EndUpdate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SGBeginUpdate(StringGrid1);
// Füllen des StringGrids mit Daten
SGEndUpdate(StringGrid1);
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"