Код: Выделить всё
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) ;
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Код: Выделить всё
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) ;