1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function GetFileSizeA(const FileName: String): Integer; 
var SR: TSearchRec; 
begin 
  Result := -1; 
   
  if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then 
  try  
    Result := SR.Size; 
  finally SysUtils.FindClose(SR) end; 
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr( GetFileSizeA('c:\autoexec.bat') ));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  SR1: TSearchRec;
  SR2: TSearchRec;
  Result: Integer;
begin
  try if FindFirst(ParamStr(0), faAnyFile, SR1) = 0 then
    try if FindFirst(ChangeFileExt(ParamStr(0), '.Test'), faAnyFile, SR2) = 0 then
      Result := SR2.Size;
    finally SysUtils.FindClose(SR2) end;

    Result := SR1.Size;
  finally SysUtils.FindClose(SR1) end;

  ShowMessage(IntToStr( Result ));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  SR1: TSearchRec;
  SR2: TSearchRec;
  Result: Integer;
begin
  try if FindFirst(ParamStr(0), faAnyFile, SR1) = 0 then
    SysUtils.FindClose(SR2);
    Result := SR1.Size;
  finally SysUtils.FindClose(SR1) end;

  ShowMessage(IntToStr( Result ));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  sr: TSearchRect;
  Path: string;
begin
  Pointer(Path) := Pointer($1);
  try
    if FindFirst(Path, faAnyFile, sr) = 0 then
     ...
  finally
    FindClose(sr); { sr.Handle wurde nie ein Wert in FindFirst zugewiesen }
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetFileSizeA(const FileName: String): Integer;
var 
  SR: TSearchRec;
begin
  Result := -1;
  if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then
  try
    Result := SR.Size;
  finally 
    SysUtils.FindClose(SR)
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetFileSizeA(const FileName: String): Integer; 
var  
  SR: TSearchRec; 
begin 
  Result := -1; 
  try 
    if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then 
      Result := SR.Size; 
  finally  
    SysUtils.FindClose(SR) 
  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function Beispiel(const FileName: String): Integer;
var
  SR1, sr: TSearchRec;
  Path: string;
begin
  Result := -1;
  Pointer(Path) := Pointer($1);

  if FindFirst(FileName, faAnyFile and not faDirectory, SR1) = 0 then
  try //if FindFirst(FileName, faAnyFile and not faDirectory, SR1) = 0 then

    if FindFirst(Path, faAnyFile, sr) = 0 then
    try // FindFirst(Path, faAnyFile, sr) = 0 then ShowMessage( 'Hallo!' );

      //...
    finally
      FindClose(sr);  { sr.Handle wurde nie ein Wert in FindFirst zugewiesen }
    end;

    Result := SR1.Size;

  finally SysUtils.FindClose(SR1) end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr( Beispiel(ParamStr(0) )));
end;					

1:
2:
3:
4:
5:
6:

  variable := typename.Create;
  try

  finally
    variable.Free;
  end;					

1:
2:
3:
4:
5:
6:

  try
    variable := typename.Create;

  finally
    variable.Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function GetFileSizeA(const FileName: String): Integer;
var SR: TSearchRec;
begin
  if FileExists(FileName) then begin
    try if FindFirst(FileName, faAnyFile, SR) = 0 then
      Result := SR.Size;
    finally SysUtils.FindClose(SR) end;
  end
    else Result := -1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  k: Integer;
  SR: TSearchRec;
begin
  for k := 1 to 1000000 do
    if FindFirst('KeinName', faAnyFile, SR) = 0 then ShowMessage( 'Hallo!' );
    //if not (FindFirst(ParamStr(0), faAnyFile, SR) = 0) then ShowMessage( 'Hallo!' );
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function FindFirst(const Path: string; Attr: Integer;
  var F: TSearchRec): Integer;
const
  faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
begin
  F.ExcludeAttr := not Attr and faSpecial;
  F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Result := FindMatchingFile(F);
    if Result <> 0 then FindClose(F);
  end else
    Result := GetLastError;
end;

function FindNext(var F: TSearchRec): Integer;
begin
  if FindNextFile(F.FindHandle, F.FindData) then
    Result := FindMatchingFile(F) else
    Result := GetLastError;
