Pętla repeat


(Mr Hektor) #1

Da się zrobić, że po każdym jednorazowym wykonaniu pętli repat Label na formie się będzie aktualizował ? Bo mam powiedzmy taki kod:

begin

x := 0;

repeat

x := x + 1;

Label2.Caption := IntToStr(x);

until

x = 100;

I label zmienia się na 100 dopiero po skończeniu pętli, a chciałbym, żeby cały czas się zmieniał 1,2,3... itp. Może trzeba użyć innego komponentu ? Proszę o pomoc.


(struart) #2

Czy w czasie tej pętli program jakby zamiera/zwiesza się do czasu ukończenia pętli ? :slight_smile:

Jak tak to odpal tą pętlę w osobnym wątku(nie pamiętam jak się ten komponent nazywał poza tym nie wiem w czym piszesz :slight_smile: więc poszukaj czegoś z THREAD) wtedy forma będzie nie zawieszona i będzie się aktualizować.

I weź pod uwagę fakt, że może pętla wykonuje się strasznie szybko i dlatego masz od razu 100 :slight_smile:


([alex]) #3

Label2.Caption := IntToStr(x);

Label2.Repaint;


(Mr Hektor) #4

Dokładnie tak. :slight_smile:

Dzięki działa. Złoty człowiek.