Hello,
I changed like this to make the compiler happy:
M := TMemoryStream.Create;
try
for n := 0 to FFiles.Count - 1 do begin
try
F := TFileStream.Create(FFiles[n], fmOpenRead or fmShareDenyWrite);
except
TriggerWarning('Could not open ''' + FFiles[n] + '''');
F := nil;
end;
if not Assigned(F) then
Continue;
M.LoadFromStream(F);
But still I like to know wy the warning :(
---
Rgds, Wilfried
http://www.mestdagh.biz
__________________________________________________
Delphi-Talk mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi-talk
