[Delphi]Удалить в файле целых чисел определенные числа.(работает некорректно)

[neytron007]

Дан файл целых чисел. Удалить из него положительные/отрицательные/четные/нечетные числа. Проблема в том, что постоянно удаляет только последнее число (иногда даже не полностью, если это отрицательное, то не удаляет "-"). Пробовал любые расширения файлов: int,dat,txt... С любыми одно и то же. Помогите, что неверно?

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Lib;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ButtonPol: TButton;
    ButtonOtr: TButton;
    ButtonCh: TButton;
    ButtonNeCh: TButton;
    procedure FormShow(Sender: TObject);
    procedure ButtonPolClick(Sender: TObject);
    procedure ButtonOtrClick(Sender: TObject);
    procedure ButtonChClick(Sender: TObject);
    procedure ButtonNeChClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('1.txt');
end;

procedure TForm1.ButtonPolClick(Sender: TObject);  //удалить положительные
begin
  Pol;
  Memo1.Lines.LoadFromFile('1.txt'); //заново заполняем мемо
end;

procedure TForm1.ButtonOtrClick(Sender: TObject);  //удалить отрицательные
begin
  Otr;
  Memo1.Lines.LoadFromFile('1.txt'); //заново заполняем мемо
end;

procedure TForm1.ButtonChClick(Sender: TObject);    //удалить четные
begin
  Ch;
  Memo1.Lines.LoadFromFile('1.txt'); //заново заполняем мемо
end;

procedure TForm1.ButtonNeChClick(Sender: TObject);   //удалить нечетные
begin
  Nech;
  Memo1.Lines.LoadFromFile('1.txt'); //заново заполняем мемо
end;

end.

Вот юнит Lib:

unit Lib;

interface

uses
  SysUtils;

var
  f,f1: file of Integer;
  i: Integer;
  procedure Pol;
  procedure Otr;
  procedure Ch;
  procedure Nech;
implementation

procedure Pol;
begin
  AssignFile(f,'1.txt');
  Reset(f);
  Assign(f1,'1_copy.txt'); //создаем вспомогательный файл
  Rewrite(f1);
  while not Eof(f) do
  begin
    read(f,i);
    if i<=0 then Write(f1,i); //записываем в него неотрицательные числа
  end;
  CloseFile(f);
  CloseFile(f1);

  Erase(f);  //удаляем остновной файл
  Rename(F1,'1.txt'); //переименовываем вспомогательный в основной
end;

procedure Otr;
begin
  AssignFile(f,'1.txt');
  Reset(f);
  Assign(f1,'1_copy.txt'); //создаем вспомогательный файл
  Rewrite(f1);
  while not Eof(f) do
  begin
    read(f,i);
    if i>=0 then Write(f1,i); //записываем в него неположительные числа
  end;
  CloseFile(f);
  CloseFile(f1);

  Erase(f);  //удаляем остновной файл
  Rename(F1,'1.txt'); //переименовываем вспомогательный в основной
end;

procedure Ch;
begin
  AssignFile(f,'1.txt');
  Reset(f);
  Assign(f1,'1_copy.txt'); //создаем вспомогательный файл
  Rewrite(f1);
  while not Eof(f) do
  begin
    read(f,i);
    if (i mod 2 =1) then Write(f1,i); //записываем в него нечетные числа
  end;
  CloseFile(f);
  CloseFile(f1);

  Erase(f);  //удаляем остновной файл
  Rename(F1,'1.txt'); //переименовываем вспомогательный в основной
end;

procedure NeCh;
begin
  AssignFile(f,'1.txt');
  Reset(f);
  Assign(f1,'1_copy.txt'); //создаем вспомогательный файл
  Rewrite(f1);
  while not Eof(f) do
  begin
    read(f,i);
    if (i mod 2 = 0) then Write(f1,i); //записываем в него четные числа
  end;
  CloseFile(f);
  CloseFile(f1);

  Erase(f);  //удаляем остновной файл
  Rename(F1,'1.txt'); //переименовываем вспомогательный в основной
end;

end.

[Sibedir]

Ну, во-первых:

f,f1: file of Integer;

и

Memo1.Lines.LoadFromFile('1.txt');

И сразу:

    if (i mod 2 =1) then Write(f1,i); //записываем в него нечетные числа

нужно заменить на

    if (i mod 2 <> 0) then Write(f1, i, ' '); //записываем в него нечетные числа

Для нечетных отрицательных чисел i mod 2 = -1

[neytron007]

ну а какое тогда расширение использовать? я разные пробовал, ни с каким не получается. И как можно вписывать ' ' если файл целых чисел? он пишет несовместимые типы integer и char

[Serge_Bliznykov]

ну а какое тогда расширение использовать? я разные пробовал, ни с каким не получается.

расширение не при чём, это Ваш файл, можете ему давать ЛЮБОЕ удобное (подходящее на ваш взгляд расширение). Хоть .BIN, хоть .DAT, хоть .INT. (можете даже вообще никакого расширения не давать, это в данном случае, ровным счётом ни на что не влияет!)

И как можно вписывать ' ' если файл целых чисел?

никак. Файл целых чисел (он же типизированный файл, т.е. файл, компонентами которого являются целые числа) фактически является БИНАРНЫМ (двоичным) файлом. Каждая его компонента является целым числом. Ни Вы, ни кто другой не может записать в файл ничего другого, отличного от целого числа.

Вам нужно понять только одну очень простую вещь.
Типизированный файл может быть СОЗДАН, ИЗМЕНЁН, или ПРОСМОТРЕН (вывод содержимого) только программым путём. Его нельзя создать и редактировать в обычном текстовом редакторе. При попытке открыть такой файл в блокноте, например, Вы увидите "кракозябры"!
Поэтому Вы должны a) написать программу, которая создаёт типизирвоанный файл
b) написать программу, которая отображает содержимое типизированного файла
и только после этого можете писать программу обработки файла.

p.s. очень часто функции создания, редактирования, обработки и просмотра типизированных файлов включают в одну программу, вызов нужного действия осуществляют через меню (любого вида, хоть простейшее, консольное, где перечисляются все варианты, и пользователь вводит число, обознающие нужное действие). На форуме полно примеров обработки типизированных файлов...

[Sibedir]

neytron007, а почему вам не подходит

f,f1: TextFile;

?
В него можно и числа записывать

Write (f1, -51, ' ');

Там число будет храниться как обыктовенная текстовая надпись: '-51'.
Его и в Memo можно загрузить

Memo1.Lines.LoadFromFile('1.txt');

и вообще в любом редакторе типа Блакнота просмотреть и отредактировать.
Для начинающих самое оно.

[neytron007]

Serge_Bliznykov, спасибо! всё понял, разобрался, сделал, как посоветовали, работает! а то я через блокнот заполнял :D

[Serge_Bliznykov]

отлично, поздравляю!

Тему закрываем?

[neytron007]

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

Тему закрываем?

да, конечно