array angabe mit string

[Muellermilchtrinker]

Hallo DP,

ich wollt ein Array so ansteuern:

Delphi-Quellcode:

s := '1,1';
arrayfeld[s] := 1;

Leider funktioniert das ja nicht. Gibt es vielleicht eine Möglichkeit das so zu realisieren.
Wäre nett, wenn ihr mir helfen könt.

[himitsu]

assoziatives array

Über ein Array-Property läßt sich sowas selber erstellen.
Geht bei Objekten und seit D2006 auch in Records.
http://www.delphipraxis.net/132817-u...ler-e2506.html

Du könntest aber auch mal nach Hashmaps ausschau halten, da gibt's Welche mit String-Index.


PS: eine TStringList kann sowas auch

[Muellermilchtrinker]

gibt es da nichts einfacheres??

[DeddyH]

Du könntest Dir einen Interpreter schreiben, der mit der Stringangabe etwas anfangen kann und dementsprechend das Array bearbeitet.

[himitsu]

du meinst sowas?

Delphi-Quellcode:

type
  TMyArray = record
  private
    procedure readIndex(index: string; var x, y: integer);
    function getItem(index: string): integer;
    procedure setItem(index: string; value: integer);
  public
    arr: array[0..9] of array[0..9] of integer;
    property item[index: string] read getItem write setItem;
  end;

procedure TMyArray.readIndex(index: string; var x, y: integer);
var
  ex, ey: integer;
begin
  val(index, x, ex);
  val(copy(index, ex + 1), y, ey);
  if (ex = 0) or (index[ex] <> ',') or (ey <> 0)
      or (x < 0) or (x >= length(arr))
      or (y < 0) or (y >= length(arr[0])) then
    raise Exception.Create('invalid index');
end;

function TMyArray.getItem(index: string): integer;
var
  x, y: integer;
begin
  readIndex(index, x, y);
  result := arr[x, y];
end;

procedure TMyArray.setItem(index: string; value: integer);
var
  x, y: integer;
begin
  readIndex(index, x, y);
  arr[x, y] := value;
end;

und wehe es beschwert sich wer, daß meine Interpreter nicht genug oop und keine zigtausenden vererbungen enthalten

[Muellermilchtrinker]

Hat sich erledigt, nur hab ich noch eine Frage.
Hab jetzt ein Dreidimensionales array (anderer Zweck). Kann ich das Array beim Programm überwachen???