Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c