Как программно нажимать button до тех пор пока label не изменится

[Roman123654789]

Как программно нажимать button до тех пор пока label не изменится.
Заранее спасибо

[northener]

<offtop>
Сегодня вроде не первое апреля?
</offtop>

[Lardes]

if Label.Caption <> 'изменился' then
  Button.Click;

UPD. А так да, жестокий вопрос

[Roman123654789]

Сообщение от Lardes

if Label.Caption <> 'изменился' then
  Button.Click;

UPD. А так да, жестокий вопрос

программа зависает и не реагирует

[Аватар]

Сообщение от Roman123654789

программа зависает и не реагирует

Шедеврально ++

[Stilet]

программа зависает и не реагирует

Все правильно. Именно так и должна работать программа по заданию

программно нажимать button до тех пор пока label не изменится.

Меняй задание. Уточняй, тогда и ответы будут другие.

[doktor255]

Как программно нажимать button до тех пор пока label не изменится

Если я тебя ударю монтировкой, у тебя какой шнурок развяжется? (с)

[STRELOK-2007]

Кидаешь на форму TTimer, ставишь интервал какой нужен (скажем 500мс), в событие onTimer ставишь тот код. Все.

Код можно модифицировать так, что бы таймер отключался:

if Label.Caption <> 'изменился' then
 Button.Click
else
 Timer.Enabled:= False;

И да, запуск таймера так:

Timer.Enabled:= True;

P.S.
Можно еще все это дело сделать в отдельном потоке.

[Roman123654789]

Сообщение от Stilet

Все правильно. Именно так и должна работать программа по заданию

Меняй задание. Уточняй, тогда и ответы будут другие.

У меня просто проблема с бд, когда я ввел данные в таблицу, нажимаю рассчитать оно сразу все обсчитывает, а когда я сли что-то редактирую в той таблице и снова нажимаю рассчитать то тогда он не рассчитывает а через некоторое время если снова нажать тогда уж все нормально, вот и не знаю почему у меня такая проблема.

Вот код кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var s: real;
    n: integer;
begin
s:=0;
form3.dbedit2.DataField:='';
form3.dbedit1.DataField:='';
form3.dbedit3.DataField:='';
dbgrid1.Visible:=true;
dbgrid2.Visible:=false;
with form1.ADOQuery1  do
begin
  close;
SQL.Clear;
 Sql.Add('SELECT * from запрос2');
 open;
end;

dbgrid1.Columns[3].Visible:=false;
ADOquery1.First;
for n:=1 to ADOquery1.RecordCount do begin
    s := s + ADOquery1.FieldByName('Ціна').AsFloat;
    ADOquery1.Next;
    Label1.Caption :=FloatToStr(s);
end;
label1.Visible:=true;
label2.Visible:=true;
label4.Visible:=true;
Label4.Caption :='Введено пігментів: '+inttostr(ADOQuery1.RecordCount);
end;

[Stilet]

А что ты там такое расчитываешь? Давай колись. Да поподробнее. В каждый каппилярчик.