Hallo,
bin gerade dabei ein in Delphi 5 geschriebenes Programm in Delphi 7 zu portieren. Dabei ist folgender Fehler
Undefinierter Bezeichner: 'VarArrayOf'
aufgetreten.
Die codezeile ist
Table3.Locate('Kennung ; Password', VarArrayOf([''+Kenn+'',''+Pass+'']),[]) = false
der ganze Teil ist:
Delphi-Quellcode:
{ Hier beginnt der Quellcode für die Login-Überprüfung }
if StatusMelder = 1 then
begin
for n:=1 to length(gesendet) do
if gesendet[n]='*' then
begin
Wort := Copy( gesendet, x, n - x);
if (Kenn <> '') and (Pass = '') then
begin
Pass := Wort;
end;
if Kenn = '' then
begin
Kenn := Wort;
end;
x := n+1;
end;
n := length(Kenn);
Kenn := Copy( Kenn, 1, n-1);
if
Table3.Locate('Kennung ; Password', VarArrayOf([''+Kenn+'',''+Pass+'']),[]) = false
then
begin
ServerSocket2.Socket.Connections[0].SendText('0');
exit;
end;
if
Table3.Locate('Kennung ; Password', VarArrayOf([''+kenn+'',''+pass+'']),[]) = true
then
begin
ServerSocket2.Socket.Connections[0].SendText('1');
exit;
end;
end;
{ Hier ENDET die LOGIN-Überprüfung }
Waum kommt hier die Fehlermeldung und wie kann ich sie beheben.
Viel Grüße