Hi Rob,
I had a similar issue but am using 1.45 so i don't have the option of a currency field type.
If it helps, here's the relevant part of the script that i ended up with.
var
i,c: integer; s_amount,s_famount,s_fpa: string; Cancel: boolean;
// format columns for £, thousand seperator and 2 dps
c := form1.grid1.RowCount - 1;
for i := 0 to c do
begin
s_amount := form1.grid1.Cells[10,i];
if ValidFloat(s_amount) then
form1.grid1.Cells[10,i] := '£'+FormatFloat('#,###,###,##0.#0', StrToFloat(s_amount) );
end;
// format column footers for £, thousand seperator and 2dps
for i := 0 to c do
begin
s_famount := form1.grid1.Columns[10].Footer.Caption;
if ValidFloat(s_famount) then
form1.grid1.Columns[10].Footer.Caption := '£'+FormatFloat('#,###,###,##0.#0', StrToFloat(s_famount) );
end;
I'm sure it's not pretty but, hey, it works for me!
Derek.