怎么把一个文字用别的字符表示出来！
怎么把一个文字用别的字符表示出来！如：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" "
当然我只需一种字符表示就行了。
如全用：★或别的把”中秋快乐“表示出来！多谢指教！
问题点数：0、回复次数：8Top
1 楼edgethinking（学习.net中...）回复于 2003-11-03 23:07:29 得分 0
找一个方格形的本子， 就是小学写作文的本子，
用你的字符添在格子里， 组成一个中秋快乐的字样， 然后看每个字符在什么位置，
记下来，然后写代码，
word[1][1] := '*';
word[2][3] := '*';
word[100][23] := '*';
。。。。。。。。。。。
一个个的写。Top
2 楼zswangII（伴水清清)(一贴不灌，何以灌天下？）回复于 2003-11-04 00:08:40 得分 0
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;Top
3 楼hawind（蓝色的风）回复于 2003-11-04 10:34:27 得分 0
to:zswangII(伴水清清)(职业清洁工)
你给的程序我调试后只能得到方格子，出不了字的形状。Top
4 楼hawind（蓝色的风）回复于 2003-11-04 17:34:13 得分 0
UpingTop
5 楼saien（精益求精）回复于 2003-11-04 17:49:12 得分 0
upTop
6 楼hawind（蓝色的风）回复于 2003-11-05 15:36:24 得分 0
怎么也没人回答啊！Top
7 楼hawind（蓝色的风）回复于 2003-11-06 08:20:12 得分 0
在线等待。Top
8 楼hawind（蓝色的风）回复于 2003-11-06 14:18:17 得分 0
UpingTop
