|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
очистить за раз, множество edit'ов
Писать для каждого
Код:
Edit.text:=' ' Может есть какой-то более быстрый метод очистить все поля на форме? |
#2
|
||||
|
||||
Код:
for i :=0 to Form1.ControlsCount-1 do if Form1.Controls[i] is TEdit then Form1.Controls[i].Text.Clear; В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
нет, ошибка здесь:
Код:
Form1.Controls[i].Text.Clear; Цитата:
|
#4
|
||||
|
||||
проблема актуальна!
|
#5
|
|||
|
|||
а если так (Form1.Controls[i] as TEdit).Text:= ''
APPLICATION.TERMINATOR |
#6
|
||||
|
||||
Вот как то так:
Код:
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; |
Этот пользователь сказал Спасибо AND_REY за это полезное сообщение: | ||
TEKTON (15.10.2018)
|
#7
|
||||
|
||||
Попробуй так :
Код:
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; |
#8
|
|||
|
|||
Цитата:
APPLICATION.TERMINATOR |
#9
|
||||
|
||||
Цитата:
2Ama Согласен. Последний раз редактировалось movnet, 20.03.2010 в 19:10. |
#10
|
||||
|
||||
AND_REY
Спасибо, то что нужно! Плюсую! |