导出到文本文件，格式对齐问题，谢谢指教(100分)

A

abencat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-18

• #1

现在需要把表格中的数据导出到文本文件 ，请问如何实现这样的对齐方式，谢谢指点
格式如下：
0004196721011冯洪米 35.10 0001 Y -0.00
0004196721011冯洪米 2.70 098 Y -0.00
0004216408011冯炎光 182.25 10002 E -0.00

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-18

• #2

tab

 

T

tihu1111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-18

• #3

function format( s:string;count:integer)char;
var
len:integer;
i:integer;
begin
len:=length(s);
if len<count then
for i := 1 to count-len do
s:=s+char(32);//补空格
result:=pchar(s);
end;

 

A

abencat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #4

呵呵不用这么麻烦 自己搞定了一个formatmast

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-22

• #5

Format函数