منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

الاخوة لماذا البحث عن فروع مماثلة


Yuraz   (2001-12-19 20:25) [0]

КОД
الإجراء TForm1.SpeedButton2Click (المرسل: TObject) ؛
فار
i,a,b:integer;
بدأ
with image1.Canvas do

لـ i: = 1 to 50 do
بدأ
font.Style:=[fsUnderline];
بطريقة عشوائية.
a:=Random(740);
b:=Random(260);
TextOut(a,b,"Hello");
الغاية؛
الغاية؛
نهاية.



Надо вот что   (2001-12-19 20:32) [1]

Randomize за пределы цыкла!!!



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.55 ميغابايت
الوقت: 0.026 ج
1-22215
VovaKomarov
2001-12-16 13:36
2002.01.08
تحديث العميل


4-22466
فن
2001-10-31 15:21
2002.01.08
وحتى الآن ، كيفية قصر الطائرة من حركة الماوس إلى حدود النموذج؟


1-22114
ألكسندر
2001-12-19 19:28
2002.01.08
كيفية جمع اللون من الرقم والسطوع؟


6-22299
سفينة ضخمة
2001-10-11 21:58
2002.01.08
خطأ TClientSocket معالجة


1-22136
Dorixe
2001-12-20 09:40
2002.01.08
PROEKT





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский