0

У меня есть текстовый файл с номерами телефонов и ФИО их владельцев, они записаны в одну строку. Как можно удалить определенную строку? Я думал сделать это как то через тот же поиск + прикрутить удаление. То есть: есть кнопка - она ищет строки. Когда строка найдена, при нажатии другой кнопки - она удаляется. Помогите это как то реализовать.
Вот код поиска:

procedure Form4.button1_Click(sender: Object; e: EventArgs);
var F:TextFile;
 Str:string; 
 i:integer;
begin
  Assign(F,'C:\Users\Неизвестен\Desktop\Записная\nomer.txt');
  reset(F);
while not eof(F) do
   begin
      readln(F, Str);
      if pos(textbox1.text, Str)>0
      then
       textbox2.text:= str;
   end;   
end;

procedure Form5.button1_Click(sender: Object; e: EventArgs);
  var
  Base: array of string;
  F: TextFile;
  BaseCount, i: integer;
begin
   AssignFile(F, 'C:\Users\Неизвестен\Desktop\Записная\nomer.txt');
   Reset(F);
   BaseCount := 0;
  while not eof(F) do
   begin
    Inc(BaseCount);
    SetLength(Base, BaseCount);
    Readln(F, Base[BaseCount-1]);
   end;
  for i := 0 to BaseCount - 1 do
   begin
      if Pos(textbox1.Text, Base[i-1]) = 0 then
      Writeln(F, Base[i]);
  end;
  CloseFile(F);
end;
7
  • 1
    ну правильно, вы же только первую и читаете. Вам нужен цикл, который перебирает строки в файле. ---- while not eof(F) do begin ... end;
    – teanЫЧ
    27 мая 2014 в 12:55
  • @teanЫЧ спасибо, помогло :)
    – Sin2p
    27 мая 2014 в 13:03
  • Первую не надо, последнюю не надо. Какую тогда? Из середины? Я не совсем понимаю, что вы хотите сделать. Если вам нужно одну строчку вывести в текстбокс, то это то что надо. Если показать нужно все строки, то используйте не TTextBox, a TMemo. ----- И вообще, начните читать учебник. У вас очень много вопросов типа "ничего не понимаю, как делать не знаю, но очень хочется. Объясните мне, сделайте за меня."
    – teanЫЧ
    27 мая 2014 в 13:21
  • 1
    Ну я вижу проблему, а что вы хотите получить в итоге? ТЗ опишите
    – teanЫЧ
    27 мая 2014 в 13:46
  • 1
    Если у вас проблема в пункте 2, то хочу сказать, что само ТЗ кривое. НЕ надо выводить целый файл в текстбокс, для этого есть специализированные компоненты, например TMemo.
    – teanЫЧ
    27 мая 2014 в 14:02

2 ответа 2

2

комментарии закончились

var
  Base: array of string;  // Это наш динамический строковый массив
  F: TextFile;   // это файл
  BaseCount: integer; // это числовая переменная, которая нужная для подсчета количества строк в массиве Base
  i: integer;  // это числовая переменная используемая в цикле
begin
  AssignFile(F, 'nomer.txt');

  Reset(F);
  // устанавливаем BaseCount в 0, ведь массив еще пустой
  BaseCount := 0;  
  // тут начинаем читать каждую строку текстового файла
  while not eof(F) do
  begin
    // увеличиваем BaseCount на 1, ведь одну строку уже прочли
    Inc(BaseCount);
    // увеличиваем размер динамического массива на количество прочитанных строк
    // в итоге получится, что в массиве ровно столько строк сколько в файле
    SetLength(Base, BaseCount);
    // заносим строку из файла в массив
    Readln(F, Base[BaseCount-1]);
  end;

  // переоткрываем файл для записи, стирая его содержимое
  CloseFile(F);
  Rewrite(F);
  // перебираем все строки в массиве
  for i := 0 to BaseCount - 1 do
  begin
    // если строка из массива НЕ содержит строку из текстбокса
    if Pos(ed1.text, Base[i]) = 0 then
      // записываем строку в файл
      Writeln(F, Base[i]);
  end;

  // закрываем файл
  CloseFile(F);
end;
6
  • 1
    Только будьте внимательнее. Компилятор не прощает ошибок :)
    – teanЫЧ
    27 мая 2014 в 11:01
  • 1
    Попробуйте добавить CloseFile(F); перед Rewrite(F);
    – teanЫЧ
    27 мая 2014 в 11:46
  • @teanЫЧ Поставил. Теперь выбивает при нажатии кнопки с такой ошибкой : Ошибка времени выполнения: Индекс находился вне границ массива. У меня было такое когда пытался что то сделать с вашим кодом. Что это значит? И надо ли после CloseFile опять писать AssignFile?
    – Sin2p
    27 мая 2014 в 11:59
  • 1
    нет. просто я взял код у товарища @kot-da-vinci, и не посмотрел, что он косячный. я обновил ответ
    – teanЫЧ
    27 мая 2014 в 12:14
  • @teanЫЧ все отлично работает, спасибо большое за помощь :) Только вопрос: После того как я удалил нужную строку я решил добавить еще одну. В файл она записалась а при нажатии кнопки - строка не отображается Вот код: procedure Form3.button1_Click(sender: Object; e: EventArgs); var F:textfile; var a:string; begin AssignFile(F,'C:\Users\Неизвестен\Desktop\Записная\nomer.txt'); Reset(F); begin readln(F, a); textbox1.text:= a; CloseFile(F); end; end;
    – Sin2p
    27 мая 2014 в 12:28
2

Почему не воспользоваться TStringList?

type
  TForm1 = class(TForm)
    bt1: TButton;
    ed1: TEdit;
    procedure bt1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Base: TStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bt1Click(Sender: TObject);
var
  Str: string;
  i: Integer;
begin
  Base.LoadFromFile('nomer.txt');

  for i := Base.Count - 1 downto 0 do
    if Pos(ed1.Text, Base.Strings[i]) > 0 then
      Base.Delete(i);

  Base.SaveToFile('nomer.txt');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Base.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Base := TStringList.Create;
end;

Вариант без StringList:

var
  Base: array of string;
  F: TextFile;
  BaseCount, i: integer;
begin
  AssignFile(F, 'nomer.txt');

  Reset(F);
  BaseCount := 0;
  while not eof(F) do
  begin
    Inc(BaseCount);
    SetLength(Base, BaseCount);
    Readln(F, Base[BaseCount-1]);
  end;

  Rewrite(F);
  for i := 0 to BaseCount - 1 do
  begin
    if Pos(ed1.text, Base[i-1]) = 0 then
      Writeln(F, Base[i]);
  end;

  CloseFile(F);
end;
10
  • 1
    @Sin2p Добавил вариант без StringList. 27 мая 2014 в 7:23
  • 1
    @Sin2p, вот тут описание класса TStringList delphibasics.ru/TStringList.php ---- А так решение, представленное товарищем, вам вполне подходит. И ничего сложного в нем нет. Единственное что в глаза бросается - Base как свойство формы.
    – teanЫЧ
    27 мая 2014 в 7:24
  • 1
    @teanЫЧ Можно было Base перенести в глобальные var, но мне очень не нравятся глобальные переменные. В больших проектах это обычно ни к чему хорошему не приводит :) 27 мая 2014 в 7:27
  • 1
    @teanЫЧ согласен. Можно на каждую операцию (поиск, добавление, удаление) создавать новый экземпляр. 27 мая 2014 в 7:50
  • 1
    от нас то что требуется сейчас? код не работает или не понятно, как работает?
    – teanЫЧ
    27 мая 2014 в 7:55

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.