Editfeld durch Zähler automatisch füllen

[Avax2k]

Hallo

ich würde gerne in Erfahrung bringen, wie ich es realisieren könnte einen Zähler zu schreiben der eine Bedingung entweder auf ja oder nein setzt in Abhängigkeit des Intervalles.

sprich in etwa so

Delphi-Quellcode:

for i := 0 to 10 do begin
..
Edit.Text := '1' or Edit.Text := '2';
..

sprich wenn bis 1 gezählt wird soll im Editfeld 1 erscheinen, wenn bis 2 gezählt wird dann soll nichts erscheinen, bis 3 gezählt, wieder 1 und immer abwechselnd sprich ob das editfeld gefüllt wird hängt von der Intervallzahl ab..

wäre super wenn mir jemand helfen könnte ..in der Suche gab es nichts passendes dazu

[KuH_am_SchuH]

ach ne des geht viel einfacher ^^;
also



procedure form1.timer1....

begin

edit1.text := inttostr(strtoint(edit1.text) + 1)
if edit1.text = '10' then timer1.interval := 0;

end;
und dann einfach wenn des editfeld ne bestimme zahl ist dann erscheint was^^

der edit text muss aber davor eine zahl sein ;)

:P

[mkinzler]

[Delphi]
for i := 0 to 10 do begin
..
if (i MOD 2) = 1 then Edit.Text ='1' else Edit.Text := '';
..

[Avax2k]

super danke euch beiden..hat bestens geklappt :) :thumb: