I use the FindFile routine to search all files in a directory. Source code was freely available from Latium Software . It launches FindFile - this is a separate thread.
It always worked fine and still continues to work fine. But since I upgraded from Delphi 4 to Delphi 2009, it now gives a warning:
W1055: Published caused RTTI ($M+) to be added to type '%s' (Delphi)
Error in the “published” line of this ad:
TThread1 = class(TThread)
private
OwnerForm: TFindFileForm;
procedure Initialize;
procedure AddFileName;
procedure Finalize;
protected
procedure Execute; override;
published
constructor Create(Owner: TFindFileForm);
destructor Destroy; override;
end;
Help Delphi reports:
You added the "PUBLISHED" section to a class that was not compiled while the {$ M +} / {$ TYPEINFO ON} switch was in effect or without a class composed using {$ M +} / {$ TYPEINFO ON}.
TypeInfo . , "NotType" .
, , {$ M +}/{$ TYPEINFO ON} , {$ M +}/{$ TYPEINFO ON} .
, "". . , , , , , .
, , , ? ?