[T-dayne]

Писать для каждого

Код:

Edit.text:=' '

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

[NIch]

Код:

for i :=0 to Form1.ControlsCount-1 do
 if Form1.Controls[i] is TEdit then
  Form1.Controls[i].Text.Clear;

Как то так писал по памяти...проверить код не могу...

[T-dayne]

нет, ошибка здесь:

Код:

  Form1.Controls[i].Text.Clear;

[Error] Unit1.pas(355): Undeclared identifier: 'Text'

[T-dayne]

проблема актуальна!

[Ama]

а если так (Form1.Controls[i] as TEdit).Text:= ''

[AND_REY]

Вот как то так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
For i:= 0 to Form1.ComponentCount - 1 do
 if Form1.Components[i] is TEdit then
  (Form1.Components[i] as TEdit).Text := ' ';
end;

[movnet]

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

Вот как то так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
For i:= 0 to Form1.ComponentCount - 1 do
 if Form1.Components[i] is TEdit then
  (Form1.Components[i] as TEdit).Text := '';
end;

2T-dayne тут точно что тебе надо...
2Ama Согласен.

[movnet]

Попробуй так :

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var arr:array[1..80] of TEdit;
     i : Integer;
begin
For i:=1 to 80 do begin
    arr[i] := FindComponent(Format('Edit%d',[i])) as TEdit;
    arr[i].Text :='';
end;

[Ama]

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

Попробуй так :

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var arr:array[1..80] of TEdit;
     i : Integer;
begin
For i:=1 to 80 do begin
    arr[i] := FindComponent(Format('Edit%d',[i])) as TEdit;
    arr[i].Text :='';
end;

ну этим кодом ты привязываешься к именам компонентов. Эт немного не удобно