Bu yazıda delphi ile 2 adet stringgrid?in icindeki sayıları capma ve toplama işlemi yaptıracağız. Uzatmadan gerekli kodlar ;
Oncelikle form uzerine sg1 ve sg2 adında StringGrid oluşturalım toplanacak ve carpılacak sayılar bunun ustunde olacaktır. Bu sg1 ve sg2 5×5 lik olmalıdır cunku buna gore yazılmıştır sizler ustunde oynayarak bunu duzenleyebilirsiniz. Sg3 de 5×5 olmalıdır.Rasgele iki StringGrid?i sayılarla doldurmak icin:

Rasgele iki StringGrid?i sayılarla doldurmak icin:
Kod:
var i,j:integer; begin randomize; for j:=0 to 4 do begin for i:=0 to 4 do begin if Random(2)=1 then sg2.Cells[i,j]:=inttostr(Random(20)*-1) else sg2.Cells[i,j]:=inttostr(Random(20)); if Random(2)=1 then sg1.Cells[i,j]:=inttostr(Random(20)*-1) else sg1.Cells[i,j]:=inttostr(Random(20)); end; end;
Toplamak icin kodlar;
Kod:
var i,j:integer; begin for j:=0 to 4 do begin for i:=0 to 4 do begin sg3.Cells[i,j]:=sg1.Cells[i,j] +'+'+ sg2.Cells[i,j]+'= '; sg3.Cells[i,j]:=sg3.Cells[i,j]+inttostr(strtoint(sg1.Cells[i,j]) + strtoint(sg2.Cells[i,j])); end; end; end;
Carpmak icin kodlar;
Kod:
var x,y,i,toplam:integer; t1:string; begin t1:=''; toplam:=0; for x:=0 to 4 do begin //satır for y:=0 to 4 do begin //sutun for i:=0 to 4 do begin t1:=t1 +'(' + sg1.Cells[i,x]+'*'+sg2.Cells[y,i]+')'; toplam:=toplam + strtoint(sg1.Cells[i,x])*strtoint(sg2.Cells[y,i]); end; sg3.Cells[y,x]:=t1+'='+inttostr(toplam); t1:=''; toplam:=0; end; end; end;

Proje Dosyasını İndir

Kaynak: http://www.tekno-logy.com/delphi-matris.html
__________________