استفاده از Time در تمام فرم ها [بایگانی]

manzare

شنبه 09 شهریور 1387, 12:28 عصر

سلام
براي اينكه بتونيم timeرا در تمام فرم ها استفاده كنيم راه حل بهينه چيست؟

اگه بخوايم از datamodel استفاده كنيم و بنويسيم:

procedure Tdm.Timer1Timer(Sender: TObject);
begin
t:=TimeToStr(Time);
end;

]
چطور ميشه در فرم هاي ديگه به متغير t دسترسي داشت؟

h_mohamadi

شنبه 09 شهریور 1387, 12:55 عصر

T را د ربالای یک یونیت به عنوان استرینگ معرفی کنید و در دیگر یونیت ها از t استفاده کنید

hadisalahi2

شنبه 09 شهریور 1387, 13:06 عصر

T را د ربالای یک یونیت به عنوان استرینگ معرفی کنید و در دیگر یونیت ها از t استفاده کنید
آیا به نظر شما حتما باید از نوع رشته ای باشه، خوب چه لزومی داره ، از هر نوع دیگه ای هم که باشه میتونه استفاده کنه.
شما در صورتی که یونیت فرمی رو که در اون تایمر هست در فرمهای دیگه Use کنی ، همه متغریهاش بدون هیچ کار خاصی در اختیار شما قرا میگیره.
مثلا در فرم 2 این دستور رو بنویس

implementation
Uses Unit1

یا حق

behnam_dr

شنبه 09 شهریور 1387, 13:31 عصر

سلام
براي اينكه بتونيم timeرا در تمام فرم ها استفاده كنيم راه حل بهينه چيست؟

اگه بخوايم از datamodel استفاده كنيم و بنويسيم:

procedure Tdm.Timer1Timer(Sender: TObject);
begin
t:=TimeToStr(Time);
end;

]
چطور ميشه در فرم هاي ديگه به متغير t دسترسي داشت؟

شما باید ابتدا فرمی که در اون تاریخ رو داری در فرمهای دیگرت use کنی سپس در فرمهای دیگر اگر t رو خواستی رو بصورت مثلا Form1.t استفاده کنی