Z
zhengv
Unregistered / Unconfirmed
GUEST, unregistred user!
如何取三个顺序数据?
三个一组循环取数据,然后判断是否需要的三个顺序数据。
procedure TForm1.Button1Click(Sender: TObject);
type
my=record
data:array[1..2] of Real;
end;
var
f:file of my;
my2:my;
A,B,C,x:Real;
begin
assignfile(f,'c:/1.dat');
reset(f);
while not eof(f) do
begin
read(f,my2);
x:=my2.data[1]/my2.data[2];
如何顺序取显示三个数据?
A:=x; //文件号1第一个数据
b:=x; //文件号2第二个数据
c:=x; //文件号3第三个数据
然后取下三个数据
A:=x; //文件号2第一个数据
b:=x; //文件号3第二个数据
c:=x; //文件号4第三个数据
然后取下三个数据
A:=x; //文件号3第一个数据
b:=x; //文件号4第二个数据
c:=x; //文件号5第三个数据
三个一组循环取数据
end;
closefile(f);
end;
上帝和你都能帮助我,上帝不在我身边只好求你了!
三个一组循环取数据,然后判断是否需要的三个顺序数据。
procedure TForm1.Button1Click(Sender: TObject);
type
my=record
data:array[1..2] of Real;
end;
var
f:file of my;
my2:my;
A,B,C,x:Real;
begin
assignfile(f,'c:/1.dat');
reset(f);
while not eof(f) do
begin
read(f,my2);
x:=my2.data[1]/my2.data[2];
如何顺序取显示三个数据?
A:=x; //文件号1第一个数据
b:=x; //文件号2第二个数据
c:=x; //文件号3第三个数据
然后取下三个数据
A:=x; //文件号2第一个数据
b:=x; //文件号3第二个数据
c:=x; //文件号4第三个数据
然后取下三个数据
A:=x; //文件号3第一个数据
b:=x; //文件号4第二个数据
c:=x; //文件号5第三个数据
三个一组循环取数据
end;
closefile(f);
end;
上帝和你都能帮助我,上帝不在我身边只好求你了!