-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Nee hast recht läuft. Herje worauf mann auch alles achten darf XDD. Danke
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
gibt leider nur ne leere form
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Danke habe es jetzt so gemacht
procedure TForm1.Laufschrift(Text:string;timer:ttimer;la:Tlabel);
begin
a:=Text;
inc(i);
if i > length(a)then
begin
timer.Enabled:=false;
exit;
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Danke :)
Habe mal versucht ein Procedure draus zu basteln
Funktioniert nur nicht hmmmm Wo ist der fehler???
procedure Laufschrift(Text:string;timer:ttimer;Ausgabe:string);
begin
a:=Text;
inc(i);
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Oh Ja alles klar Danke
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=-1;// Variable i zurücksetzten
label1.Caption:='';
timer1.Enabled:=true;
end;
Kann ich auch was anderes für i:=-1; schreiben sowas wie reset(i) oder so???
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Warum startet er den Timer nicht mehr wenn ich ihn erneut aktiviere
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:='';
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Danke Baumina jetzt klappt es
begin
a:='Anrede';
inc(i);
if i > length(a)then
begin
timer1.Enabled:=false;
exit;
end;
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
den Text gibt er trotzdem nicht aus ????
Kann mann nicht statt canvas.textout label1.caption ändern???
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Das heisst ich muss i hier hinsetzen richtig
var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Hier mal der code Es ändert sich nichts
var
a:String;
i:integer;
begin
a:='Anrede';
i:=1;
if i > length(a)then
begin
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Hmmmmmm ???
Selbst wenn ich i:= 1; zu weise ändert sich nichts
er intitialisiert i aber bei label1 ändert sich nichts er schreibt den Text out nicht
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Var i might not have been initialized. Welchen wert muss ich denn i geben ( inc(i); ) scheint ja denn nicht zu funtionieren
-
Forum: Programmieren allgemein
by Natcree,
25. Nov 2013
Was muss ich machen wenn Der Textout in einem Label erscheinen soll ??
Habe mal das ausprobiert passiert aber nichts
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:String;
i:integer;
begin
a:='Anrede';
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
komisch bei menushowdelay in der registry kann man auf null setzen und er spielt es auch gut ab. wieso geht es hier nicht.
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
keine änderung hmmmm????
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
kann mann da was machen????
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
Ja aber selbst wenn ich diesen einsetze spielt er bei 200 milsek. im timer den Sound nur einmal ab
canvas.textout(50+i*10,50,s);
sndPlaySound(nil, 0);
sndPlaySound('c:\delphi progs\fenster\windows navigation start.wav',SND_async);
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
Ja weiss ich habe es auch mit async versucht
SND_ASYNC Der Ton ist asynchron und spielte PlaySound kehrt sofort nach Beginn der Sound. Um eine asynchron gespielt Wellenform Ton beenden, rufen PlaySound mit pszSound auf NULL gesetzt.
Wie kann ich pszsound auf null setzen??
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
Danke erstmal
Nun soll auch sound abgespielt werden jedoch bremst dieser die geschwindigkeit aus kann ich da was gegen machen
var
s:String;
begin
s:='Hallo';
inc(i);
if i > length(s) then
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
var
s:string;
i:integer;
begin
edit1.text:='Hallo';
s:=edit1.text;
for i:=1 to length(s) do
canvas.textout(50+i*10,50,s);
end;
-
Forum: Programmieren allgemein
by Natcree,
18. Nov 2013
Hallo ich möchte einen Lauftext erstellen. Dieser soll von rechts nach links laufen und ein wort Zeichen weise zusammensetzen
Edit.text := Hallo
das erste Zeichen also "H" soll einrücken wenn es steht dann soll das "a" kommen
H <--- a
Ha <--- l
Hal <--- l
Hall <--- o