Форматирование строки

[Аватар]

Для делфи так можно, не совсем оптимально, зато наиболее прозрачно. Если FP имеет такие функции, то и на нем

  s:=StringReplace(s,'.','. ',[rfReplaceAll]); //после всех точек вставили пробел
  s:=StringReplace(s,',',', ',[rfReplaceAll]); //после всех запятых вставили пробел
  s:=Trim(s); //убрали пробелы слева-справа
  while Pos('  ',s)>0 do s:=StringReplace(s,'  ',' ',[rfReplaceAll]); //Убрали все сдвоенные пробелы
  s:=StringReplace(s,' .','.',[rfReplaceAll]); //Убрали пробел перед всеми точками
  s:=StringReplace(s,' ,',',',[rfReplaceAll]); //Убрали пробел перед всеми запятыми

[FPaul]

Класс! Без единой велосипедной детали.

[isst]

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

Толк то есть.
Одна самостоятельно решённая задача по эффективности равна примерно 7 решённым задачам с посторонней помощью или 15 задачам полностью решёнными посторонними (естественно, если решения разобраны и поняты).

Я же говорю, я стараюсь решать все САМ, только лишь по немногим обращаюсь сюда. Для статистики: решил 290 задач официально, из них 6-7 решили тут с вашей помощью, и то не полностью "скатал".

[isst]

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

Многовато циклов... ИМХО программу можно переписать только на одном цикле.

Виталий, не уверен, т.к. там лучше удалить сначала лишние пробелы (имеется ввиду где их 2 и более), а потом уже чистить насчет знаков препинания. Я пробовал одним циклом, вышла фигня. Может что не понимаю, но как-то так.