Значения поля edit

[glazik]

да это да, но вопрос не в этом, почему ошибку выдает и как поправить??

[SERG1980]

да всё дожно быть нормально, проверено

procedure TForm1.Button1Click(Sender: TObject);
var
i,x:integer;
mass:array [1..255] of tedit;
begin
x:=255;
for i:=1 to x do
begin
mass[i]:=TEdit.Create(Form1);
mass[i].Parent:=form1;
mass[i].font.size:=20;
mass[i].Width:=100;
mass[i].Top:=100;
mass[i].Left:=20+((i-1)*(100+5));
end;
end;

надеюсь у вас х не больше чем 255

[glazik]

begin
x:=255;
for i:=1 to x do
да так работает но проблема в то что x должен браться из edita, то есть задаваться пользователем вот в этом и касяк((((

[glazik]

x:=strtoint(form1.edit1.text);

вот так не работает, почему и как поправить??

[SERG1980]

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

x:=strtoint(form1.edit1.text);
вот так не работает, почему и как поправить??

значит вы вводите не десятичное число, другого быть не может, может пробел где лишний

[SERG1980]

а ещё лучше пропишите в событии OnKeyPress эдита куда вводите количество следующую строку кода:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in['0'..'9'])then key:=#0;
end;

так уж вы ничего кроме цифр не введёте

[glazik]

http://zalil.ru/30609505
вот такая фигня что мона придумать?

[glazik]

Уже все перепробовал, но как только ставлю значения byte и i присваиваю определенное значение, то работает. Но никак не работает если делать чтобы из edita число бралось....

[SERG1980]

Выкладывайте проект. Что то вы не договариваете

[glazik]

http://zalil.ru/30611894
вот вроде ничего не скрываю, смысла нет...