so简单的问题，我不会

Question

6, 6A, 0D                                            
1, Ua, A, , V, 0.01, 0.0, , 0.0, -32000, 32000
2, Ub, B, , V, 0.01, 0.0, , 0.0, -32000, 32000
3, Uc, C, , V, 0.01, 0.0, , 0.0, -32000, 32000
4, Ia, A, , A, 0.01, 0.0, , 0.0, -32000, 32000
5, Ib, B, , A, 0.01, 0.0, , 0.0, -32000, 32000
6, Ic, C, , A, 0.01, 0.0, , 0.0, -32000, 32000
50
1
1000,435
6/1/2000,20:21:0.932
6/1/2000,20:21:0.932
ASCII6, 6A, 0D
1, Ua, A, , V, 0.01, 0.0, , 0.0, -32000, 32000
2, Ub, B, , V, 0.01, 0.0, , 0.0, -32000, 32000
3, Uc, C, , V, 0.01, 0.0, , 0.0, -32000, 32000
4, Ia, A, , A, 0.01, 0.0, , 0.0, -32000, 32000
5, Ib, B, , A, 0.01, 0.0, , 0.0, -32000, 32000
6, Ic, C, , A, 0.01, 0.0, , 0.0, -32000, 32000
50
1
1000,435
6/1/2000,20:21:0.932
6/1/2000,20:21:0.932
BINARY这是两个不同的配置文件，通过读最后一行，判断原文件是ASCII，还是BINARY文件

Answer 1

var
  f: TextFile;
  s: string;
begin 
  assignFile(f, 'c:\config.txt');
  reset(f);
  while not f.eof
    readln(f, s);
  fileclose(f);
  if uppercase(s) = 'BINARY' then  else if UpperCase(s) = 'ASCII' then
  

Answer 2

Agree with CloneCenter(复制中心) !up!