StringGrid Begrenzung bei ca. 1 Mio Zeilen ?

**nobby**

Hallo

Ich versuche ein StringGrid mit Daten zu füllen. Ab einer bestimmten Anzahl Zeilen bekomme ich eine EAccessViolation. Die Begrenzung scheint bei ca. 1 Mio. rows zu liegen (1024 * 1024). Hat jemand eine Ahnung, ob man diese Begrenzung umgehen kann? Ich habe ca. 4 Mio. Datensätze zum laden.

markieren

Code:

			procedure TForm2.Button1Click(Sender: TObject);

const

  ROW_LIM = 1024 * 1024;

var

  i: Integer;

begin

  StringGrid1.RowCount := ROW_LIM + StringGrid1.FixedRows;

  Label1.Caption := 'Row count: ' + IntToStr(StringGrid1.RowCount);

  Application.ProcessMessages;

  try

    for i := StringGrid1.FixedRows to ROW_LIM do

      StringGrid1.Cells[0, i] := IntToStr(i);

  except

    on E: Exception do Label1.Caption := E.Message + ' at row ' + IntToStr(i);

  end;

end;

Besten Dank für jegliche Hinweise,
Nobby

StringGrid Begrenzung bei ca. 1 Mio Zeilen ?

StringGrid Begrenzung bei ca. 1 Mio Zeilen ?

Forumregeln