Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 4 of 4 total
Thread How to format a TDataset column
Fri, Mar 8 2013 10:55 AMPermanent Link

Uli Becker

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
Fri, Mar 8 2013 11:35 AMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

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
Fri, Mar 8 2013 11:40 AMPermanent Link

Uli Becker

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




Attachments: Clip11.png
Fri, Mar 8 2013 11:45 AMPermanent Link

Uli Becker

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

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

Uli

Image