Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Irmãos porque Encontre agências semelhantes


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

CÓDIGO
procedimento TForm1.SpeedButton2Click (Sender: TObject);
var
i,a,b:integer;
começar
with image1.Canvas do

para i: = 1 para 50 do
começar
font.Style:=[fsUnderline];
Randomize;
a:=Random(740);
b:=Random(260);
TextOut(a,b,"Hello");
end;
end;
final.



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

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



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.8 MB
Hora: 0.03 c
1-22108
Michael
2001-12-19 19:10
2002.01.08
Impressora Matricial Long Dot


14-22321
Olgerd
2001-11-01 21:44
2002.01.08
Pergunta séria


3-21957
KMM
2001-11-29 15:31
2002.01.08
No processo, o programa tem que criar e excluir uma tabela muitas vezes ...


7-22419
Pastor
2001-09-21 10:31
2002.01.08
Eu tenho um Celeron 800 vale a pena atualizar para o Pentium III 800?


7-22418
Mikle
2001-09-20 09:06
2002.01.08
Urgentemente! Comp em vez da impressora.





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol