Wie definiert man eine TStringList-Typ-Variable

Question

Ich habe ein Problem. Ich kann Variable nicht korrekt neu definieren, indem ich Code folge.

 UnitObj.prjOne:=ReturnRightList(0); 
     for j:=0 to UnitObj.prjOne.Count-1 do 
      str:=UnitObj.prjOne.ValueFromIndex[j];//here i get for example '32' 

     UnitObj.prjTwo:=ReturnRightList(1); 
     for j:=0 to UnitObj.prjTwo.Count-1 do 
      str1:=UnitObj.prjTwo.ValueFromIndex[j];//here i get for example '40' 

     for j:=0 to UnitObj.prjOne.Count-1 do 
      str4:=UnitObj.prjOne.ValueFromIndex[j]; // WHY HERE I GET '42' instead of '32' 

     UnitObj.prjThird:=ReturnRightList(2); 
     for j:=0 to UnitObj.prjThird.Count-1 do 
      str2:=UnitObj.prjThird.ValueFromIndex[j];//here i get for example '42' 


procedure TfrmLogin.FormCreate(Sender: TObject); 
begin 
    roleList:=TStringList.Create; 
end; 
function TfrmLogin.ReturnRightList(bPos:integer):TStringList; 
var sqlString:string; 
begin 
    roleList.Clear(); 
    case bPos of 
     0:sqlString0;//some sql queries 
     1:sqlString1; 
     2:sqlString2;  
    end; 
     SQLQueryPrjRight.Close; 
     SQLQueryPrjRight.SQL.Strings[5]:=sqlString; 
     SQLQueryPrjRight.ParamByName('ID').Value:=uInfo.ID; 
     SQLQueryPrjRight.Open; 
     while not SQLQueryPrjRight.EOF do 
       begin 
      roleList.Add(IntToStr(SQLQueryPrjRight.FieldByName('pID').AsInteger)); 
      SQLQueryPrjRight.Next; 
      end; 
    Result:=roleList; 
end;       

In Funktion ReturnRightList füllen i in einem TStringList roleList dass prjOne zugeordnet, prjTwo, prjThird. Aber danach bekomme ich drei TStringLists mit demselben Inhalt. Warum passiert es und wie löst man es? Danke

Answer 1

Sie haben nur eine einzige Instanz der String-Liste. Beachten Sie, dass Sie nur TStringList.Create einmal angerufen haben. Daher nur eine einzige Instanz. Jedes Mal, wenn Sie eine Liste auffüllen, füllen Sie die gleiche Listeninstanz und überschreiben den vorherigen Inhalt.

Sie müssen drei verschiedene Instanzen instanziieren. Ich kann Ihnen nicht genau sagen, wie Sie das umsetzen können, weil ich nicht Ihr ganzes Programm sehen kann. Sie müssen jedoch TStringList.Create dreimal aufrufen, einen für jede Liste, und diese neu erstellten Listen in Ihren Variablen prjOne, prjTwo und prjThree speichern. Sie müssen auch roleList entfernen, das keine Verwendung bietet.

Der Schlüssel zum Verständnis all dies ist das Konzept eines Referenztyps. Eine Klasse ist ein Referenztyp. Eine Variable vom Typ TStringList ist also eine Referenz auf eine Instanz. Das ist ein Zeiger auf eine Instanz. Wenn Sie einer Referenztypvariablen zuweisen, kopieren Sie die Referenz (den Zeiger) und kopieren den Wert nicht. Das bedeutet, dass sich in Ihrem Code alle drei Variablen prjXXX auf die gleiche Objektinstanz beziehen oder auf dieselbe verweisen.