[XaKeR282]

И тебе спасибо, но предудущий вариант сработал уже, а твой объязательно попробую в седующей форме).

[M.A.D.M.A.N.]

Простите, небыло сил удержаться.

[XaKeR282]

Поздравляю тебя с 8-ом мартом...

[Assistant]

дем в тему ))

[Admin]

Прекращаем оффтоп.

[XaKeR282]

Люди, а можно создавть сайты с помощью делфи, если можно, то пожалуйста дайте ссылке на книги по этому поводу.

[Duss]

Сообщение от XaKeR282

дайте ссылке на книги.

Сомневаюсь, что ты пошел по правильному пути

[XaKeR282]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
b:integer;
begin
for b := 5 to 10 do
i:= Random(b);
Edit1.Text:=IntToStr(i);
end;

я хочу, чтоб выдало случайное число от 5-ти до 1-ти, а как правильно написать?

[Pilot_Red]

i:= 5+Random(6)

[XaKeR282]

Блогодарю, получилось)

[XaKeR282]

var
i,i2:integer;
Begin
i:=1+random(6);
Edit1.Text:=IntToStr(i);
End;

А почему всегда начинается с 1?
Надо, чтоб с случайного начал.

[Pilot_Red]

randomize поставь в начале процедуры

[XaKeR282]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.visible.true;
end;

Это не правильно, а как написать правильно, чтоб панель стал видимым?

[Janom]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.visible:=true;
end;

да и дем действително в тему был...

[XaKeR282]

Ок, спс большое)