Napisalem prosta procedure do wyswietlania tabliczki mnozenia:
procedure TForm1.Button1Click(Sender: TObject);
var
wartosc,i,j:integer;
begin
tabliczka.RowCount:=strtoint(kolumny.Text)+1;
tabliczka.ColCount:=strtoint(wiersze.Text)+1;
tabliczka.FixedCols:=1;
tabliczka.FixedRows:=1;
for i:=1 to tabliczka.RowCount-1 do tabliczka.Cells[i,0]:=inttostr(i);
for j:=1 to tabliczka.RowCount-1 do tabliczka.Cells[0,j]:=inttostr(j);
for i:=1 to tabliczka.RowCount-1 do
for j:=1 to tabliczka.ColCount-1 do begin
wartosc:=i*j;
tabliczka.Cells[i,j]:=inttostr(wartosc);
//tabliczka.Cols[j].SaveToFile('test.txt');
application.ProcessMessages;
end;
statusbar1.SimpleText:='Program obliczyl wszystko!!'
end;
Moj problem polega na przeciazeniu. Jak daje wartosci 5000x5000 to wyskakuje mi out of memory i komp sie wiesza. Komputer posiada 358 mb ramu i 1100 Mhz procesor. W jaki inny sposob mozna przyspieszyc dzialanie aplikacji ?? Glownie chodzi mi o petle obliczajaca ta tabliczke oraz ja wyswietlajaca do stringgrida.
Z gory serdecznie dziekuje :)