delphi - TSearchRec Delphi 向后

Question

我不知道如何解释我的问题。这是我的尝试解释：函数 FindNext(SearchRec) 将从目录中获取下一个文件。在我的应用程序中，我有时会从当前的 SearchRec 索引中向后退一些文件。那么我该怎么做呢？

所以我正在寻找 FindNext(SearchRec) 之类的函数 FindBackward(SearchRec) 的对立面

Answer 1

没有这样的功能。例如，您需要跟踪列表中的先前命中，并使用该列表进行回溯。

Answer 2

我建议将它们放在 TSearchRec 数组中

SearchRecArr:array of TSearchRec;

然后，当您到达某个文件时，从 Array 中获取您需要的 SearchRec。

例如，这是一个示例，我在某个文件夹中放置了 3 个名称为（z、z1 和 z2）的文本文件。然后如果我到达'z2.txt'，我将向后阅读 SearchRec 2 步：

procedure TForm2.Button1Click(Sender: TObject);
var
  SearchRec:TSearchRec;
  SearchRecArr:array of TSearchRec;
  i:integer;
begin
  i:=-1;
  if FindFirst('C:\Users\zeina.shehab\Desktop\New folder\z*.txt',faAnyFile,SearchRec)=0 then
  begin
    repeat
      SetLength(SearchRecArr,length(SearchRecArr)+1);
      SearchRecArr[high(SearchRecArr)]:=SearchRec;

      inc(i);   
      if SearchRec.Name='z2.txt' then
        caption:=SearchRecArr[i-2].Name;
    until (FindNext(SearchRec)<>0);
  end;
end;

Answer 3

我写了自己的函数。这是对我来说非常有效的代码，它对于数千个文件非常有效（因为它不会减慢我的播放算法）。

Procedure GetBackward(var SRInitial:TSearchRec; iForwardSpeed:integer);
var SR:TSearchRec;
    iIndex:integer;
    vLastFiles:Array of String;
begin
   SetLength(vLastFiles,Trunc(iForwardSpeed));

   FindFirst(sPath+'*.txt',faAnyFile,SR);
   while (FindNext(SR) = 0)and(SR.Name <> SRInitial.Name) do
   begin
      for iIndex := 0 to high(vLastFiles)-1 do
         vLastFiles[iIndex]:=vLast[iIndex+1];
      vLastFiles[high(vLastFiles)]:=SR.Name;
   end;

   //Fewer than ForwardSpeed
   if vLastFiles[0] = '' then
   begin
     Exit;
   end;

   FindClose(SR);

   FindClose(SRInitial);
   FindFirst(sPath+'*.'+cbType.Text,faAnyFile,SRInitial);
   while (FindNext(SRInitial) = 0)and(SRInitial.Name <> vLastFiles[0]) do
         ;

end;

该功能已修改。