Delphi Conversion

Kaymaf,

the tsearchrec: Record used to hold data for FindFirst and FindNext.

a delphi example:var
  searchResult : TSearchRec;

begin
  // Try to find regular files matching Unit1.d* in the current dir
  if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
  begin
    repeat
      ShowMessage('File name = '+searchResult.Name);
      ShowMessage('File size = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
    FindClose(searchResult);
  end;
end;

The findfirst, findnext, findclose, faAnyfile are all part of the tsearchrec class in the delphi.sysutil

The rightstr, leftstr, middlestr are:

rightstr delphi example:

var s : string;
s := 'ABOUT DELPHI PROGRAMMING';
s := RightStr(s,5);

// s = 'MMING'