Функция результат которой массив

[Fr_DWARF]

Если чесно, то нет. Все равно не понимаю как это поможет

[sorockinalex]

ребят, поиском по 'incopatible type' нашёл эту тему, поэтому пишу сюда, не обижайтесь, если не по теме, чтобы новую тему не создавать:

условие отказывается работать, кто подскажет почему? Я уж по-всякому изощрялся, даже три переменных создал...

procedure TForm1.Btn_OKClick(Sender: TObject);
var
text, pass, encryptedtext, decryptedtext: WideString;
TempVar_Id, TempVar_Pass, TempVar: PChar;
begin
TempVar:=PChar('d');
TempVar_Id:=PChar(Edit_EmployeeId.T ext);
TempVar_Pass:=PChar(Edit_EmployeePa ss.Text);

if TempVar_Id=TempVar or TempVar_Pass=TempVar then
begin
ADOConnection.Connected:=true;
ADOConnection.Open;
ADOQuery.SQL.Add('SELECT Id, PassHash FROM Employees WHERE (Id='+TempVar_Id+' AND PassHash="'+TempVar_Pass+'")');
ADOQuery.Open;
MessageBox(Application.Handle,PChar (inttostr(ADOQuery.RecordCount)),'C aption', MB_OK);
ADOConnection.Close;
ADOConnection.Connected:=False;
end;
text := '6100116305';
pass := '6100116305';
encryptedtext:=Encrypt(text, pass);
decryptedtext:=Decrypt(Encrypt(text , pass), pass);


Form1.Close;
end;

так тоже не работает:
if TempVar_Id=nil or TempVar_Pass=nil then

[sorockinalex]

блин, в скобки нужно просто каждое сравнение...
if (TempVar_Id=TempVar) or (TempVar_Pass=TempVar) then

[Аватар]

1. if (TempVar_Id=TempVar) or (TempVar_Pass=TempVar) then
2. Никогда это условие не выполнится, с чего бы это разные указатели должны равняться друг другу