Delphi StringGrid döngü problemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
forisicle
Üye
Mesajlar: 11
Kayıt: 01 May 2019 05:45

Delphi StringGrid döngü problemi

Mesaj gönderen forisicle » 05 May 2019 04:42

Toplamda 3 tablo arasında işlemler yaparak bir tabloyu doldurmaya çalışıyorum ama 1. satırları doldurduktan sonra 2. satıra geçmiyor döngü olmasına rağmen sıkıntı ne olabilir

https://media.discordapp.net/attachment ... height=439

Kod: Tümünü seç

for satir:=2 to StringGrid2.RowCount do
for sutun:=1 to StringGrid2.ColCount do
begin

StringGrid2.Cells[sutun,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun-1,satir-2]))*(strtofloat(StringGrid4.Cells[0,satir-2])-(strtofloat(StringGrid1.Cells[sutun,satir-2])*strtofloat(StringGrid2.Cells[sutun+1,satir-1])+strtofloat(StringGrid1.Cells[sutun+1,satir-2])*strtofloat(StringGrid2.Cells[sutun+2,satir-1])+strtofloat(StringGrid1.Cells[sutun+2,satir-2])*strtofloat(StringGrid2.Cells[sutun+3,satir-1]))));
StringGrid2.Cells[sutun+1,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun,satir-1]))*(strtofloat(StringGrid4.Cells[0,satir-1])-(strtofloat(StringGrid1.Cells[sutun-1,satir-1])*strtofloat(StringGrid2.Cells[sutun,satir]))-(strtofloat(StringGrid1.Cells[sutun+1,satir-1])*strtofloat(StringGrid2.Cells[sutun+2,satir-1])+strtofloat(StringGrid1.Cells[sutun+2,satir-1])*strtofloat(StringGrid2.Cells[sutun+3,satir-1]))));
StringGrid2.Cells[sutun+2,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun+1,satir]))*(strtofloat(StringGrid4.Cells[0,satir])-(strtofloat(StringGrid1.Cells[sutun-1,satir])*strtofloat(StringGrid2.Cells[sutun,satir])+strtofloat(StringGrid1.Cells[sutun,satir])*strtofloat(StringGrid2.Cells[sutun+1,satir]))-(strtofloat(StringGrid1.Cells[sutun+2,satir])*strtofloat(StringGrid2.Cells[sutun+3,satir-1]))));
StringGrid2.Cells[sutun+3,satir]:=floattostr((1/strtofloat(StringGrid1.Cells[sutun+2,satir+1]))*(strtofloat(StringGrid4.Cells[0,satir+1])-(strtofloat(StringGrid1.Cells[sutun-1,satir+1])*strtofloat(StringGrid2.Cells[sutun,satir])+strtofloat(StringGrid1.Cells[sutun,satir+1])*strtofloat(StringGrid2.Cells[sutun+1,satir])+strtofloat(StringGrid1.Cells[sutun+1,satir+1])*strtofloat(StringGrid2.Cells[sutun+2,satir]))));

end;

Döngü kodları yukarda var
En son freeman35 tarafından 17 May 2019 08:31 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Sebep: hiyoroglif yazı kullanmıyoruz

Kullanıcı avatarı
proteknikblg
Üye
Mesajlar: 33
Kayıt: 27 Nis 2006 07:39
Konum: Sivas
İletişim:

Re: Delphi StringGrid döngü problemi

Mesaj gönderen proteknikblg » 06 May 2019 12:56

ilk bakışta gördüğüm sorun sutun döngüsü aşağıda sutunlara doğrudan ulaşmışsın bu nedenle sutun döngüsünü sil yalnızca satır döngün kalsın formullerinde hata yoksa istediğin sonuca ulaşabilirsin. Tabi yukarıda sutun değişkenine 1 değeri ata veya aşağıda sutun yazan yerlere 1 yaz

forisicle
Üye
Mesajlar: 11
Kayıt: 01 May 2019 05:45

Re: Delphi StringGrid döngü problemi

Mesaj gönderen forisicle » 06 May 2019 03:09

proteknikblg yazdı:
06 May 2019 12:56
ilk bakışta gördüğüm sorun sutun döngüsü aşağıda sutunlara doğrudan ulaşmışsın bu nedenle sutun döngüsünü sil yalnızca satır döngün kalsın formullerinde hata yoksa istediğin sonuca ulaşabilirsin. Tabi yukarıda sutun değişkenine 1 değeri ata veya aşağıda sutun yazan yerlere 1 yaz
Hocam dediğinizi denedim ama yine aynı sonucu aldım aynı zamanda sütun sayısı boru sayısıyla eş arttığı için döngü içinde olması lazım

Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3044
Kayıt: 17 Nis 2006 07:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: Delphi StringGrid döngü problemi

Mesaj gönderen sabanakman » 16 May 2019 05:22

for döngüsü bitiş değerleri ...Count-1 olması gerekmektedir. Zira bu gibi yapılarda ilk eleman 0. sırada bulunur 1. sırada değil.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .

Cevapla