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

Вниз

люди помогите! Форма, на ней поле ввода и лебел. Кнопка. нажимаем на кнопку   Найти похожие ветки 

 
l@z@   (2001-10-14 22:31) [0]

люди помогите! Форма, на ней поле ввода и лебел. Кнопка. нажимаем на кнопку и генерируется любой текст в лебел.Его длина задана в едит.


 
Anatoly Podgoretsky ©   (2001-10-14 23:14) [1]

Вопрос какой?


 
Digitman ©   (2001-10-15 11:12) [2]

procedure Form1.Button1Click(Sender: TObject);
var
i,l: Integer;
s: PChar;
begin
l:= StrToInt(Edit1.Text);
GetMem(s, l + 1);
try
for i:=0 to l-1 do begin
s[i]:= char(Ord("A") + Random(Ord("Я") - Ord("A")));
end;
s[i]:= #0;
Label1.Caption := string(s);
finally
FreeMem(s)
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
7-90403
Ph.D.Kot
2001-10-11 08:56
2002.01.28
Отправка факса через модем. Хелп.


14-90379
Pat
2001-11-24 18:05
2002.01.28
AutoRun для дисковода...


14-90369
Ross
2001-12-03 21:56
2002.01.28
Игры


7-90388
Sergy
2001-10-17 11:36
2002.01.28
Опять модем!


1-90316
apav
2002-01-11 15:17
2002.01.28
UTF-8