Timer

[dorfrichi]

also wir sollen n programm schreibn, wo in nem textfeld langsam die Zahlen von 1 bis x (egal bis zu welcher zahl) mithilfe der timerfunktion zählt. ich habe allerdings keine ahnung davon. kann mir jm zeign wie's geht?! vielen dank für eure hilfe schonma!

[Der.Kaktus]

solltest vielleicht mal bissl lesen--->Timer

[Nuclear-Ping]

Datei -> Neu -> Anwendung -> Aus der Werkzeugleiste aus dem "Standard"-Reiter ein TEdit doppelklicken -> Dann den "System"-Reiter wählen -> Timer doppelklicken.
Auf der Form dann das Symbol für das TEdit 1x anklicken, F11 drücken. Aus dem Objektinspektor die Eigenschaft "Text" suchen, dort 0 reinschreiben. Dann den Timer auf der Form 1x anklicken, F11 drücken, im Objektinspektor "Active" auf "True" stellen. Timer auf der Form doppelklicken und folgenden Code reinhauen:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := inttostr (strtoint (Edit1.Text) + 1);
end;

F9 drücken und freuen.

[DeddyH]

So schnell kann man seine Hausaufgaben machen, gell, Mario? :mrgreen:

[Der.Kaktus]

:coder2:

Zitat:

Zitat von DeddyH

So schnell kann man seine Hausaufgaben machen, gell, Mario? :mrgreen:

loool, ich wollts gerade schreiben :warn:


@Mario Man sollte auch mal den Kopf anstrengen und eventuell was lesen um eine Aufgabe zu lösen. Es hilft vielleicht,dass in der nächsten Aufgabe der Ansatz zur Lösung schneller gefunden wird. *Tip.geb*

[Nuclear-Ping]

Ja, normal bin ich ja immer der, der meckert. ;) Kommt nicht wieder vor. :mrgreen:

Aber da weder Google "Delphi Timer Tutorial" noch der Link vom Kaktus 'ne schnelle Lösung versprachen, wollt ich grad mal nicht so sein. :P

[Der.Kaktus]

@mario es sei Dir verziehn..gib einen aus und wir vergessen es!! :cheers: :-D

[dorfrichi]

hey vielen dank und natürlich ein ausgeb^^^^
prost

[busybyte]

strtointdef(Edit1.Text,0)