G
goddy
Unregistered / Unconfirmed
GUEST, unregistred user!
如何用Rich實現堅排
M
mytree
Unregistered / Unconfirmed
GUEST, unregistred user!
是richedit吗？
G
goddy
Unregistered / Unconfirmed
GUEST, unregistred user!
是richedit
T
Tense
Unregistered / Unconfirmed
GUEST, unregistred user!
问题不是很清楚；
E
eric.youbin
Unregistered / Unconfirmed
GUEST, unregistred user!
选择字体＂@宋体＂可以让汉字倒下来，然后，你只需要把控件也倒下来就实现了
T
Town
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵， 好像控件是倒不下来的吧。 不知道Word中的竖排是如何实现的，
但肯定不是@宋体的方法
但肯定不是@宋体的方法
G
goddy
Unregistered / Unconfirmed
GUEST, unregistred user!
不是用字体实现的，我是要排版的
E
eric.youbin
Unregistered / Unconfirmed
GUEST, unregistred user!
看来不是很好解决，我帮你提前；
H
hfhuga
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,li_maxlength:integer;
s_array:array[1..10] of string;
begin
li_maxlength:=length(memo1.Lines[0]);
for i:=1 to memo1.Lines.Count-1 do
begin
if li_maxlength<length(memo1.Lines) then
li_maxlength:=length(memo1.Lines);
end;
for j:=1 to li_maxlength do
begin
s_array[j]:='';
for i:=1 to memo1.Lines.Count do
begin
if length(memo1.Lines[i-1])>=j then
s_array[j]:=s_array[j]+copy(memo1.Lines[i-1],j,1)
else
s_array[j]:=s_array[j]+' ';
end;
end;
memo1.Clear;
//memo1.Font.Style:=
for i:=1 to li_maxlength do
memo1.Lines.Add(s_array);
end;
var
i,j,li_maxlength:integer;
s_array:array[1..10] of string;
begin
li_maxlength:=length(memo1.Lines[0]);
for i:=1 to memo1.Lines.Count-1 do
begin
if li_maxlength<length(memo1.Lines) then
li_maxlength:=length(memo1.Lines);
end;
for j:=1 to li_maxlength do
begin
s_array[j]:='';
for i:=1 to memo1.Lines.Count do
begin
if length(memo1.Lines[i-1])>=j then
s_array[j]:=s_array[j]+copy(memo1.Lines[i-1],j,1)
else
s_array[j]:=s_array[j]+' ';
end;
end;
memo1.Clear;
//memo1.Font.Style:=
for i:=1 to li_maxlength do
memo1.Lines.Add(s_array);
end;
H
_hsh
Unregistered / Unconfirmed
GUEST, unregistred user!
是从左到右还是从右到左？
I
ioly
Unregistered / Unconfirmed
GUEST, unregistred user!
hfhuga的程序好像是自己排...
G
goddy
Unregistered / Unconfirmed
GUEST, unregistred user!
从右到左
H
_hsh
Unregistered / Unconfirmed
GUEST, unregistred user!
将hfhuga的程序改改：
1.汉字占2个字节，所以输入时要注意全教与半角（标点问题）
2.把程序改为逆序，且从memo宽度的右侧向左读
3.注意显示位置应该从右到左
1.汉字占2个字节，所以输入时要注意全教与半角（标点问题）
2.把程序改为逆序，且从memo宽度的右侧向左读
3.注意显示位置应该从右到左
G
goddy
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。