Pozastavení provádění procedury – Delphi – Fórum – Programujte.com

Brý večer,

Pokouším se pozastavit proceduru do chvíle, kdy bude splněna jistá podmínka - pak by procedura pokračovala. Zkoušel jsem to takto:

procedure Provadeci_skupina(cesta: String);
var zablokuj: boolean;
begin
...

repeat
  begin
   zablokuj := False;
   if textovePole.Text <> PozadovanaHodnota then zablokuj := True;
  end;
until zablokuj := True;

...
end;

tímto kódem který čeká na splnění podmínky ale dojde vždy, když se k němu aplikace dostane, k úplnému zaseknutí, pomůže pouze ProgramReset. Poradil by někdo jak tedy bez záseku zdržet pokračování procedury dokud nebude splněna nějaká podmínka?

Děkuji všem :)

Pokud máš jednovláknovou aplikaci, tak tam to samozřejmě nejde. Zablokuješ si to vlákno a konec (tedy spíš program reset :)). U GUI aplikace je v tom vlákně i zpracování zpráv, takže ti "odejde" i překreslování okénka atd.

Máš-li více vláken, tak jedno vlákno bude čekat a druhé ho zase spustí. A samozřejmě se k tomu nepoužívá cyklus, protože ten ti sežere všechen strojový čas (mírně vylepšit by se to dalo použitím sleep). Ovšem úplně nejlepší je na to použít ty správné funkce. V tvém případě třeba semafor.