nasr
شنبه 29 فروردین 1383, 22:23 عصر
سلام
در Word یک خاصیتی وجود داره که می شه Header And Footer برای صفحات قرار داد بطوریکه صفحات فرد دارای یک
Header جدا و صفحات زوج نیز دارای یک Header جدا باشند (هر کدام از صفحات دارای یه متن جدا )
من اینکار را می خوام در دلفی و FastReport انجام بدم
من اینکار را به این روش انجام دادم که یک جدول درست کردم و دوتا فیلد برای اون در نظر گرفتم با نام Header و Footer
حال در FastReport در قسمت Footer صفحات ، شماره صفحه را قرار دادم و برای قسمت Header صفحات در OnBeforPrint
کد زیر را نوشتم
if memo4.memo = 1 then
memo1.memo := [DBISAMTable1."header"]
else
if memo4.memo = 2 then
memo1.memo := [DBISAMTable1."footer"];
در کد بالا Memo4 همان شماره صفحه است
حالا سوال بنده
اول اینکه صفحات زوج و فرد را چگونه مشخص کنم . من در این کد از اعداد 1 و 2 استفاده کرده ام که فرض بر وجود فقط 2 صفحه است
دوم اینکه با همین اعداد هم مشکل دارم و یک پیام خطا ظاهر می شه با عنوان
Could not convert variant of type (string) in to type (double)
حتی
Inttostr(2)
هم نوشتم مشکل حل نشد
عدد 2 را بصورت'2' نوشتم حل نشد
ممنون می شم اگه کمکم کنید
با تشکر
در Word یک خاصیتی وجود داره که می شه Header And Footer برای صفحات قرار داد بطوریکه صفحات فرد دارای یک
Header جدا و صفحات زوج نیز دارای یک Header جدا باشند (هر کدام از صفحات دارای یه متن جدا )
من اینکار را می خوام در دلفی و FastReport انجام بدم
من اینکار را به این روش انجام دادم که یک جدول درست کردم و دوتا فیلد برای اون در نظر گرفتم با نام Header و Footer
حال در FastReport در قسمت Footer صفحات ، شماره صفحه را قرار دادم و برای قسمت Header صفحات در OnBeforPrint
کد زیر را نوشتم
if memo4.memo = 1 then
memo1.memo := [DBISAMTable1."header"]
else
if memo4.memo = 2 then
memo1.memo := [DBISAMTable1."footer"];
در کد بالا Memo4 همان شماره صفحه است
حالا سوال بنده
اول اینکه صفحات زوج و فرد را چگونه مشخص کنم . من در این کد از اعداد 1 و 2 استفاده کرده ام که فرض بر وجود فقط 2 صفحه است
دوم اینکه با همین اعداد هم مشکل دارم و یک پیام خطا ظاهر می شه با عنوان
Could not convert variant of type (string) in to type (double)
حتی
Inttostr(2)
هم نوشتم مشکل حل نشد
عدد 2 را بصورت'2' نوشتم حل نشد
ممنون می شم اگه کمکم کنید
با تشکر