[Alegun]

Сообщение от NumLock

Если одним типом string обходиться...

Вот двухсторонняя

Код:

function cnv(ds: string): string;
begin
 if pos(',',ds) > 0 then
  Result:= StringReplace(ds,',','',[]) else
  Result:= Copy(ds,1,Length(ds)-2) + ',' +
            Copy(ds,Length(ds)-1,Length(ds));
end;