Verbesserung zu:
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;
So sollte es richtig erklärt sein:
Es gibt 5 Punkte.
Wird Punkt 1 angesteuert, wird eine 1 und (1) für "ansteuerung 1" dazugeschrieben.
wird danach aber Punkt 3 angesteuert, wird eine 3-für Punkt 3, und eine (2) für "ansteuerung 2" dazugeschieben.
so sollte es sein, laut meinem code, aber es funkt nicht.