| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
люди помогите! Форма, на ней поле ввода и лебел. Кнопка. нажимаем на кнопку [D6, Win95/98]
l@z@ © (2001-10-14 22:31:00)люди помогите! Форма, на ней поле ввода и лебел. Кнопка. нажимаем на кнопку и генерируется любой текст в лебел.Его длина задана в едит.
Digitman (2001-10-15 11:12:00) [1]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;
Anatoly Podgoretsky (2001-10-14 23:14:00) [2]Вопрос какой?
| |
