Здравствуйте!!
Вот код программы
Код:
If (Edit1.Text<>'') then
begin
If ADOTable1.Locate('Login',Edit1.Text,[loCaseInsensitive, loPartialKey]) then
begin
Label3.Caption:=('Такое имя пользователя уже есть!');
Label3.font.Color:=clREd;
end
else Label3.Caption:=('Нет совпадений!');
Label3.font.Color:=clGreen;
end
else Label3.Caption:=('Так нельзя!!!!');
Label3.font.Color:=clRed;
end;
Админ: Теги, теги и еще раз теги!
Цвет почему то всегда красный. В чем причина?