[BuTeK22]

Здравствуйте!!
Вот код программы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

Админ: Теги, теги и еще раз теги!

Цвет почему то всегда красный. В чем причина?

[lmikle]

Что-то вы, как мне кажется, запутались в begin-end'ах.
Отформатируйте код и увидите свою ошибку.

[BuTeK22]

Да вроде все в порядке 3 begin и 3 end

[BuTeK22]

Цвет считывается с последней строчки почему то

[Drozh]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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

[BuTeK22]

Спасибо Drozh, то что надо!!