ONSETTEXT EVENT - TEXT IS MISSING!

[selena1]

I have a trouble with OnSetText event for component DBEdit. I connect DBEdit1 with component Table1, field "Phone". I set EditMask of that field on next value: "!\(999\)000-000;1;_". After thatI, I wrote Table1PhoneSetText event (for example: Label1.Caption := 'Phone is correct.'.
Trouble is, when I start application and wrote some phone number in component DBEdit1 (correct value), after I exit DBedit1, text in DBEdit1 was deleted. If don't have OnSetText event I don't have this trouble. I don't have any idea what is wrong. I use Paradox database.
THANKS!

 

[richardchaven]

In OnSetText, do you allow for empty strings?

For example:

Two small caveates with Andrew's code:

procedure TForm1.AFieldSetText(Sender: TField; const Text: String);
begin
   if Text = '' then
       Sender.Clear
   else
       Sender.AsString := ...
end;

Cheers


Cheers

 

[towerbase]

One small caveate Richard. I didn't provide any code for this thread!

Andrew

 

[Stretchwickster]

Hehehe...methinks another small caveat is the use of <CTRL-C><CTRL-V>!

Andrew, can't you see that invisible post you made, just above Richard's?!

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[richardchaven]

Thus does the Clipboard make fools of us all...<s>

Cheers