Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c