Array Namen wie in LUA oder PHP

[dor557]

Hallo leute,

Habe nun schon etwas in Google und DP nach infos gesucht aber nicht gefunden. Da ich mit arrays arbeite und nicht immer einen Array von x bis x durchsuchen möchte muss es doch auch eine möglichkeit geben das man Arrays benennen kann oder ??

z.b. Spieler['Meyer'] wie es z.b. in PHP und LUA sehr oft der fall ist.

Denn wenn ich die Socketadresse eines Spielers braucht um im eine Nachricht zu senden will ich nicht den array der womöglich mal mehr als 2 einträge hat nicht komplett durchsuchen müssen. Würde sicherlich mit der Zeit recht belastend für die Performance wenn der nur mit suchen beschäftigt ist. und ein Server sollte ja immerhin so schnell wie möglich reagieren da noch die Internetverbindung besteht und auch da verzögerungen sind.

geht das ???

Bin dabei das Kartenspiel Phase 10 zu erstellen. wird hinter ein Kostenloses Spiel. Ich habe da zwar noch Lizenz bedenken ob ich das darf da das Spiel von Ravensburger als Kartengesellschaftsspiel existiert aber für den Privaten Gebrauch zu hause und mit Freunden die weit weg wohnen werde ich das auf Alle Fälle fertig stellen. :)

Hoffe auf eine Gute lösung mir fällt da zur zeit keine ein.

Gruss sascha

[Namenloser]

Sowas nennt sich assoziatives Array oder auch Dictionary oder Hashmap. Ab Delphi 2009 gibt es dafür soweit ich weiß generische Klassen, davor sieht es schlecht aus – da musst du selbst was basteln. Ich hab mal eine abstrakte Hashmap programmiert, von der man relativ leicht spezialisierte Klassen ableiten kann. Die habe ich auch in diesem Beitrag schonmal veröffentlicht. Ich wollte sie ursprünglich noch etwas aufhübschen und besser dokumentieren, um sie in der Codelib zu veröffentlichen, bin aber bisher noch nicht dazu gekommen. Vielleicht kannst du trotzdem was damit anfangen...

[Neumann]

Hallo,

man könnte ein Clientdataset dafür einsetzen, also praktisch eine Tabelle mit zwei Spalten. Finden kann man dann mit Locate, auch Anfügen, Löschen, Ändern sind kein Problem.

Locate ist zwar nicht besonders effektiv, aber wenn es nicht 100000 oder mehr Wertepaare sind sollte das nichts machen und schnell genug sein.

Gruß

Ralf

[Elvis]

Um noch eins anzuhängen: Alzaimar hatte uns hier 2 sehr nützliche Dictionaries zur Verfügung gestellt.
Die hatte ich sehr oft benutzt und war bisher immer vollstens zufrieden gewesen.

[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'.....:-D

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