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: inteiro;
começar
com o image1.Canvas

para i: = 1 para 50 do
começar
font.Style:=[fsUnderline];
Randomizar
a: = Aleatório (740);
b: = Aleatório (260);
TextOut (a, b, "Olá");
end;
end;
final.



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

Randomize fora dos limites !!!



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

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

em cima





Memória: 0.54 MB
Hora: 0.02 c
14-22394
Vitaly
2001-11-09 19:51
2002.01.08
MENTA Day amanhã ....


1-22191
stalker_boss
2001-12-16 02:50
2002.01.08
Som


7-22423
Alex_K_xelA
2001-09-21 18:55
2002.01.08
Lendo setores de um CD-ROM


14-22369
Victor Tsay
2001-11-08 09:11
2002.01.08
Como trocar blocos de texto no editor do Delphi?


1-22217
Greenrul
2001-12-16 02:13
2002.01.08
TreeView - um par de perguntas





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