Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Undefinierter Bezeichner: 'VarArrayOf' (https://www.delphipraxis.net/13443-undefinierter-bezeichner-vararrayof.html)

Ulrich Wolf 18. Dez 2003 14:55


Undefinierter Bezeichner: 'VarArrayOf'
 
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
Delphi-Quellcode:
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

Thunderchild 18. Dez 2003 15:05

Re: Undefinierter Bezeichner: 'VarArrayOf'
 
Würd einfach mal sagen, die haben die Unit geändert.
Steht denn Variants mit in Uses drin?

sakura 18. Dez 2003 15:06

Re: Undefinierter Bezeichner: 'VarArrayOf'
 
Cursor in Delphi auf VarArrayOf setzen und F1 drücken ;-)

--> uses Variants;

...:cat:...

Ulrich Wolf 19. Dez 2003 08:56

Re: Undefinierter Bezeichner: 'VarArrayOf'
 
Hey Thunderchild, echt Super. Das war's
In den Uses hat Variants gefehlt.
Vielen Dank.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz