Prozedur für jeden Buchstaben

[Klaus01]

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