I want to use the new event "OnSetText" of a TDataColumn. That's what I
tried:

function xxxForm.dsTempSummeSetText(Sender: TObject; const Value:
String): String;
begin
  TDataColumn(sender).text :=  value + ' ¤';
end;

Nothing happens. What is the right syntax to format a value of a DataColumn?

Thanks Uli

Uli,

<< I want to use the new event "OnSetText" of a TDataColumn. That's what I
tried: >>

Use this:

function xxxForm.dsTempSummeSetText(Sender: TObject; const Value:
String): String;
begin
  Result :=  value + ' ¤';
end;

Tim Young
Elevate Software
www.elevatesoft.com

Tim,

> function xxxForm.dsTempSummeSetText(Sender: TObject; const Value:
> String): String;
> begin
>    Result :=  value + ' ¤';
> end;

I forgot to mention that I tried that as well, no change.

Uli

> function xxxForm.dsTempSummeSetText(Sender: TObject; const Value:
> String): String;
> begin
>    Result :=  value + ' ¤';
> end;

I moved the code to "OnGetText" and that works.

Uli