Содержимое 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;

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

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

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

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