Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
Hast Du das FormCreate auch dem OnCreate zugewiesen (Objektinspektor)?
Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
Ungetestet:
procedure Laufschrift(Text:string;timer:ttimer;var Ausgabe:string);
begin
a:=Text;
inc(i);
if i > length(a)then
begin
timer.Enabled:=false;
exit;
end;
Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
Wem es Spaß macht:
procedure Reset(out Zahl: integer);
begin
Zahl := -1;
end;
Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
Das wäre eine Möglichkeit. Du kannst sie auch als globale Variable unter implementation schreiben, oder Du machst ein privates Feld Deines Formulars daraus, oder Du erstellst Dir eine eigene Klasse für den Lauftext und deklarierst sie dann dort als privates Feld.
Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
An Position (312, 50) bzw. (328, 50) müsste aber das 'A' bzw. 'n' ausgegeben werden ('A' bei i = 0 und nach dem inc(i), 'n' bei i = 1 und auch nach dem inc(i))..
Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
Wofür ist das i denn da? Ist eine lokale Variable dafür sinnvoll? Wenn Du eine solche nicht selbst initialisierst, dann steht da irgend etwas drin.
Forum: Programmieren allgemein
by DeddyH,
25. Nov 2013
Schau Dir mal den Wert von i im Debugger an, dann wirst Du merken, dass das so nicht funktionieren kann.
Forum: Programmieren allgemein
by DeddyH,
18. Nov 2013
Keine Ahnung. Wie ist es so?
Timer.Enabled := false;
sndPlaySound(nil, 0);
canvas.textout(50+i*10,50,s);
sndPlaySound('c:\delphi progs\fenster\windows navigation start.wav',SND_async or SND_FILENAME);
Timer.Enabled := true;
Forum: Programmieren allgemein
by DeddyH,
18. Nov 2013
Dann läuft vermutlich Dein Timer zu schnell, so dass das Sound abspielen nicht mehr hinterher kommt.
Forum: Programmieren allgemein
by DeddyH,
18. Nov 2013
Du weißt, was SND_SYNC macht?