Текущий архив: 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.006 c
