Delphi : String umtauschen und mit Rectangles ausgeben.

[At0mGuRk3]

Öööhm ok
Sry...


Ich habs gefunden...


Das Problem lag hier:

Delphi-Quellcode:

for i:=0 TO n DO
BEGIN
WITH image1.Canvas DO
BEGIN
Pen.Color:=ClBlue;
rectangle(i*15,i*15,265-i*15,265-i*15);
Textout(0+(i*15),265-(i*15),getauscht[i]);

END;
END;

Jetzt macht ers...
Zumindest bis zu einer bestimmten Stringlänge

Trotzdem danke...

(Hätte vielleicht erst mal selbst weitermachen müssen, statt zu fragen...)

MfG, die Gurke