Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
20. Apr 2015
Ich auf jeden Fall nicht.
Ich schrieb, dass XPos nicht geändert wird, und dies ist nicht die Position des Zeichenstiftes, sondern nur eine Variable.
Genau das habe ich auch noch geschrieben.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
20. Apr 2015
Das ist natürlich Käse, denn Du hast das TextOut vergessen.
Und bei TextOut wird die PenPos auf die rechte obere Ecke gesetzt und somit wird die Linie selbstverständlich gezeichnet.
procedure TForm1.Button1Click(Sender: TObject);
var
XPos: Integer;
YPos: Integer;
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
17. Apr 2015
Schau Dir den Quellcode, welchen Du gepostet hast an und versuche ihn zu verstehen.
Kleine Hilfe:
Mit TextOut gibst Du den Text aus.
Dann kommt XPos := XPos + .... in dieser Zeile wird XPos ein neuer Wert zugewiesen.
Danach willst Du die Linie zeichnen.
Du musst die Linie natürlich voher zeichnen, bevor XPos einen neuen Wert bekommt.