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