Das hier:
Delphi-Quellcode:
constructor TPixelField.Create(Width, Height : Integer);
Var i : Integer;
begin
SetLength(Pixels, Width);
for i := low(Pixels) to high(Pixels) do
SetLength(Pixels[i], Height);
end;
könnte man doch noch so abkürzen:
Delphi-Quellcode:
constructor TPixelField.Create(Width, Height : Integer);
begin
SetLength(Pixels, Width, Height);
end;