[BuTeK22]

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

Код:

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]

Код:

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

[BuTeK22]

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