for i := 0 to length(eds)-1 do
begin
eds[i].Clear;
end;
Var
List: TList;
i: integer;
Begin
List:=TList.Create;
for i := 0 to form.Componentcount-1 do
if(form.components[i] is TEdit) then
List.Add(form.components[i]);
End;
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 ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
clear_ed(self);
end ;
Var
List: TComponentList;
i: integer;
Begin
List:=TComponentList.Create;
for i := 0 to form.Componentcount-1 do
if(form.components[i] is TEdit) then
List.Add(form.components[i]);
//А вот и изюминка
for i:=0 To List.Count-1 Do
List[i].Clear;
//Как только List становится ненужен - удаляем его
//При этом автоматически вызывается деструктор хранимых в List компонентов
List.Free;
End;
typedef struct {
int x;
float y;
char *s;
} _MSTR;
_MSTR *m = (_MSTR*) malloc(1);
printf("%i\t%f\t%s",m->x,m->y,m->s);
Var
i: Integer;
List: TComponentList;
Begin
List:=TComponentList.Create;
For i:=0 To 9 Do
Begin
List.Add(TEdit.Create(Form));
List[i].Parrent:=Form;
List[i].Top:=(i+1)*20;
List[i].Bottom:=20;
List[i].Heght:=20;
List[i].Width:=100;
List[i].Text:=IntToStr(i);
End;
End;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.