Einzelnen Beitrag anzeigen

Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#1

[BDS 2006] Schließen einer Anwendung mit einem StringGrid da

  Alt 26. Nov 2008, 21:59
Hallo,

ich habe auf einem Form ein StringGrid und befüllen es mit Daten für Testzwecke.
Wenn ich anschließend das Form schließe, dann dauert es eine Ewigkeit bis die Applikation aus dem Taskmanger verschwunden ist. Der Speicherverbrauch steigt stetig an und die BDS 2006 wird nicht freigegeben. Woran kann das liegen?

Delphi-Quellcode:
procedure TForm3.btnSGmitDatenFuellenClick(Sender: TObject);
var
  iSpalte,
  iZeile: Integer;
  iTemp: Integer;
  iSpAnzahl: Integer;
  iZeAnzahl: Integer;
begin
  StringGrid.DefaultColWidth:= 150;
  iSpAnzahl:= 255+1;
  iZeAnzahl:= 65535+1;
  StringGrid.ColCount:= StringGrid.ColCount+iSpAnzahl;
  StringGrid.RowCount:= StringGrid.RowCount+iZeAnzahl;
  iSpalte:= 0;
  iZeile:= 0;
  for iSpalte := 2 to iSpAnzahl do
  begin
    for iZeile := 2 to iZeAnzahl do
    begin

    StringGrid.Cells[iSpalte,iZeile]:= 'Zeile: '+intToStr(iZeile)+' '+
                                       'Spalte: '+inttoStr(iSpalte);
   end;
  end;
end;
Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat