Delphi (poczatkujacy) - sumowanie zawartosci z wierszy

[mlynus 0]

Prosze o wyrozumialosc jestem poczatkujacy ostatnio dostalem zjebke ze czegos nie umiem, ale dzieki wam sobie poradzilem tym razem mam problem zeby zsumowac zawartosc wszystkich wierszy jednej kolumny. Wiem ze trzeba to zrobic w petli juz probowalem ale gdzies robie blad.

[Pietrucha 0]

Wrzuc kod, to sie zobaczy.

[mlynus 0]

Ups pietrucha ciebie sie boje

 

begin

for a:=1 to stringgrid1.RowCount-1 do

begin

 

g:=g+strtoint(stringgrid1.cells[11,stringgrid1.rowcount-1]);

label13.Caption:=inttostr(g);

end;

 

na seri prosze o wyrozumialosc poczytalem troche o petlach for probilem pare prostych przykladzikow z ksiazki ale to mi nie wychodzi

[Pietrucha 0]

Ups pietrucha ciebie sie boje

No Co Ty? Jam jak baranek spokojny

begin

for a:=1 to stringgrid1.RowCount-1 do

begin

 

g:=g+strtoint(stringgrid1.cells[11,stringgrid1.rowcount-1]);

label13.Caption:=inttostr(g);

end;

Hmm... Juz dawno Delphi na oczy nie widzialem, wiec bede improwizowal.

Po pierwsze label13.Caption mozna ustawic za petla, bedzie szybciej.

A po drugie masz licznik w zmiennej 'a', ktorego nigdzie nie uzywasz. Wiec zamiast "StringGrid1.RowCount-1" powinno byc "a". Inaczej sumujesz a*wartosc ostatniego wiersza.

 

Nie jestem tez pewien, czy powinno byc "-1". Jesli wiersze sa numerowane od 1, to nie powinno byc. A jesli sa numerowane od zera, to powinno byc, ale za to "a:=0" w petli.

[mlynus 0]

czy widzalbys to tak ??

begin

for a:=1 to stringgrid1.RowCount-1 do

begin

 

g:=g+strtoint(stringgrid1.cells[11,a]);

label13.Caption:=inttostr(g);

end;

[Pietrucha 0]

Jakos tak...

Ale ciagle masz niekonsekwencje z tym numerowaniem wierszy. Chyba, ze sa numerowane od 0, a pierwszy wiersz jest u Ciebie naglowkiem tabelki, wiec wtedy ok.

 

Edit: I tego labela za petle daj

 

[Edytowane: 20/4/2004 przez Pietrucha]

[mlynus 0]

Cos zle liczy zrobilem tak jak mowisz ale winiki nie jest poprawny

 

for a:=1 to stringgrid1.RowCount-1 do

begin

 

g:=g+strtoint(stringgrid1.cells[11,a]);

 

end;

begin

label13.Caption:=inttostr(g);

 

Jesli chodzi o pierwszy wiersz to jest naglowikiem.

Wyglada na to ze on cos wymnarza nie mam pojecia

[Pietrucha 0]

Cos zle liczy zrobilem tak jak mowisz ale winiki nie jest poprawny

 

for a:=1 to stringgrid1.RowCount-1 do

begin

 

g:=g+strtoint(stringgrid1.cells[11,a]);

 

end;

begin

label13.Caption:=inttostr(g);

 

Jesli chodzi o pierwszy wiersz to jest naglowikiem.

Wyglada na to ze on cos wymnarza nie mam pojecia

O ile jest ten wynik rozny?

 

Czy na pewno wiersze sa numerowane od zera?

 

Zwroc uwage tez, ze sumujesz z kolumny o indeksie 11 - jesli jest numerowanie od zera, to bedzie do 12 kolumna widoczna na ekranie.

[Pietrucha 0]

Sprobuj numerowac od 1 do StringGrid.RowCount, bez "-1". Zdaje mi sie, ze wlasnie wiersze sa numerowane od 1. Jesli tak, to zwroc uwage na numer kolumny - sumujesz teraz po 11 widocznej kolumnie.

[mlynus 0]

Tak zgadza sie kolumna o indeksie 11 jest widzona kolumna nr 12

Nie wiem gdzie jaest blad moze gdzie indziej

To zdarzenie mam przypisane pod buttona ktory przerzuca zawartosc z edit jest jakby potwierdzeniem wpisanej wartosci a zarazem ma podliczac koljne liczby ktore sa wprowadzane nie wiem czy to zrozumiale napisalem ale moze zrozumiesz o co mi chodzi

 

A wiec jak wpisuje przykladowo 15- zatwierdzam, to zostaje ta wartosc przerzucona do stringgrid suma zgadzsie jest = 15

