| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как очистить все окошки редактирования на форме (TEdit) [D2005, XP]
Михаил Левшов © (2009-12-16 21:07:00)Почему не работает сей код в D2009
procedure ClearEdits;
var i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := '';
end;
Михаил Левшов (2009-12-17 10:33:00) [1]Всем огромное Спасибо!
1) Я чисто скопипастил процедуру в свой код, не объявив её в Приватах! (После оъявления код скомпилировался)
2) Без объявления скомпилировалось с добавлением procedure TForm1.ClearEdits;
С Уважением!
icWasya (2009-12-17 10:20:00) [2]или даже так
procedure ClearEdits(F:TComponent);
var
i : Integer;
begin
for i := 0 to F.ComponentCount-1 do
if (F.Components[i] is TEdit) then
(F.Components[i] as TEdit).Text := '';
end;
и
ClearEdits(Form1);
brother (2009-12-17 04:18:00) [3]Если именно
> procedure ClearEdits;
а не
procedure TForm1.ClearEdits;
тогда так:
procedure ClearEdits;
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;
Германн (2009-12-17 02:20:00) [4]
> Anatoly Podgoretsky © (17.12.09 00:46) [8]
> DVM © (16.12.09 23:38) [5]
Anatoly Podgoretsky (2009-12-17 00:46:00) [5]
> Почему не работает сей код в D2009
Сообственно приведеный код не будет работать ни в одной Дельфи, он даже не откомпилируется.
Anatoly Podgoretsky (2009-12-17 00:44:00) [6]Edit.Clear
KilkennyCat (2009-12-17 00:19:00) [7]А не будет компилировать?
Я не помню, что было конкретно в одной функции, которую я написал вложенной, а потом слишком тупо перенес во внешнюю область :) но 2007 делфя схавала такую ошибку, а я долго думал, почему все так плохо.
DVM (2009-12-16 23:38:00) [8]
> KilkennyCat © (16.12.09 23:35) [4]
вот и я для этого спросил, что в его понимании не работает, у него может и не компилируется вовсе.
KilkennyCat (2009-12-16 23:35:00) [9]
> procedure ClearEdits;
между этими двумя словами ничего не пропущено? Типа TForm1...
KilkennyCat (2009-12-16 22:12:00) [10]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1260820725&n=3
DVM (2009-12-16 21:22:00) [11]
> Почему не работает сей код в D2009
что значит не работает?
Омлет (2009-12-16 21:21:00) [12]Посмотри в дебаге, чему равно ComponentCount, может быть эти едиты принадлежат другому.
| |
