MultiSelect und while do

[HolgerCW]

Hallo zusammen,

ich habe ein DBGRid unter Options als "MultiSelect deklariert.

Nun kann ich auch mit gedrückter STRG-Taste mehrere Zeilen auswählen.

Wie kann ich aber nun mit meiner While ... do - Schleife nur die markierten Zeilen bearbeiten. Hier meine Schleife:

Delphi-Quellcode:

Query.First;
while Query.Eof <> true do
begin

 if (Query['AKTIV'] = NULL)
 AND ((Query1['EINMALIG'] = NULL) OR (Query['LETZTE_UW'] = NULL))
 AND (Query['NAECHSTE_UW'] <= Date) 
 AND MultiSelect = TRUE then ???
 begin
 
  ... Tu was ...

 end;

end;

Gruss

Holger

[DeddyH]

Hier das Beispiel aus der D5-Hilfe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
    for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';

          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

[HolgerCW]

Danke DeddyH,

geht das nur über das DBGrid, oder kann man auch über die Query, die dem DBGrid zugewiesen ist, gehen ?

Gruss

Holger

[DeddyH]

Die entscheidende Zeile ist ja GotoBookmark, was wiederum eine Methode von TDataset ist. Hier könntest Du ansetzen.

[HolgerCW]

Vielen dank. Werde mcih da mal reinarbeiten.

Gruss

Holger