Array Namen wie in LUA oder PHP

[dor557]

Ich glaube das Dictonary von Alzaimar ist genau das was ich brauche

Danke für die infos. werde es gleich mal versuchen

[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

[himitsu]

An einigen Stellen versteckt sich soein Array von mir.
assocarray

assoziatives Array associative array

[Hawkeye219]

Hallo,

notfalls genügen sogar die Bordmittel von Delphi:

Delphi-Quellcode:

var
  SL: TStrings;
begin
  SL := TStringList.Create;
  try
    SL.Add('10=Peter');
    SL.Add('23=Paul');
    SL.Add('14=Mary');
      :
    ShowMessage (SL.Values['23']);
  finally
    SL.Free;
  end;
end;

Gruß Hawkeye

[dor557]

Die Boardmittel werden doch bei grösseren mengen sicherlich sehr langsam werden oder ???

Ich fange sogar an darüber nach zu denken eine Datenbank anbindung zu machen. Firebird oder so... aber das wäre doch mit Kanonen auf Spatzen geschossen oder ??

hmm..... Will doch nur n kleines Spiel programmieren 'Schluchtz'.....

Ich überlege um für die ersten test erstmal n array[1..4] zu machen und wenn der rest geht mich um die GROSSEN mengen zu kümmern....

wollte das von anfang an gleich machen damit ich hinter nicht gross umbauen muss...

gruss Sascha