Форум: "Начинающим";
Текущий архив: 2010.02.14;
Скачать: [xml.tar.bz2];

Вниз

Как очистить все окошки редактирования на форме (TEdit)   Найти похожие ветки 

← →
Михаил Левшов   (2009-12-16 21:07) [0]

Почему не работает сей код в 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-16 21:21) [1]

Посмотри в дебаге, чему равно ComponentCount, может быть эти едиты принадлежат другому.

---

← →
DVM ©   (2009-12-16 21:22) [2]

> Почему не работает сей код в D2009

что значит не работает?

---

← →
KilkennyCat ©   (2009-12-16 22:12) [3]

http://delphimaster.net/view/15-1260820725/

---

← →
KilkennyCat ©   (2009-12-16 23:35) [4]

> procedure ClearEdits;

между этими двумя словами ничего не пропущено? Типа TForm1...

---

← →
DVM ©   (2009-12-16 23:38) [5]

> KilkennyCat ©   (16.12.09 23:35) [4]

вот и я для этого спросил, что в его понимании не работает, у него может и не компилируется вовсе.

---

← →
KilkennyCat ©   (2009-12-17 00:19) [6]

А не будет компилировать?
Я не помню, что было конкретно в одной функции, которую я написал вложенной, а потом слишком тупо перенес во внешнюю область :) но 2007 делфя схавала такую ошибку, а я долго думал, почему все так плохо.

---

← →
Anatoly Podgoretsky ©   (2009-12-17 00:44) [7]

Edit.Clear

---

← →
Anatoly Podgoretsky ©   (2009-12-17 00:46) [8]

> Почему не работает сей код в D2009

Сообственно приведеный код не будет работать ни в одной Дельфи, он даже не откомпилируется.

---

← →
Германн ©   (2009-12-17 02:20) [9]

> Anatoly Podgoretsky ©   (17.12.09 00:46) [8]


> DVM ©   (16.12.09 23:38) [5]

---

← →
brother ©   (2009-12-17 04:18) [10]

Если именно

> 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;


---

← →
icWasya ©   (2009-12-17 10:20) [11]

или даже так
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);

---

← →
Михаил Левшов   (2009-12-17 10:33) [12]

Всем огромное Спасибо!
1) Я чисто скопипастил процедуру в свой код, не объявив её в Приватах! (После оъявления код скомпилировался)
2) Без объявления скомпилировалось с добавлением  procedure TForm1.ClearEdits;

С Уважением!

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.005 c