RtlVclOptimize 2.77 - DelphiSpeedUp Code im eigenen Programm

[jbg]

Zitat von bigg:

Ist das bei D2005-D2007 auch der Fall?

Ja, da hast du wohl voll ins Schwarze getroffen (wer prüft denn schon auf die Existenz der Auslagerungsdatei).

Delphi-Quellcode:

function FileExists(const Filename: string): Boolean;
var
  Code: Integer;
begin
  Code := Integer(GetFileAttributes(PChar(FileName)));
  if Code <> -1 then
    Result := (FILE_ATTRIBUTE_DIRECTORY and Code = 0)
  else
    Result := GetLastError = ERROR_SHARING_VIOLATION;
end;

Da werde ich gleich mal einen QualityCentral Report aufmachen.