Help~!

Question

function CheckString(StrIn:string;index:integer;var temp:boolean):string;
var StrinCopy:string;
    StrFilesName:string;
    strFilesNameF:string;
    Rec:TSearchRec;
    Done:Integer;
begin
  temp:=true;
  Done:=FindFirst('E:\_libsrc\del\*.dat',faAnyFile,Rec);   if Done<>0 then
    StrFilesName:=Rec.Name;
    //Done:=FindNext(Rec);
    StrFilesNameF:=Copy(StrFilesName,1,1);  FindClose(Rec);
  if (StrFilesNameF='i') and (index=14) then
    strIn:='I';
    temp:=true;
  if (StrFilesNameF='e') and (index=14) then
    strIn:='E';
    temp:=true;
  if index=8 then
      if strIn='000000' then
        temp:=false;
  if index=11 then
      StrinCopy:=Copy(strIn,1,8);
       if StrinCopy='00000000' then
       temp:=false;
  //if index=14 then
       //temp:=true;
  StrIn:=trim(StrIn);
  if (index=6) or (index=7) or (index=13) then
      strIn:=strIn+' ';
      StrIn:='"'+StrIn+'"';
  Result:=StrIn;
end;如果文件名是i打头的，第14个字段为‘I’，e打头的为‘E’，这段代码是否可以做到？

Answer 1

就是想加个字段，用来标识E:\_libsrc\del\ 目录下的dat文件是进口的还是出口。
一个dat文件就是一条记录，每个文件名第一个字符要么是‘i’要么是‘e’，我要做的就是获得文件名的第一个字符，判断是i还是e。一条记录原来有13个字段，现在要加一个字段，来标识该文件是进口（'I'表示）还是出口（‘E’表示），就是这样。