Fehlertoleranz DELPHI, TEIL #2

[bernhard_LA]

wir haben in unserem Team folgende Funktion aus dem Internet gefunden, angepasst und in einer unit implementiert die dann in mehreren Anwendungen verwendet wird.

Delphi-Quellcode:

procedure LoadStringFromFile(Filename: string; var LoadString: string); 
var 
  fs: TFileStream; 
begin 
  fs := TFileStream.Create (Filename, fmOpenRead or fmShareDenyNone); 
  try 
    SetLength (LoadString, fs.Size); 
    if fs.size>0 then 
      fs.Read (LoadString[1], fs.Size); 
  finally 
    fs.Free; 
  end; 
end;

Beim Kopieren dieser Funktion aus dem Internet ist uns ein kleiner Fehler unterlaufen, wir haben beim Rückgabeparameter das var vergessen.

Delphi-Quellcode:

procedure LoadStringFromFile(Filename: string; LoadString: string);

bei zwei Anwendungen hat dieser Code fehlerfrei funktioniert, bei der dritten Anwendung haben wir beim Debuggen dann unseren Fehler entdeckt und behoben.
Die Frage ist nur " Warum hat dieser fehlerhafte Code trotzdem funktioniert ????"