Работа с файлами (Delphi 7)

[Br1Zz62]

Здравствуйте!
Помогите пожалуйста решить задачу: Сведения об автомобиле состоят из его марки, номера и фамилии владельца. дан файл f, содержащий сведения о нескольких автомобилях. Найти:
а) фамилии владельцев и номера автомобилей данной марки;
б) количество автомобилей каждой марки. Найденные данные записать в файл g.


P.S. не понимаю как скопировать код в делфи, там же ещё визуальное представление Желательно выслать мне файлы программы

[min@y™]

дан файл f

дай файл.

[Br1Zz62]

Сообщение от min@y™

дай файл.

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

[min@y™]

это уже на выбор разработчика

а разработчик - это разве не ты?

[TaLadno]

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

P.S. не понимаю как скопировать код в делфи, там же ещё визуальное представление Желательно выслать мне файлы программы

Давайте код, который "собрались" копировать в делфи, будем отталкиваться от него

Сообщение от min@y™

а разработчик - это разве не ты?

Наверное еще один студент-ядерщик

[Stilet]

В качестве идеи:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
   //Запись о авто
      TRec=record
        Marka,nom,FIO:String[100];
			end;

			{ TForm1 }

   TForm1 = class(TForm)
						Button1: TButton;
						Button2: TButton;
						Button3: TButton;
						Edit1: TEdit;
						Edit2: TEdit;
						Edit3: TEdit;
						procedure Button1Click(Sender: TObject);
						procedure Button2Click(Sender: TObject);
						procedure Button3Click(Sender: TObject);
			private
						{ private declarations }
			public
						{ public declarations }
			end;

var   a:array of TRec;
			Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Добавляем авто в массив
  SetLength(a,Length(a)+1);
  with a[High(a)] do begin
    Marka:=Edit1.Text;
    nom:=Edit2.Text;
    FIO:=Edit3.Text;
	end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Пишем в файл
  With TFileStream.Create('d:\1\f',fmCreate) do begin
    Write(a[Low(a)],Length(a)*SizeOf(TRec));
    Free;
	end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  //Читаем из файла
   With TFileStream.Create('d:\1\f',fmOpenRead) do begin
    SetLength(a,Size div SizeOf(TRec));
    read(a[Low(a)],Length(a)*SizeOf(TRec));
    Free;
	end;
end;

end.