Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Братцы, почему   Найти похожие ветки 

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

КОД
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
i,a,b:integer;
begin
with image1.Canvas do

for i:=1 to 50 do
begin
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
1-22076
Snake
2001-12-19 12:50
2002.01.08
Как узнать дату выпуска BIOS?


14-22319
iea
2001-11-02 13:34
2002.01.08
Всем, кто носит(л) очки! Вопрос не праздный


14-22393
Феликс
2001-11-08 21:54
2002.01.08
Что делать?


1-22056
Delphimun
2001-12-15 13:11
2002.01.08
Как создать ресурс с помощю brcc32.exe?


6-22286
ReY
2001-10-08 18:07
2002.01.08
Пиплы!!! Нужен ICQ!