数据转换问题(0分)

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-25

• #1

文本文件中多条记录，其结构如下：
时间 记录员号码 金额
20030623 002 46,680.63
20030623 001 2,000.00
...... ... ........
程序需要实现金额的累计，问题是如何将金额的数据形式转换为程序可实现的形式（文本文件中金额的书写形式并非规范形式，如上所列）？

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-26

• #2

var
S:string;
Fouble;
begin
S:='1,234.00';
S:=StringReplace(s,',','',[rfReplaceAll]);
F:=StrToFloat(S);
end;

 

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-26

• #3

现在有一相反的问题，我想把123400转换成金额的书写形势（1,234.00），是否有相应的函数来解决这个问题

 

E

emoth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-26

• #4

FormatFloat('0,.00',变量);

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-26

• #5

var
S:string;
Fouble;
begin
F:=1234;
S:=FormatFloat('#,##0.00',F);
end;

 

M

mayb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-27

• #6

相反问题：
自定义：思路是先把数值123400 转换成 字符型 然后再处理 就简单了

 

B

babyrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-23

• #7

接受答案了.