Master.Fisrt; firstID = Master.FieldByName('ID').AsString; while(not Master.EOF)do begin if Master.FieldByName('CHECK').AsBoolean = true then lastID = Master.FieldByName('ID').AsString; Master.Next; end; showmessage(firstID ); showmessage(lastID );
Master.Fisrt;@+
FirstID := '';
LastID := '';
while (not Master.EOF) do
begin
if Master.FieldByName('CHECK').AsBoolean = True then
begin
if FirstID = '' then
FirstID = Master.FieldByName('ID').AsString;
else
LastID = Master.FieldByName('ID').AsString;
end;
Master.Next;
end;
ShowMessage(Format('La premiere valeur à true est : %s'+#13#10+'La derniere valeur à true est : %s',[FirstID, LastID]));
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
21 mai 2014 à 22:17
j'essayerai demain merci !