procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
begin
// Propriété MuliSelect du DBGrid1 est à True
if DBGrid1.SelectedRows.Count > 0 then begin
for i := 0 To DBGrid1.SelectedRows.Count -1 do begin
Table1.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
Table1.Delete;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var DateJ: TDateTime;
begin
DateJ := Date();
With Table1 do begin
First;
While (FieldByName('DateResa').AsDateTime < DateJ) and (not Eof) do
Delete;
end;
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
ShowMessage(DateToStr(MonthCalendar1.Date));
end;
27 oct. 2017 à 19:28
pour le bouton ok ca peu être utile mais la dans mon cas cela m obligerais a sélectionné manuellement les lignes .
après je ne sais pas utilisé les autres codes et serait p être trop long a apprendre pour moi je suis pas un pro !! et ne suis pas assez souvent a programmé .
auriez vous une autre solution ? en restant axé sur paradox et delphi
ce que je voudrais cet juste qu avec une date donnée que la fonction puisse allez rechercher tous les lignes ayant cette date et les sélectionnés automatiquement et les supprimer et cela sur un seul clic ;-)
si merci pour votre première réponse je garde sous le coude le petit code pour le bouton ca pourra me servir ultérieurement .