array angabe mit string

[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