如何竖着输出文字？(50分)

S

sungolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #1

没有能把文字竖着输出的函数？
如：str:='象ab这cd样';

象
a
b
这
c
d
样

目前我想到的方法及遇到的问题是：
一：加#13，但有中文和英文混合的不好判断在哪里添加#13（字符串是变量），
如果再分析二进制码就把问题复杂化了。
二：DrawText，同样的问题，DrawText可按照一个个字输出，象上面的例子中ab就
不能分开。想加空格，又回到问题一了。
三：使用'@宋体'加旋转。但如果机器里没有这种字体就惨了。

有那位高手知道好的方法，还望指点一二。多谢！

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #2

string := 'A'+#13+'b';
showmessage(string);

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #3

wstr : widestring;
wstr := '象ab这cd样';

 

G

goujie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #4

var icount:integer;
aa:string;
str : widestring;
begin
str := '象ab这cd样';
for icount:= 1 to length(str) do
begin
aa:=aa+str[icount]+#13;
end;
showmessage(aa);

 

M

microyzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #5

像以前dos下输出屏幕图象一样，每个字符都有坐标

1234567890
1234567890
1234567890
1234567890
像上面这个屏幕，一个横坐标和纵坐标决定了它的位置
这个原理不知是不是容易实现一点？

 

S

sungolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #6

原来是用widestring，我怎么没想到呢？谢谢影子和goujie！