Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Die Variable a kannst du in der Zwischenzeit weglassen und direkt durch die Variable Text (wobei ich die nicht so nennen würde, nenn sie lieber aText, dann kann es zu keinen Namenskonflikten kommen) ersetzen.
Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Die Variable "Ausgabe" kennt die procedure Laufschrift nur lokal, alle Änderungen an der Variable werden nicht zurückgegeben. Zurückgegeben würde sie nur wenn du sie als var definierst (procedure TForm63.Laufschrift(Text:string;timer:ttimer;var Ausgabe:string);) Allerdings kann man Label.Caption nicht als var-Parameter mitgeben.
Diese ganze Konstruktion ist etwas seltsam.
Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Da fällt mir spontan nix dazu ein.
Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Der Timer staret bestimmt, nur hast du vergessen i zurückzusetzen.
Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Wozu ein Label, wenn du eh auf den Canvas schreibst. Also entweder auf Canvas schreiben oder die Caption vom Label ändern : label1.caption := label1.Caption + a;
Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Die Zählervariable um den richtigen Buchstaben im Timer anzuzeigen darf definitiv nicht lokal sein.
Forum: Programmieren allgemein
by baumina,
25. Nov 2013
Die Variable i hast du lokal definiert, so dass der Initialwert immer irgendwas sein wird. Durch inc(i) isser dann halt jedesmal irgendwas+1.
Forum: Programmieren allgemein
by baumina,
18. Nov 2013
Hier ein kleines Beispiel:
type
TForm62 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
Forum: Programmieren allgemein
by baumina,
18. Nov 2013
Nimm einen Timer. Und baue dort Buchstaben für Buchstaben des Wortes auf und brings auf den Bildschirm (z.B. Label rechtsbündig formatiert).