Скачать: CL | DM;

Содержимое TEdit ???   Найти похожие ветки 

← →
Toxa_ua ©   (2005-11-03 21:27) [0]

Скажите как опредилить есть ли в компоненте TEdit что-нить (как опредилить что он пустой или там просто пробел вначале стоит?)?

---

← →
NightLord ©   (2005-11-03 21:32) [1]

if Edit1.text=" " then ShowMessage("Просто пробел");

---

← →
Toxa_ua ©   (2005-11-03 21:38) [2]

Сори я не так вопрос сформулировал. Как поверить несколько компонентов TEdit на пустоту?

---

← →
Сайбель Алексей ©   (2005-11-03 21:46) [3]

ComponentCount
..

if (Components[i] is TEdit) then
 if (Components[i] as TEdit).Text<>""
..

---

← →
begin...end ©   (2005-11-03 21:48) [4]

> Сайбель Алексей ©   (03.11.05 21:46) [3]

Если используется проверка is, Components[i] as TEdit лучше заменить на TEdit(Components[i]).

---

← →
Toxa_ua ©   (2005-11-03 21:53) [5]

Проверять надо в цикле? С последующим увеличением i?

---

← →
Toxa_ua ©   (2005-11-03 21:55) [6]

И еще как узнать какое значение ComponentCount имеет конкретный компонент?

---

← →
NightLord ©   (2005-11-03 21:56) [7]

А как вы думаете?

---

← →
Toxa_ua ©   (2005-11-03 22:18) [8]

Нет у компонентов TEdit свойства GroupIndex! Не получается:


ComponentCount
..

if (Components[i] is TEdit) then
if (Components[i] as TEdit).Text<>""
..

---

← →
злобная танька   (2005-11-03 22:23) [9]

procedure TForm1.PixelsClick(Sender: TObject);
var
 i: integer;
begin
 ShowMessage("Внимание! Проверка на пустоту");
 for i := 0 to ComponentCount-1 do
   if (Components[i] is TEdit) then
     if (Components[i] as TEdit).Text="" then
       ShowMessage("Компонент " + Components[i].Name + " пустой!");
end;

---

← →
Toxa_ua ©   (2005-11-03 22:26) [10]

Спасибо. Помогла ламаку.-) Я то думал что у TEdit как и у TButton нужно use св-во GroupIndex

---

← →
злобная танька   (2005-11-03 22:31) [11]

блин при чем здесь groupindex..
ну шо сказать читай книжки!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c