Question

delphi按知道格式读取txt文件的内容。

我希望读取txt文件的一行内容，内容是一个共10位的数字串，如0000012345，我想清除前面的0，并且最后两位为小数，即123.45；再如0000456789，则应该读取为4567.89；最后再用Label显示出来。请帮忙，给个代码，谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
stmp: string;
num: Integer;
begin
if FileExists('e:\abc123.txt') then
begin
AssignFile(f, 'e:\abc123.txt');
Reset(f);
while not Eof(f) do
begin
Readln(f, stmp);
num := StrToIntDef(stmp, -1);
if num <> -1 then
label1.Caption := FormatFloat('0.00', num/100);
end;
CloseFile(f);
end;
end;

Answer 2

从txt文件中读取后付值给一个string变量，再把这个变量转为integer型，那他前面的0就自动去除了，再除100不就OK了，没装DELPHI没试过，不过应该可以