怎么把一个文字用别的字符表示出来！

[hawind]

怎么把一个文字用别的字符表示出来！如：QQ字符画一样。
如”中秋快乐“
Dm mmDm Dm Dm Dm m mmmDm
m DD m ""Dm DD m DD mmDDmmDm DD""D"
DD"""DD"""DD" mmmDDmDm DD mD" mDDDm DD DD DD DD
DD DD DD mDDm DDDD"" D"DD " DD DD mmDDmmDDmmDm
DDmmmDDmmmDD mDDD"D" DDm DD """DD""""" m DD m
" DD " m" DD D" Dm DD DD"Dm DD" DD Dm
DD DD mD" "Dm DD DD DDm mD" m DD "Dm
D" D"m" "D" D"m"" "D"" "D" "
当然我只需一种字符表示就行了。
如全用：★或别的把”中秋快乐“表示出来！多谢指教！

[edgethinking]

找一个方格形的本子， 就是小学写作文的本子，

用你的字符添在格子里， 组成一个中秋快乐的字样， 然后看每个字符在什么位置，
记下来，然后写代码，

word[1][1] := '*';
word[2][3] := '*';
word[100][23] := '*';
。。。。。。。。。。。
一个个的写。

[hawind]

Uping

[saien]

up

[hawind]

to:zswangII(伴水清清)(职业清洁工)
你给的程序我调试后只能得到方格子，出不了字的形状。

[zswangII]

Step.1 将文字绘制在TCanvas上～～
Step.2 通过TCanvas::Pixels[X, Y]访问每点的颜色～～
Step.3 把颜色替换成相应字符～～


procedure TForm1.Button1Click(Sender: TObject);
const
cText = '一个测试';
var
I, J: Integer;
T, S: string;
begin
S := '';
Canvas.TextOut(0, 0, cText);
for I := 0 to Canvas.TextHeight(cText) - 1 do begin
T := '';
for J := 0 to Canvas.TextWidth(cText) - 1 do begin
if ColorToRGB(Canvas.Pixels[J, I]) = ColorToRGB(Color) then
T := T + '□'
else T := T + '■';
end;
S := S + T + #13#10;
end;
Memo1.Text := S;
Memo1.WordWrap := False;
end;

[hawind]

怎么也没人回答啊！

[hawind]

Uping

[hawind]

在线等待。