[eXplorer]

на форме имеется 99 edit'ов... нужно во все записать какое нибудь значение...

делаю так:

Код:

procedure clear();
var
i:integer;
edit:TComponent;
begin
for i:=1 to 99 do begin
edit.FindComponent('edit'+inttostr(i));
(edit as Tedit).text:='0';
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
clear;
end;

лезит эксэпшн A/V... в чем ошибка
смотрел через отладчик - лезит после этой строки:

edit.FindComponent('edit'+inttostr(i));

[Konrad]

Зачем тебе 99 эдитов?
СтрингГрид религия не позволяет использовать?

[Pilot_Red]

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

Зачем тебе 99 эдитов?
СтрингГрид религия не позволяет использовать?

Может он не хочет иметь табличное представление данных, а как-нибудь по феншую

[eXplorer]

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

Зачем тебе 99 эдитов?
СтрингГрид религия не позволяет использовать?

ну нужно

[Pilot_Red]

пользуйся

Код:

procedure clear();
var
i:integer;
edit:TComponent;
begin
for i:=1 to 99 do begin
(findcomponent('Edit'+inttostr(i)) as tedit).Text:='0';
end;
end;

[PhoeniX]

Проверяй "указатель на компонент" перед обращением.

Код:

edit:=FindComponent('edit'+inttostr(i));
if edit <> nil then (edit as Tedit).text := '0';

И имена даны точно с маленькой буквы? Попробуй с большой, вдруг чувствительность к регистру...?

[eXplorer]

[Error] Undeclared identifer: 'findcomponent'

[PhoeniX]

А, блин.

Код:

Form1.FindComponent

Или имя твоей формы.

[eXplorer]

спасибо