Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c