Verketten von Strings in Variablennamen

Question

Dies ist eine einfache Frage, aber ich weiß nicht, wie man einen Variablennamen durch Verketten von zwei Strings erstellt. Der folgende Code ist, wie man es nicht tut ...

var 
    UserName1 : String; 
    UserName2 : String; 
    Password1 : String; 
    Password2 : String; 
    UserCount : Integer; 

UserCount := 2; 

for Wk1 := 1 to UserCount do 
begin 
    DoLogin(UserName+Wk1, Password+Wk1); 
end; 

Answer 1

Grundsätzlich können Sie dies nicht tun. Variablennamen werden zur Kompilierzeit festgelegt und in Adressen übersetzt, die den Wert der Variablen enthalten.

Es sieht so aus, als ob Sie ein Array wollen oder in diesem Fall zwei: ein Array enthält die Login-Namen und ein Array das Passwort. Natürlich könnten Sie die beiden zu einem Datensatz kombinieren und dann ein Array von Datensätzen haben.

type 
LogType = record 
      username, password: string[31] 
      end; 

var 
LogArray: array [1..10] of logtype; 
usercount, wk1: integer; 

begin 
UserCount := 2; 
for Wk1 := 1 to UserCount do 
    begin 
    DoLogin(logarray[wk1].username, logarray[wk1].password); 
    etc 
    end; 
end; 

Answer 2

Versuchen Sie nicht, das zu tun.

Reflection (oder RTTI - Run Time Type Information) würde benötigt werden und es ist nicht gut in Delphi zu verwenden, da es von Release zu Release wechseln kann und Sie müssten Debug-Informationen beim Bauen mit einbeziehen.

Verwenden Sie also ein Array oder zwei.

var 
UserNames[1..2] : String; 
Passwords[1..2] : String; 
UserCount : Integer; 

UserCount := 2; 

for Wk1 := 1 to UserCount do 
begin 
    DoLogin(UserNames[Wk1], Passwords[Wk1]); 
end;