Показать сообщение отдельно
  #7  
Старый 20.04.2017, 12:57
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от 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;
Ответить с цитированием