ale przy kolejnym dodaniu np znowu liczby 15 to suma wychodzi 60 a nie 30

[Pietrucha 0]

Tak zgadza sie kolumna o indeksie 11 jest widzona kolumna nr 12

Nie wiem gdzie jaest blad moze gdzie indziej 

To zdarzenie mam przypisane pod buttona ktory przerzuca zawartosc z edit jest jakby potwierdzeniem wpisanej wartosci a zarazem ma podliczac koljne liczby ktore sa wprowadzane nie wiem czy to zrozumiale napisalem ale moze zrozumiesz o co mi chodzi

 

A wiec jak wpisuje przykladowo 15- zatwierdzam, to zostaje ta wartosc przerzucona do stringgrid suma zgadzsie jest = 15

ale przy kolejnym dodaniu np znowu liczby 15 to suma wychodzi 60 a nie 30

A zerujesz zmienna "g" przed sumowaniem??

[mlynus 0]

Tak zgadza sie kolumna o indeksie 11 jest widzona kolumna nr 12

Nie wiem gdzie jaest blad moze gdzie indziej 

To zdarzenie mam przypisane pod buttona ktory przerzuca zawartosc z edit jest jakby potwierdzeniem wpisanej wartosci a zarazem ma podliczac koljne liczby ktore sa wprowadzane nie wiem czy to zrozumiale napisalem ale moze zrozumiesz o co mi chodzi

 

A wiec jak wpisuje przykladowo 15- zatwierdzam, to zostaje ta wartosc przerzucona do stringgrid suma zgadzsie jest = 15

ale przy kolejnym dodaniu np znowu liczby 15 to suma wychodzi 60 a nie 30

A zerujesz zmienna "g" przed sumowaniem??

 

jak zeruje zmnienna g to jest tylko brana pod uwage pierwsza pozycja dalej juz nie liczy za kazdym nacisnieciem przycisku wynik jest ten sam np jak na poczatku podam 15 to za kazdym razem jest 15

[mlynus 0]

Jest mam kurna nie zamknolem porzedniej petli dzieki za wspolprace Pietrucha coraz bardziej zaczyna mis sie to podobac. Tylko powiedzcie mi dlaczego tak ganicie to delphi dopiero zaczynam zabawe z programowaniem i bardzo mi sie podoba to srodowisko w porownaniu z C++, nie wiem ale moze jak bede bardziej zaawansowany to stwierdze ze mi to nie wystarcza. Jeszcze raz dzieki i mam nadzieje ze jak bede mial problem to znowu sie do was zwroce

[Pietrucha 0]

Jest mam kurna nie zamknolem porzedniej petli

Ok Takiej petli, ktorej nie przeslales w listingu?

dzieki za wspolprace   Pietrucha

Spoko

coraz bardziej zaczyna mis sie to podobac. Tylko powiedzcie mi dlaczego tak ganicie to delphi dopiero zaczynam zabawe z programowaniem i bardzo mi sie podoba to srodowisko w porownaniu z C++

A dlaczego?

nie wiem ale moze jak bede bardziej zaawansowany to stwierdze ze mi to nie wystarcza. Jeszcze raz dzieki i mam nadzieje ze jak bede mial problem to znowu sie do was zwroce  

Lepiej miej nadzieje, ze nie bedziesz mial problemow

 

A co do Delphi... kazdy ma swoje preferencje. Delphi jest dobre do dlubania czegos niezbyt zaawansowanego w domu. Duze firmy robia tez spore aplikacje na produktach Borlanda. Ja ich akurat nie lubie - za brak stabilnosci, za cienka dokumentacje i bzdurny kod, ktory generuja kompilatory.

[mlynus 0]

Po takiej wypowiedzi nie wim czy dalej brnac glebiej w delphi czy zajac sie C++, tym bardziej ze jestem poczatkujacy nie chce sobie zasmiecac glowy dwoma jezykami (jeden to i tak duzo )

[Pietrucha 0]

Po takiej wypowiedzi nie wim czy dalej brnac glebiej w delphi czy zajac sie C++, tym bardziej ze jestem poczatkujacy nie chce sobie zasmiecac glowy dwoma jezykami (jeden to i tak duzo  )

Rob to, co Ci sprawia przyjemnosc. A jesli bedziesz chcial zostac profesjonalista, to powinienes poznac oba, i nawet jeszcze kilka innych

 

Ja akurat Pascala nie lubie, wiec staram sie unikac. Dla mnie C jest najwygodniejszym i najlepszym jezykiem. Jednak to moje zdanie i nikt nie musi sie z tym zgadzac. Poza tym przed laty uczylem sie C ze swietnej ksiazki, ktora starala sie tlumaczyc, dlaczego przyjeto takie rozwiazanie a nie inne, czesto odwolujac sie do architektury komputerow. To byla super przygoda