delphi-coder
Добавлено: 05 апр 2004, 13:28
А так:
Код: Выделить всё
var
tmp: string;
str := datamodule2.ADOTablPartner.Fields[4].AsString;
datamodule2.ADOTablPartner.Fields[4].Value :=
'( '+ copy(tmp, 1, 6) + ')' + copy(tmp, 7, 4) + '-' + copy(str, 11, 3) ;