DBGrid SelectedRows

[-187-]

Moin, ich hab ein kleines Problem mit meiner Datenbank. Ich habe ca 50.000 Einträge und möchte jetzt von allen selektierten Einträge ein Feld in einer Stringlist speichern.

Das ganze mache ich so, is aber sehr langsam:

Delphi-Quellcode:

  for i:=0 to DBGrid1.SelectedRows.Count-1 do
  begin
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
    ClearList.Add(DBGrid1.DataSource.DataSet.FieldByName('NUMBER').AsString);
  end;

Kann das jemand performanter gestalten?

[Sir Rufo]

Delphi-Quellcode:

var
  fld : TField;


  fld := DBGrid1.DataSource.DataSet.FieldByName('NUMBER');
  for i:=0 to DBGrid1.SelectedRows.Count-1 do
  begin
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
    ClearList.Add(fld.AsString);
  end;

[-187-]

Hmm wirklich schneller gehts das damit nicht Warum auch ?

Edit: Jedes GotoBookmark wird ja im GUI angezeigt. Kann man das irgendwie für diese Dinge "abkoppeln"?

[joachimd]

Zitat von -187-:

Jedes GotoBookmark wird ja im GUI angezeigt. Kann man das irgendwie für diese Dinge "abkoppeln"?

DisableControls heisst das Stichwort.

[-187-]

Und es funktioniert sogar

Vielen Dank!

[-187-]

Hm das war aber nicht alleine die Ursache für meine lame Anwendung. Nachdem ich alle Werte der Clearlist hinzugefügt habe möchte ich für diese Datensätze ein Query ausführen. Momentan mach ich das so:

Delphi-Quellcode:

  for i:=0 to ClearList.Count-1 do
  begin
    IBQuery2.Close;
    IBQuery2.SQL.Clear;
    IBQuery2.SQL.Add(Format('UPDATE %s SET '+ ...
    IBQuery2.Open;
    IBQuery2.Close;
  end;

Ich muss für jeden Datensatz den SQL Command ausführen. Alle Commands adden und am Ende einmal ausführen funktioniert nicht. Das macht die Sache auch ziemlich lahm :/