تبدیل کد دلفی به دلفی 7 !

[mi5coder]

سلام

باید کامپوننت خاصی رو تو دلفی 7 نصب کنم که برای نسخه های بالاتر نوشته شده و در دلفی 7 خطا میده ...

سورس کامپوننت مربوطه:
https://www.cromis.net/svn/cromis/lib/pas/CromisCode/Cromis.DirectoryWatch.pas

خطی که در دلفی 7 خطا میده
for Flag in FWatchOptions do

اگه کسی لطف کنه و بگه چطوری باید این حلقه رو به دلفی 7 تبدیل کنم ممنون میشم :لبخندساده:

[یوسف زالی]

سلام.
for flag := low(FWatchOptions) to high(FWatchOptions) do
و برای انواع Set:


var
i: integer;
xTypeData: PTypeData;
xTypeInfo: PTypeInfo;
begin
xTypeInfo := TypeInfo(TControlLabelUse);
xTypeData := GetTypeData(xTypeInfo);

for i := xTypeData^.MinValue to xTypeData^.MaxValue do

[mi5coder]

for flag := low(FWatchOptions) to high(FWatchOptions) do
سلام
ممنون دوست عزیز از جواب
اما مقدار flag از نوع integer نیست و از نوع TWatchOption هست و نمیشه به اون مقادیر برگشتی تابع low رو نسبت داد. و خطای incompatible type رو میگیرم ...

[یوسف زالی]

توضیح دادم که برای انواع ست چکار کنید..
به جای TControlLabelUse نوع مورد نظرتون رو بگذارید.