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

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

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

← →
Anatoly Podgoretsky © (2001-10-14 23:14) [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;

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