end;

procedure FindClose(var F: TSearchRec);
begin
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(F.FindHandle);
    F.FindHandle := INVALID_HANDLE_VALUE;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

res := FindFirst('*.*',faAnyFile,ds);
while(res = 0) do
begin
  // mach was mit dem Record
  { ... }

  res := FindNext(ds);
end;
FindClose(ds);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

res := FindFirstFile('*.*',ds);
if(res <> INVALID_HANDLE_VALUE) then
try
  while(res <> ERROR_NO_MORE_FILES) do begin
    // mach irgendwas
    { ... }

    if(not FindNextFile(res,ds)) then break;
  end;
finally
  FindClose(res);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetFileSizeA(const FileName: String): Integer;
var
  SR : TSearchRec;
begin
  Result := -1;

  if FindFirst(FileName,faAnyFile and not faDirectory,SR) = 0 then
  begin
    Result := SR.Size;
    {SysUtils.}FindClose(SR);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function GetFileSizeAPI(const szFilename: string): integer;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
  Result   := -1;
  Handle   := FindFirstFile(pchar(szFilename),FindData);

  if(Handle <> INVALID_HANDLE_VALUE) then
  begin
    Result := FindData.nFileSizeLow;
    Windows.FindClose(Handle);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function FindFirst(const Path: string; Attr: Integer;
  var  F: TSearchRec): Integer;
const
  faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
begin
  F.ExcludeAttr := not Attr and faSpecial;
  F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Result := FindMatchingFile(F); // Löst keine Exception aus
    if Result <> 0 then FindClose(F);  // <--
  end else
    Result := GetLastError;
end;

procedure FindClose(var F: TSearchRec);
begin
  if F.FindHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(F.FindHandle);
    F.FindHandle := INVALID_HANDLE_VALUE;
  end;
end;					

1:
2:
3:
4:
5:

if FindFirst(x, y, sr) = 0 then
begin
  // ...
  FindClose(sr);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

if FindFirst(x, y, sr) = 0 then
begin
  try
    // ...
  finally
    FindClose(sr);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  sr: TSearchRec; // Speicher auf dem Stack, in dem irgendwas steht
  s: string;
begin
  Pointer(s) := Pointer($1);
  try
    if FindFirst(s, faAnyFile, sr) = 0 then // löst AV aus, bevor sr.FindHandle einen echten Wert bekommt
    begin
      // ..
    end;
  finally
    FindClose(sr); { In sr.FindHandle steht irgend ein Wert, der gerade an dieser Stelle auf dem Stack lag. Hierdurch wird also ein falsches FindHandle freigegeben, vorausgesetzt es war im gesamten Prozess gültig war. Und diese Ungewissheit kann man vor allem bei Rekursion und Erweiterbarkeit nicht hinnehmen. }
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  sr: TSearchRec;
begin
  sr.FindHandle := INVALID_HANDLE_VALUE;
  try
    if FindFirst(Path, faAnyFile and not faDirectoy, sr) = 0 then
    begin
      // ..
    end;
  finally
    FindClose(sr);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

// mein Beispiel:
var
  sr: TSearchRec;
begin
  if FindFirst(x, y, sr) = 0 then                  Reference := TObject.Create;
  try                                              try
      ;
  finally                                          finally
    FindClose(sr);                                   Reference.Free;
  end;                                             end;
end;



// dein Beispiel:
var
  sr: TSearchRec;
begin
  sr.FindHandle := INVALID_HANDLE_VALUE;           Reference := nil;
  try                                              try
    if FindFirst(x, y, sr) = 0 then                  Reference := TObject.Create;
      ;
  finally                                          finally
    FindClose(sr);                                   Reference.Free;
  end;                                             end;
end;					

1:

{SysUtils.}FindClose(SR);					

1:

SysUtils.FindClose(SR);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function GetFileSizeA(const FileName: String): Integer;
var SR: TSearchRec;
begin
  Result := -1;
  
  if FindFirst(FileName, faAnyFile and not faDirectory, SR) = 0 then
  try 
    Result := SR.Size;
  finally SysUtils.FindClose(SR) end;
end;					

1:

FindClose(SR)