Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Содержимое TEdit ??? [D6, WinXP]

Toxa_ua © (2005-11-03 21:27:00)
Скажите как опредилить есть ли в компоненте TEdit что-нить (как опредилить что он пустой или там просто пробел вначале стоит?)?

злобная танька (2005-11-03 22:31:00) [1]
блин при чем здесь groupindex..
ну шо сказать читай книжки!

Toxa_ua (2005-11-03 22:26:00) [2]
Спасибо. Помогла ламаку.-) Я то думал что у TEdit как и у TButton нужно use св-во GroupIndex

злобная танька (2005-11-03 22:23:00) [3]
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:18:00) [4]
Нет у компонентов TEdit свойства GroupIndex! Не получается:

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

NightLord (2005-11-03 21:56:00) [5]
А как вы думаете?

Toxa_ua (2005-11-03 21:55:00) [6]
И еще как узнать какое значение ComponentCount имеет конкретный компонент?

Toxa_ua (2005-11-03 21:53:00) [7]
Проверять надо в цикле? С последующим увеличением i?

begin...end (2005-11-03 21:48:00) [8]
> Сайбель Алексей © (03.11.05 21:46) [3]

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

Сайбель Алексей (2005-11-03 21:46:00) [9]
ComponentCount .. if (Components[i] is TEdit) then if (Components[i] as TEdit).Text<>'' ..

Toxa_ua (2005-11-03 21:38:00) [10]
Сори я не так вопрос сформулировал. Как поверить несколько компонентов TEdit на пустоту?

NightLord (2005-11-03 21:32:00) [11]
if Edit1.text=' ' then ShowMessage('Просто пробел');

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »