Very Computer

Greetings all,

Could someone please tell me how to get the original value of a tField
before posting to the record.

field.validate
{
 validate_data;
 otherfield.value:=field.value;

Quote:}

I was under the impression that field.text contains the new value to
be validated, while the .value retains the original. It seems
impossible to access the original value once the user has modified the
field, but I know it must be possible, as the 'rollback' can be done
if the user presses [esc] to abort the edit.

Can anyone see my problem here? Any solutions?
---
Clayton Andrews, Cape Town, ZA

Quote:>Greetings all,

>Could someone please tell me how to get the original value of a tField
>before posting to the record.

>field.validate
>{
> validate_data;
> otherfield.value:=field.value;
>}

>I was under the impression that field.text contains the new value to
>be validated, while the .value retains the original. It seems
>impossible to access the original value once the user has modified the
>field, but I know it must be possible, as the 'rollback' can be done
>if the user presses [esc] to abort the edit.

I would use a procedure based on the BeforeEdit event of the TTable, and
store the pre-edit value to a memory variable. This same value will then be
available until you either clear the variable (as would be done after a
posting, e.g., AfterPost event) or until a new record is changed to edit
mode. For example:

  procedure TForm1.Table1BeforeEdit(DataSet: TDataset);
  begin
    Edit5.Text := Table1Text.AsString;
  end;

**************************************************************************
Steve Koterski                  "Results! Why, man, I have gotten a lot of
Product Group Manager           results. I know several thousand things
Delphi Technical Support        that won't work."
Borland International, Inc.                    -- Thomas Edison, 1847-1931