Несовпадение типов

← →
Alexandr3 (2003-04-30 11:26) [0]

Есть процедура
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
var
ps: String;
psf:String ;
pss: String;
reg: Tregistry ;

begin
reg:= TRegistry.Create;
reg.RootKey:=Hkey_current_user;
Reg.OpenKey("\Software\consum\Login dialog",true);
ps:=Reg.ReadString("Ent");
pss:=Edit1.Text;
psf:=Edit2.Text;
if ps=Password.Text and AnsiCompareStr(psf,pss)=0 then
Reg.WriteString("Ent",Edit2.text)
else
ShowMessage("Неправильно заданны параметры");

end;
Компилятор на строке if ps=Password.Text and AnsiCompareStr(psf,pss)=0 then
выдает ошибку несовместимые типы String and integer
Ошибка в функции
Чего ему надо тип то String?

← →
jack128 © (2003-04-30 11:34) [1]

if (ps=Password.Text) and (AnsiCompareStr(psf,pss)=0) then и читать про преоритет операций

← →
Separator © (2003-04-30 11:34) [2]

if (ps = Password.Text) and (AnsiCompareStr(psf,pss) = 0) then

← →
Alexandr3 (2003-04-30 11:37) [3]

Спасибо спасибо спасибо

Несовпадение типов Найти похожие ветки