[dubfire]

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

после паскаля даже понятия не имею как тут что делать)

[Ромыч]

Поясни пожалуйста тебе надо все эти данные номер, Ф.И.О, адрес записать в файл?

[dubfire]

ну как я понял то да.

[Ромыч]

Вобщем сделай так на форму кинь 4 Edita и две кнопки. 1 Edit - Порядковый номер, 2 Edit - Ф.И.О, 3 Edit - Адрес, 4 Edit - Дата.

Вот процедура записи данных в файл:

Код:

procedure TForm1.Button1Click(Sender: TObject);
type
  TData = record
    Number: Integer;
    Surname: String[255];
    Address: String[255];
    Date: String[255];
  end;
var
  Data: TData;
  F: File of TData;
begin
  AssignFile(F, 'C:\Data.dat');
  Reset(F);
  Seek(F, FileSize(F));
  Data.Number := StrToInt(Edit1.Text);
  Data.Surname := Edit2.Text;
  Data.Address := Edit3.Text;
  Data.Date := Edit4.Text;
  Write(F, Data);
  CloseFile(F);
end;

'C:\Data.dat' - это файл куда это всё будет записываться.
Все новые записи добовляются в конец файла.

Процедура чтения:

Код:

procedure TForm1.Button2Click(Sender: TObject);
type
  TData = record
    Number: Integer;
    Surname: String[255];
    Address: String[255];
    Date: String[255];
  end;
var
  Data: TData;
  F: File of TData;
begin
  AssignFile(F, 'C:\Data.dat');
  Reset(F);
  Seek(F, 0);
  Read(F, Data);
  Edit1.Text := IntToStr(Data.Number);
  Edit2.Text := Data.Surname;
  Edit3.Text := Data.Address;
  Edit4.Text := Data.Date;
  CloseFile(F);
end;

lmikle: пользуемся тегами, иначе последуют санкции...

Seek(F, 0); - Замени 0 на нужную тебе позицию для чтения скажем если
ты сделал 3 записи в файл тоесть 0,1,2, то чтобы прочесть запись 1 сделай так Seek(F, 1); все записи нумеруются с нуля. Удачи!!! надеюсь помог.

[Ромыч]

Забыл не забудь создать файл Data.dat в C:\ или замени его на другой.