ein Interface für ein 2D-Skalarfeld beliebiger Größe ?

[marabu]

Hallo,

dynamische Arrays tragen ihre Dimensionierung immer mit sich herum:

Delphi-Quellcode:

const
  MAXROWS = 400;
  MAXCOLS = 300;

type
  TSingleDynMatrix = array of array of Single;

procedure ShowDimensions(sdm: TSingleDynMatrix);
begin
  ShowMessage(Format('dimensions: %d, %d', [Length(sdm), Length(sdm[0])]));
end;

procedure TestDimensions(MaxRows, MaxCols: Word);
var
  sdm: TSingleDynMatrix;
begin
  SetLength(sdm, MaxRows, MaxCols);
  ShowDimensions(sdm);
  SetLength(sdm, 0, 0);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  TestDimensions(MAXROWS, MAXCOLS);
end;

Vielleicht hast du ja dadurch eine Sorge weniger?

Freundliche Grüße