Array Namen wie in LUA oder PHP

[dor557]

Also mein versuch ist etwas in die Binsen gegangen. Offenbar habe ich das Prinzip noch von den beiden Dictionaries nicht verstanden.
habe die von Alzaimar Siehe Hier genommen und Intuitiv folgendes erstellt.

Diesen code habe ich mal aus der Unit herauskopiert was benötigt ist damit das überhaupt gehen kann.

Delphi-Quellcode:

var  UserPosID : TStringDictionary;
procedure TForm1.FormCreate(Sender:TObject);
begin
  UserPosID := TStringDictionary.Create;
  UserPosID.CaseInsensitive := true;
  UserPosID.Clear;
end;

Die Find Funktion müsste wenn ich das Prinzip richtig verstanden habe dann die werte auslesen. Ich muss dazusagen ich bin absoluter Neuling im bereicht Pointer und habe davon KEINE Ahnung.
Es wird eigentlich nur der username zu dem entsprechenden esocket gespeichert.
Der String wird dann wenn es geht hinterher so aussehen : 'UserName;GameNR;'

Wenn ich die Variablen in den Funktionen definiere bekomme ich sogar ne Zugriffsverletzung....

Delphi-Quellcode:

var dReadString : String;
    dReadPointer : Pointer;
    dWriteString : String;
    dWritePointer : Pointer;

procedure Speichere_UserDaten(eSocket : Integer; oWriteString: String);
begin
  dWriteString := oWriteString;
  dWritePointer := @dWriteString;
  UserPosID.Add(inttostr(eSocket),dWritePointer);
end;

function Lese_UserDaten(eSocket : Integer) : String;
begin
  UserPosID.First;
  dReadPointer := nil;
  UserPosID.Find(inttostr(eSocket),dReadPointer);
  dReadString := string(dReadPointer^);
  result := dReadString;
end;

aus einem Bestimmten grund bekomme ich immer den zu letzt angelegten eintrag zu sehen
Meine Aufrufe sind wie Folgt :

Delphi-Quellcode:

Speichere_UserDaten(SocketNR,UserName);

UserName := Lese_UserDaten(SocketNR);

Habe ich da was Grundlegend Falsch gemacht ???

Das kommt davon wenn man sich auf ein gebiet begiebt das man nicht kennt
Hoffe es hat jemand einen Rat für mich....

gruss Sascha