Удаление всех пробелов Опции

[FYzeST]

Помогите написать программу которая в текстовом файле удаляет все пробелы. Сам вроде написал. Знаю как их отследить и удалить, но не могу понять как проделаное программой записать в этот же файл...

[Lapp]

Непонятно, как делить тему. Ладно, пусть остается, как есть..

Вот удаление пробелов из файла без переписывания его в новый файл и без особых затрат памяти.

var
  f: file of char;
  c: char;
  r,w: LongInt;

begin
  Assign(f,'test.txt');
  r:= 0;
  w:= 0;
  Reset(f);
  while not EoF(f) do begin
    Read(f,c);
    Inc®;
    if c<>' ' then begin
      Seek(f,w);
      Write(f,c);
      Inc(w);
      Seek(f,r)
    end
  end;
  Seek(f,w);
  Truncate(f);
  Close(f)
end.

Твой способ удаления пробелов из строки неверен по сути. Он будет удалять только одиночные (или каждый второй в группе) пробелы, а также будет выходить за пределы строки. Если ты заменишь прямой цикл (to) на обратный (downto), то ты исправишь эти ошибки, но останется проблема с его низкой производительностью. Рекомендую почитать вот это: Многократное удаление символов из строки . Там используется фактически тот же способ, что я применил выше к файлу. Если ты хочешь (или должен) обязательно использовать именно текстовые файлы (типа text), то можешь продолжать делать, как делал - читать построчно, удалять пробелы из строки, писать строку в другой файл, потом удалить исходный файл и переименовать результат. При этом ты можешь исправить свою прогу, как я сказал выше, или использовать метод TarasBer'а из FAQ. Но если задача поставлена без ограничений на средства выполнения, то лучше все же работать напрямую с файлом типа file of char.