---

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