20.04.2017, 12:57
|
|
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;
|