EOutOfMemory with TSurfaceSeries

[Uwe Raabe]

I get an EOutOfMemory exception displaying a 3D surface with my data. Luckily I was able to track down the problem to a few lines of code:

• create a VCL forms application
• drop a TChart onto the form
• add a 3D surface series
• execute the code below

Code: Select all

var
  I: Integer;
  J: Integer;
begin
  Series1.Clear;
  for I := 10 to 100 do begin
    for J := 1 to 100 do begin
      Series1.AddXYZ(I*10, Random(10), J*100000);
    end;
  end;
end;

The problem seems to be related to the large X- and Z-values. Everything is OK when the factor is removed.

[Sandra]

Hello Uwe,

The problem is caused because the data values you add in your series are irregular. Therefore you need setting the surface's to IrregularGrid=true as do in code below:

Code: Select all

procedure TForm3.FormCreate(Sender: TObject);
var
  I: Integer;
  J: Integer;
begin
  Series1.Clear;
  Series1.IrregularGrid := true;
  for I := 10 to 100 do begin
    for J := 1 to 100 do begin
      Series1.AddXYZ(I*10, Random(10), J*100000);
    end;
  end;
end;

end.

Notice that such series need to be populated as described here.

Hoping this helps you.

Thanks in advance