TClientDataSet Alle markierten Felder auf den Wert x setzen?

[mr47]

Hi Leute.

Ich habe ein

- TClientDataSet
- TDataSource
- DBGrid

Bei dem Grid ist multiSelect auf true.

Wie kann ich jetzt machen, dass bei allen markierten Einträgen in der Datenbank X das Feld y auf einen bestimmten Wert gesetzt wird?

Danke im voraus

mr47

//EDIT: Ich stell die Frage mal ein bisschen einfacher: Wie kann ich alle ausgewählten Einträge bearbeiten?

[eddy]

Hallo mr47,

auf die Schnelle (ungetestet):

Code:

for i := 0 to YourGrid.SelectedRows.Count-1 do begin 
  if BookmarkValid(TBookmark(YourGrid.SelectedRows.Items[i])) then begin 
    GotoBookmark(TBookmark(YourGrid.SelectedRows.Items[i])); 
    { Tu_Was_Mit_Daten; } 
  end; 
end;

Quelle: http://www.tif-masters.de/progra/delphi/index.html

Vielleicht hilft's weiter.

mfg
eddy

[mr47]

Danke für deine Antwort. Aber was ist "BookmarkValid" und "GotoBookmark". Delphi meldet

Zitat:

[Error] editBookUnit.pas(146): E2003 Undeclared identifier: 'BookmarkValid'

??

[eddy]

Hallo mr47,

so ist das eben, wenn man das Zeug nicht selber testet!

Hier ein funktionsfähiges Beispiel, soeben erfolgreich probiert:

Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  zel : integer;
  s : string;
begin
  zel := dbg1.SelectedRows.Count;
  if zel = 0 then exit;

  Tab1.DisableControls;
  Tab1.Last;
  while not Tab1.Bof do begin
    if dbg1.SelectedRows.CurrentRowSelected then begin
      // Aktion mit den ausgewählten Datensätzen ausführen
      // hier: Lösche den gewählten Satz
      Tab1.Delete;
    end;
    Tab1.Prior;
  end;
  Tab1.EnableControls;
end;

Viel Erfolg!

mfg
eddy

[mr47]

Vielen vielen Dank