Witajcie!
Mam sobie StringGrida na formie. On ma 4 kolumny i każda komórka w jednym wierszu ma takie coś:
| KP/04/700 | KP/04/250 | KP/04/200 | KP/04/150 |
I teraz pytanie: jak policzyć sumę tych liczb 700, 250, 200 i 150 i przedstawić ją w Edicie? Oczywiście tam będą różne liczby a teraz to podałem tylko przykład.
Ma ktoś jakiś pomysł lub wskazówki na to? Z góry ślicznie dziękuję.:)
To tylko kwestia rozpoznania formatu w tych wpisach by wyciagnac z wpisu to co trzeba i zastosowac strtoint. Jesli s=//liczba to t:=copy(s,7,length(s)-6) . I teraz dla t juz stosujes strtoit(t) i dodajesz gdzie chcesz;
var
i, x, Suma: Integer;
begin
x := // numer wiersza..
Suma := 0;
for i := 1 to 4 do
Suma := Suma + StrToInt(Copy(StringGrid1.Cells[i, x], 7, length(StringGrid1.Cells[i, x]) - 6));
Edit1.Text := IntToStr(Suma);
end;
W sumie nie za bardzo wiem jak to napisać, ale obmyśliłem inny sposób:
Stawiam jeszcze 4 Edity, w nich wpisuje te liczby, sumuję je - wynik podaje się w piątym Edicie a te liczby, które sumowałem np. w Timerze dopisują się do komórek
Stringgrid1.cells:='KP/04/'+(edit1.Text);
czy jakoś tak. Surowy pomysł, ale może się uda.
Marmar hmm Twój sposób może i byłby o wiele lepszy ale nie mam pojęcia jak to napisać, bo jestem początkującym i postawiłeś mi wysoko poprzeczkę :).
P.S.
Wie ktoś jak zrobić ładną belkę w Stringgridzie i żebym mógł kursorami ^v sterować, a dane na które jest najechana belka przedstawiały się w labelach?
DETOX super tylko wyskakuje mi błąd że: Left side cannot be assigned to przy
Suma := 0;
Zamieniałem stronami i dalej to samo, hmm :(
Autorek, ja napisalem dokladnie to co zrobil Detox a blad Ci wyskakuje zapewne dlatego ze skopiowales kod Detoxa na żywca.
x := // numer wiersza. <= tu musisz za x wstawic numer wiersza , ktory Cię interesuje na przyklad x:=1;
Własnie dałem tam liczbę jakąś i mi błąd wyskakiwał bo nie dałem średnika :) już wsio ok :) Ale numer wiersza będzie się zmieniał i ten numer bedzie odczytywany np. z 6 Edita...ale jest już ok, dziękuję Wam!!!