Удалить из текстового файла лишние пробелы

@olegsever · Регистрация: 27.02.2012

Author24 — интернет-сервис помощи студентам

Как удалить из текстового файла лишнии пробелы

@Ev[G]eN · 28.03.2012, 23:20

Pascal

  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    while pos('  ', Str) <> 0 do
      delete(Str, pos('  ', Str), 1);
    writeln(Str);
  end;

@olegsever 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 32
		1
	Удалить из текстового файла лишние пробелы 28.03.2012, 22:57. Показов 1653. Ответов 1 Метки нет (Все метки) Как удалить из текстового файла лишнии пробелы 0

	28.03.2012, 23:20

Опции темы

Удалить из текстового файла лишние пробелы

Решение