|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Цитата:
Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |