[求助]Label标签文字竖排

我自己来回答,我自己升职加薪！！
最笨的方法：
Label1.Caption='a'+#13+'b';

　网络有段这样的代码，但是中英混合字符的时候有问题。　
const poemary: array[0..6] of string = ('aaaa游子吟', '慈母手中线', '游子身上衣', '临行密密缝', '意恐迟迟归', '谁言寸草心', '报得叁春晖');

function convertstring(source:string):string;
var
i,j:integer;
a,b:array[0..50] of char;
begin
StrPCopy(a, source) ;
j:=0; i:=0;
while (a[j] <>#0) do
begin
b[i]:=a[j];
if (j mod 2=1)and(j>0) then
begin
Inc(i); b[i]:=#13;
end;
Inc(j); Inc(i);
end;
b[i-1]:=#0;
result:= strpas(b);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
labary:array[0..6] of Tlabel;
i:integer;
begin
for i:=0 to 6 do
begin
labary[i]:=Tlabel.Create(self);
labary[i].parent:=self;
labary[i].caption:=convertstring(poemary[i]);
labary[i].top:=(form1.Height-labary[i].height) div 2;
labary[i].left:=10+i*33;
end;
end;

[此贴子已经被作者于2007-5-17 18:48:29编辑过]