Item eines arrays anhand eines strings?

[Pseudemys Nelsoni]

Tag,

ist soetwas wie das hier:

MyArray['suchwort'].irgendwas... möglich?

ich meine kann ich ein item eines arrays mit einem string bekommen statt mit einem ordinalen typ?
ich suche irgendwie einen weg (falls überhaupt möglich) nicht ewig schleifen dafür benutzen zu müssen

[omata]

Moin,

muss es unbedingt ein string sein? Was spricht gegen einen Aufzählungstypen?
Der ist doch dann auch aussagekräftiger.

Wenn es unbedingt ein String sein muss, würde ich eine eigene Klasse schreiben und dort über einen Property die Item-Suche-Methode realisieren.

Kannst ja nochmal etwas genauer werden.

MfG
Thorsten

[dizzy]

Über Strings indizieren!? Keine Chance. Bei ungeordneten nicht ordinalen Schlüsseln bleibt dir nichts anderes als eine lineare Suche in einer Schleife nach den Schlüsseln. Und selbst da geht's nicht über den Index, sondern der Schüssel muss in den Elementen enthalten sein.

Evtl. ist eine Liste oder gar ein Baum für dein Vorhaben geeigneter?

Gruss,
Fabian

[Christian Seehase]

Moin Pseudemys Nelsoni,

mit ein bisschen Aufwand geht's:

Delphi-Quellcode:

type
  TMyObject = class(TObject)
  end;

  TMyType = class(TObject)
  private
    FMyArray : TStringList;
    function GetMyArray(sIndex: string): TMyObject;
  public
    property MyArray[sIndex : string] : TMyObject read GetMyArray;
  end;

implementation

{$R *.DFM}

{ TMyType }

function TMyType.GetMyArray(sIndex: string): TMyObject;

var
  iIndex : integer;

begin
  Result := nil;
  iIndex := FMyArray.IndexOf(sIndex);
  if iIndex = -1 then exit;
  Result := TMyObject(FMyArray.Objects[iIndex]);
end;

[dizzy]

Zitat von Christian Seehase:

  iIndex := FMyArray.IndexOf(sIndex);

TStingList (bzw. TStrings) macht's aber auch über eine lineare Suche:

Delphi-Quellcode:

function TStrings.IndexOf(const S: string): Integer;
begin
  for Result := 0 to GetCount - 1 do
    if CompareStrings(Get(Result), S) = 0 then Exit;
  Result := -1;
end;

Es sei denn die Eigenschaft "Sorted" von TStringList ist "true", dann wird irgendwie was anderes gemacht (habs nicht ganz geschnallt was genau ).

Wollte ich nur angemerkt haben -> ohne Schleife (wenn auch in der RTL versteckt) geht's nicht.

Gruss,
Fabian

[jim_raynor]

Zitat von dizzy:

Es sei denn die Eigenschaft "Sorted" von TStringList ist "true", dann wird irgendwie was anderes gemacht (habs nicht ganz geschnallt was genau ).

Nicht ganz korrekt. IndexOf macht immer Lineare Suche. Wenn du Sorted auf true setzt kannst du allerdings Find benutzten. Dort wird dann binär gesucht. Vielleicht hilft eine Suche bei Google nach Binärsuche

[dizzy]

Zitat von jim_raynor:

Nicht ganz korrekt. IndexOf macht immer Lineare Suche. Wenn du Sorted auf true setzt kannst du allerdings Find benutzten. Dort wird dann binär gesucht. Vielleicht hilft eine Suche bei Google nach Binärsuche

Ja sag ich doch: "irgendwie was anderes"