Форматирование данных из БД

[delphi-coder]

А так:

Код: Выделить всё

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) ;

[Naeel Maqsudov]

У полей (TStringField) есть свойства, задающие маску вывода и маску редактирования

Кажется они называются .DisplayFormat и .EditMask

Автоматическая расстановка литералов в определенных позициях - это меньшее, на что способны маски.