1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:

//schreibt die Buchstaben aus dem String in eine Bitmap
//@bmp: Bitmap in die die Bichstaben geschrieben werden;
//@str: String der in die Bitmap geschrieben werden soll;
procedure GetBitmapFontString(bmp: TBitmap; str: String);
var Font: TBitmap;
var i, x, y: Integer;
var SourceRect, DestRect: TRect;
begin
  //Font-Bitmap laden
  Font := TBitmap.Create;
  Font.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'font.bmp');

  //String auf gültige Zeichen prüfen
  str := LowerCase(str);
  i := 1;
  while i <= Length(str) do begin
    if not (str[i] in [' ','a'..'z','.','!','?','0'..'9',',',':','-','"','$','''']) then
      delete(str, i, 1)
    else
      inc(i);
  end;

  //Koordinaten des Zeichens ermitteln und in BMP kopieren
  x := 0;
  y := 0;
  bmp.Width  := Length(str) * 64;
  bmp.height := 64;
  for i := 1 to Length(str) do begin
    case str[i] of
//LEERZEICHEN
      ' ': begin
        x := 0;
        y := 0;
      end;
//BUCHSTABEN A BIS Z
      'a'..'z': begin
        x := Ord(str[i])-96; //bei 'a' ist x = 1;
        y := 0;
        while x > 15 do begin
          dec(x, 16);
          inc(y);
        end;
      end;
//PUNKT
      '.': begin
        x := 11;
        y :=  1;
      end;
//AUSRUFEZEICHEN
      '!': begin
        x := 12;
        y :=  1;
      end;
//FAGEZEICHEN
      '?': begin
        x := 12;
        y :=  1;
      end;
//ZIFFER 0
      '0': begin
        x := 7;
        y := 2;
      end;
//ZIFFERN 1 BIS 9
      '1'..'9': begin
        x := Ord(str[i])-35; //bei '1' ist x = 14;
        y := 0;
        while x > 15 do begin
          dec(x, 16);
          inc(y);
        end;
      end;
//KOMMA
      ',': begin
        x := 8;
        y := 2;
      end;
//DOPPELPUNKT
      ':': begin
        x := 9;
        y := 2;
      end;
//MINUS/BINDESTRICH
      '-': begin
        x := 10;
        y :=  2;
      end;
//ANFÜHRUNGSZEICHEN
      '"': begin
        x := 11;
        y :=  2;
      end;
//DOLLARZEICHEN
      '$': begin
        x := 12;
        y :=  2;
      end;
//HOCHKOMMA
      '''': begin
        x := 13;
        y :=  2;
      end;
    end;

    //Zeichen in Bitmap kopieren
    SourceRect := Rect(   X * 64, Y * 64, (X+1)* 64, (Y+1) * 64);
    DestRect   := Rect((i-1)* 64,      0,    i * 64,         64);
    bmp.Canvas.CopyRect(DestRect, font.Canvas, SourceRect);
  end;

  //Font freigeben
  Font.Free;
end;					

1:
2:
3:
4:
5:

  //Zeichen in Bitmap kopieren
    SourceRect := Rect(   X * 64, Y * 64, (X+1)* 64, (Y+1) * 64);
    DestRect   := Rect((i-1)* 64,      0,    i * 64,         64);
    bmp.Canvas.CopyRect(DestRect, font.Canvas, SourceRect);
  end;