Folgende Probleme:
Ich habe x so deklariert:
x : Integer = 1;
Ganz oben bei
Delphi-Quellcode:
var Form1: TForm1;
x : Integer = 1;
Mit folgender Schleife zähle ich x von 1 bis 5 hoch:
Delphi-Quellcode:
for x := 1 to 5 do
begin
inc(x,1);
Caption := IntToStr(x); // dient nur dazu, dass ich die zahl SEHEN kann
end;
So..
Mit Canvas lass ich "malen". Von Punkt zu Punkt:
Delphi-Quellcode:
// Ein Case, von 1 bis 5
1: begin
Image.Canvas.TextOut(20, 30, '1 '+IntToStr(x));
// Strich Nr. 1 erfolgt, Zahl 1 (x) wird daneben geschrieben <=
// Ergebnis: <=
// 1 (1) <=
Image.Canvas.MoveTo(30, 30);
end;
....
3: begin
Image.Canvas.TextOut(40, 40, '3 '+IntToStr(x));
// Ab hier geht x verloren. Es sollte angezeigt werden <=
// 3 (2) <=
// Angezeigt wird lediglich "3" <=
// WIESO? <=
Image.Canvas.MoveTo(50, 40);
end;