Q
qgqg
Unregistered / Unconfirmed
GUEST, unregistred user!
请高手帮我看看
var
X:matrx2
const
s1='%10.3f';
.....
setlength(X,17,4);
....
AssignFile(F, 'd:/delphi_shu/p1/d1r1.dat');
Rewrite(F);
For i:= 1 To 10 do begin
Writeln(F,Format(s1,[X[i,1]])); //这句运行时怎是出错
end;
CloseFile(F);
var
X:matrx2
const
s1='%10.3f';
.....
setlength(X,17,4);
....
AssignFile(F, 'd:/delphi_shu/p1/d1r1.dat');
Rewrite(F);
For i:= 1 To 10 do begin
Writeln(F,Format(s1,[X[i,1]])); //这句运行时怎是出错
end;
CloseFile(F);