---

Jeg er hel ude i tovene og vel meget gerne have hjælp til følgende.

//Her sammentælles lodret (den markerede kolonne i Øverste sektion).
Kroner := 0;
S := '';
For Y := 1 To 24 Do Begin
S := Grid1.Cells[XCol,Y];
If S <>'' Then Kroner := Kroner + StrToFloat(S);
End;
Grid2.Cells[XCol div 2,0] := Format('%13.2f',[Kroner]);

//*****************************************//

//Her sammentælles den lodrette kolonne 'Total' (i øverste sektion).
Kroner := 0;
S := '';
For Y := 1 To 24 Do Begin
S := Grid1.Cells[25,Y];
If S <>'' Then Kroner := Kroner + StrToFloat(S);
End;
Grid2.Cells[12,0] := Format('%13.2f',[Kroner]); (Virker ikke når den
udskrives til celle 13)
// Grid2.Cells[13,0] := FloatToStr(Kroner); // OK (Virker ok, men
decimalerne er jo ikke med)
NB meningen er at kolonnen i Grid1skal sammentælles i celle 13 i Grid2.
Grid 1 og 2 er en XStringGrid
der bruges Delphi 7 og XP
Udskriver jeg til et Edit feldt Kolonne istedet for Grid2 er
resultatet ok, men det var jo ikke meningen.
Der er ingen kompiler fejl eller kørsels fej.

Jeg er spændt på en forklaring

Med venlig hilsen og på forhånd tak.

Henning

---

"Henning Madsen" <hkjeldm@mail.dk> skrev i en meddelelse
news:496f65c5$0$15893$edfadb0f@dtext01.news.tele.dk...
> Jeg er hel ude i tovene og vel meget gerne have hjælp til følgende.
>
> //Her sammentælles lodret (den markerede kolonne i Øverste sektion).
> Kroner := 0;
> S := '';
> For Y := 1 To 24 Do Begin
> S := Grid1.Cells[XCol,Y];
> If S <>'' Then Kroner := Kroner + StrToFloat(S);
> End;
> Grid2.Cells[XCol div 2,0] := Format('%13.2f',[Kroner]);
>
> //*****************************************//
>
> //Her sammentælles den lodrette kolonne 'Total' (i øverste sektion).
> Kroner := 0;
> S := '';
> For Y := 1 To 24 Do Begin
> S := Grid1.Cells[25,Y];
> If S <>'' Then Kroner := Kroner + StrToFloat(S);
> End;
> Grid2.Cells[12,0] := Format('%13.2f',[Kroner]); (Virker ikke når den
> udskrives til celle 13)
> // Grid2.Cells[13,0] := FloatToStr(Kroner); // OK (Virker ok, men
> decimalerne er jo ikke med)
> NB meningen er at kolonnen i Grid1skal sammentælles i celle 13 i Grid2.
> Grid 1 og 2 er en XStringGrid
> der bruges Delphi 7 og XP
> Udskriver jeg til et Edit feldt Kolonne istedet for Grid2 er
> resultatet ok, men det var jo ikke meningen.
> Der er ingen kompiler fejl eller kørsels fej.
>
> Jeg er spændt på en forklaring
>
> Med venlig hilsen og på forhånd tak.
>
> Henning
>
>Ja Ja I har krav på et billigt grin, men det to mig ca. 2 dage at rette
>det.
godt man ikke skal leve af det.
Årsag en penentlig grund til at korigere bredden på celle 13 og 14
Der var plads til tallet. Men nu virker det.
Med venlig hilsen
Henning