برنامج بسيط للبحث عن الملفات بكل يسر

[kachwahed]

شكرا كثيرا

اين أجد الملف
[Fatal Error] Find.pas(22): File not found: 'QDialogs.dcu'

على الدلفي 7 تجده في:

:\Program Files\Borland\Delphi7\Source\CLX

حدث خلل

[Error] Find.pas(98): Types of actual and formal var parameters must be identical

في السطر:

if SelectDirectory('Where to look','',dir) then

غيرت تعريف dir إلى :

dir: WideString;

وبذلك قمت بـ Compile.
شكرا كثيرا.