Здравствуйте, Maksim Trofimov!


а точно у вас она ругается только при повторном вызове ? посмотрите сами
вы перебираете все компоненты на форме

for i := 0 to form.Componentcount-1 do

и если компонент is TEdit то вы что то делаете с компонентом т.е. ссылаетесь на какой то объект в массиве eds

и догадайтесь что происходит когда у вас на форме кроме TEdit есть например кнопка, следовательно вы выходите за диапазон массива eds.

вам нужно делать так, так как у вас изначально известно что в массиве eds хранятся ссылки только на TEdit, значит вам не нужно перебирать все компоненты на форме а обращаться непосредственно к элементам массива .

Здравствуйте, Maksim Trofimov!

1) у вас дебаггер вылетает из-за неправильного использования массива.
Вы выделяете eds_number элементов, а обращаетесь (записываетев массив) по индексу компонента. Вот и получается, что если Вы выделили место под 1 элемент, а на форма у Вас 3 компонента - то будет ошибка - обращение к несуществующему элементу при I = 2 к примеру. Индексы обращения к разным массивам должны быть разными.
Правильно будет так:

var
eds: array of TEdit;
i, j: integer;
begin
SetLength(eds, eds_number);
J := 0;
for i := 0 to form.Componentcount-1 do
begin
if form.components[i] is TEdit then
begin
eds[j]:= TEdit(form.components[i]);
eds[j].Clear;
Inc(j);
end;
end;
end;

2) От GetMem толк есть. Если использовать тип PPointerArray (для Вашего примера):

var
eds: PPointerArray;
i, j: integer;
begin
eds := GetMem(eds_number * sizeof(TEdit))
J := 0;
for i := 0 to form.Componentcount-1 do
begin
if form.components[i] is TEdit then
begin
eds^[j]:= form.components[i];
TEdit(eds^[j]).Clear;
Inc(j);
end;
end;
end;

Здравствуйте, Maksim Trofimov!
Судя по названию — функция для очистки TEdit компонент..
Но тогда, массив создавать не к чему.
Вот так, это может быть:


Во вторых – создание динамических массивов в Delphi подчиняется темже принципам что и в C/C++. Но вы работаете не с простыми типами а с классами.
TEdit – это класс, потомок, далеко не первый, в дереве объектов.
И для его инициализации надо использовать метод Create.
Вот пример (в приложении) обоих процедур:


Приложение:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
edit: array of TEdit;
implementation
procedure clear_ed(form: TForm);
var i: integer;
begin
for i := 0 to form.Componentcount-1 do
begin
if(form.components[i] is TEdit) then
(form.components[i] as TEdit).Clear;
end;
end;

procedure create_ed(form: TForm; count:integer);
var i: integer;
begin
SetLength(edit,count);
for i := 0 to count-1 do
begin
edit[i] := TEdit.Create(nil);
edit[i].Parent := form;
edit[i].Top := 136+i*21+2;
edit[i].Left := 528;
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
clear_ed(self); //очищаем все поля ввода self - указатель на текущую форму.. можно передать любую форму.
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
create_ed(self,5); // создать 5 TEdit
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.