удаление из текстового файла!

[andrewsereda]

есть файл
есть записи
типа: № | товар | кол-ство | дата | цена
в файле данные выводятся построчно, например:

1111
масло
20
11.11.13
20

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

[Stilet]

Только переписав файл без нее. Т.е.
1) Считываешь строку
2) Если она не равна 1111 записываешь в другой файл
3) Если равна то 4-е раза считываешь из файла, и идешь на пункт 1

[andrewsereda]

может есть исходник какой-то?

[Stilet]

Ты можешь показать код считывания данных из файла, или даже это для тебя недосягаемо? Спрашиваю потому что я бы сделал тупо:

With TStringList.Create do begin
 LoadFromFile('файл');
 i:=IndexOf('1111');
 if i<>-1 then begin
  Delete(i);Delete(i);Delete(i);Delete(i);Delete(i);
 end;
 SaveToFile('файл');
 Free;
end;

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

[andrewsereda]

вот
program storage1;

uses crt;
var f : text;
    i:integer;
    name, date: string;
    price, nak, kst : integer;
begin
  clrscr;
  write('Склад №1');writeln;
  writeln('--------------------------------------------------------------');
  writeln('  №  |    Товар    |  Кол-ство  |   Дата поставки   |  Цена  ');
  writeln('--------------------------------------------------------------');
     assign(f,'storage1.txt');
  reset(f);
 while not eof(f) do begin
   readln(f,nak);
   write(nak:5);
   readln(f,name);
   write(name:14);
   readln(f,kst);
   write(kst:13);
   read(f,date);
   write(date:16);
   readln(f,price);
   write(price:12);
   writeln;
end;
  close(f);
  readln;
end.

[Stilet]

Ясно. Если не ошибаюсь:

uses crt;
var f : text;
    i:integer;
    name, date: string;
    price, nak, kst : integer;
begin
  clrscr;
  write('Склад №1');writeln;
  writeln('--------------------------------------------------------------');
  writeln('  №  |    Товар    |  Кол-ство  |   Дата поставки   |  Цена  ');
  writeln('--------------------------------------------------------------');
  assign(f,'storage1.txt');  reset(f);
  assign(f,'storage2.txt');  rewrite(f2);
 while not eof(f) do begin
   readln(f,nak);   write(nak:5); if nak<>'1111' then writeln(f2,nak:5);
   readln(f,name);   write(name:14); if nak<>'1111' then writeln(f2,name:5);
   readln(f,kst);   write(kst:13); if nak<>'1111' then writeln(f2,kst:5);
   read(f,date);   write(date:16); if nak<>'1111' then writeln(f2,date:5);
   readln(f,price);   write(price:12); if nak<>'1111' then writeln(f2,price:5);
   writeln;
   
end;
  close(f);
  rename(f2,'storage1.txt');
  close(f2);
  readln;
end.

А вообще реализация печальная печальная... Если интересует мое мнение конечно.

[andrewsereda]

печальная?
предоставь свою версию, а я посмотрю на "гуру"...

[Stilet]

Посмотреть, говоришь? Что-ж это можно устроить.
Знакомься: http://www.programmersforum.ru/showthread.php?t=17165
Наш гуру Alter.
Вполне неплохое решение. Не единственное, но схема достаточно надежна, с проверками на ошибки и исключения.

[andrewsereda]

это с типизированными файлами
а с текстовыми?

[Stilet]

А с текстовыми читай про XML, CSV, INI. А то что у тебя строка определяет как поле так и запись одновременно чревато совершенно плохими последствиями.