So würde ich es etwas übersichtlicher finden.
Eine Prozedur zum Textschreiben und eine um die einzelnen Zeichen zu zeichnen.
Delphi-Quellcode:
procedure writeLetter(c:char);
begin
case c of
'1' : begin
TextMoveTo(0,0);
TextLineTo(0,7);
end;
'2' : ....
end;
end;
procedure TextDraw(StartX,StartY,Winkel: Double; Text: String);
var
i,c : integer
begin
for i := 1 to length(Text) do
begin
{c := ord(Text[i]);
case c of
49 : Letter_1;
end; }
writeLetter(Text[i]);
end;
end;
Grüße
Klaus