Prozedur für jeden Buchstaben

[burn]

Hallo Smudo ...

in etwa so ... is aber nur ganz grob ..

Delphi-Quellcode:

procedure Letter_1;
begin
  TextMoveTo(0,0);
  TextLineTo(0,7);
end;

wobei in TextMoveto und TextLineTo direkt in eine Stringlist geschrieben wird
und noch diverse Transformationen durchgeführt werden...

Delphi-Quellcode:

procedure TextMoveTo(x,y: Double);
begin
  Transform(x,y);  // eigene procedure
  List.Add(FloatToStr(x) + ' ' + FloatToStr(y) + ' m')   // String-List
end;

Den Text lass ich dann ungefähr so zeichnen

Delphi-Quellcode:

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;
  end;
end;

Steve