Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Братики, чому Знайти схожі гілки


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

КОД
procedure TForm1.SpeedButton2Click (Sender: TObject);
було
i,a,b:integer;
починати
with image1.Canvas do

for i: = 1 to 50 do
починати
font.Style:=[fsUnderline];
Randomize;
a:=Random(740);
b:=Random(260);
TextOut(a,b,"Hello");
end;
end;
end.



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

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



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.8 MB
Час: 0.026 c
6-22296
Kolyan
2001-10-11 12:49
2002.01.08
TSocket!


3-21990
SkyR
2001-12-04 03:58
2002.01.08
Проблема з LookUp - полями


1-22064
daos
2001-12-19 08:46
2002.01.08
реєстр


1-22142
Початківець
2001-12-20 10:42
2002.01.08
ReplaceDialog


7-22429
Oleg_swap
2001-09-20 19:13
2002.01.08
віддалений запуск програми





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська