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 ????"