из edit в одномерный массив

[dozdingo]

на форме присутсвует 81 эдит ,и надо занести значение из эдитов в массив

procedure TForm1.Button4Click(Sender: TObject);
var
b:array[1..81] of integer;
begin
with Form1 do
    for l := 0 to ComponentCount - 1 do
      if Components[l] is TEdit then
      b[l+1] := strtoint((Components[l] as TEdit).Text);

end;

поробовал через такую процедуру , при нажатии выдает ошибку
is not valid integer value
Помогите пожалуста

[Пепел Феникса]

значит в Эдите не число написано.

[BARNEY]

это порнография

b:array[1..81] of integer;

и сделайте так

try
if Components[l] is TEdit then
b[l+1] := strtoint((Components[l] as TEdit).Text);
except 
memo1.lines.add(Components[l]);
end;

[ViridisNitentis]

у меня на форме 2 edit'а
первое число задается
пользователь должен во второе внести свое значение
после каждого ввода значения на image должна появиться точка с координатами из первого и второго edit'а

[W0LF]

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

у меня на форме 2 edit'а
первое число задается
пользователь должен во второе внести свое значение
после каждого ввода значения на image должна появиться точка с координатами из первого и второго edit'а

Народ обноглел, создайте свою тему!

ТС, попробуйте так:

b[l+1] := strtointdef((Components[l] as TEdit).Text, 0);

Если в Edit'e будет находиться текст, то в массив запишеться число "0". Если конечно в это причина ошибки.

[Stilet]

Одна тема - один автор.