Question

I don’t know exactly how to explain my question. Here is my try to explain: the function FindNext(SearchRec) will get me the next file from a directory. In my application I am looking sometimes go to backward a few files from my current SearchRec index. So how can I do that?

So I am looking for the oppose of FindNext(SearchRec) a function like FindBackward(SearchRec)

Answer 1

I wrote my own function. Here is the code which works very well for me and it is very efficient for thousands of files(because it doesn’t slow my playback algorithm).

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;

The function was modified.