Question

delphi中给定一串数据，提取出固定位置，如何提取？

那个500次循环，提取数组indata【2】，indata【3】，indata【6】。indata【7】，，，，依次类推，还有最后的两个数据indata【2000】和indata【2001】，这样如何提取？

Answer 1

可以考虑使用 delphi 的记录（ record ）类型来构造一个记录结构，通过将数据读取到指定结构（记录）里来完成对特定编码数据的读写。通常对于特定格式的文件进行读写时大多采取这种方式。

以下是示例代码：

1、记录定义

TFileRec = record 　　//记录定义
Day : Integer;
...　　　　　　　　　　//其他定义
end;
f : File of TFileRec;  　　//标准的输入/输出文件
FilRec : TFileRec;  　　  //记录数据
FileName ;           　　  //记录文件的名称

2、记录文件的读入

procedure ReadData_FromRecFile;
begin
for i := 1 to FileSize(f) do
begin
Read(f, FileRec);
... //其他的处理（比如记录的显示等等）
end;
end;

3、记录的修改

procedure ModifyData_AtRecFile(const Index : Integer; const Data : TFileRec);
begin
if (Index < 0) or (FileSize(f) = 0) or (Index > FileSize(f) - 1) then
Exit;
Seek(f, Index);
Write(f, Data);
end;

追问

我用的是单片机串口发送的数据，然后用delphi做的上位机，这个用这个怎么实现？