Чтение и запись из файлов

[Rocky095]

Доброго вечера, уважаемые форумчане!
Есть форма с edit ами..пользователь вводит информации и при нажатии на кнопку вся информация записывется в 2 типизированных файла(файл сведений автомобилей и файл регистрационных сведений). Эти файлы свзяны ключевым полем номерной знак. Как произвести чтение из этих типизированных файлов и записать эти данные в .txt файл..

Буду благодарен за любую информацию...Спасибо

язык delphi

[Stilet]

Насчет связки не знаю, но маршалинг можно замутить так:
Допустим тип элемента файла таков:

type
 rec=record
  nomer,Name,Vladelec,VIN:string[255];
  Color:TColor;
 end;

Тогда зная его размер можно сформировать массив

autos:array of rec;

так:

SetLength(autos,FileSize(f) div sizeof(rec));

И считать весь файл:

blockread(f,autos,length(autos)*sizeof(rec));

После в цикле повыводить в файл типа TextFile:

for i:=low(autos) to high(autos) do
 writeln(ft,
   autos[i].nomer:15,
   autos[i].Name:20,
   autos[i].Vladelec:20,
   autos[i].VIN:20,
   autos[i].Color:10
 )

Где ft - текстовый файл.
Идея понятна?

[kventin_zhuk]

Ну а в чем собственно вопрос?
объявляем файловую переменную для текстового файла.

var
   TxtFile: TextFile;

связываем файловую переменную с именем файла

AssignFile(TextFile,'имя файла')

создаём новый файл

rewrite(TextFile);

или открываем существующий файл

reset(TextFile);

Запись в файл:

write(TextFile,'что записываем');

закрываем файл

CloseFile(TextFile);

c типизированными файлами тоже самое, но только вместо какой-то строки будет то, что записываем.
Объявляется он так:

TypeFile: file of .....;

[Rocky095]

Вот текст задания:
1.Подготовить программу, формирующую на основе информации , вводимой пользователем с клавиатуры, два внешних типизированных файла:
файл автомобилей:марка, модель и номерной знак
файл регистрационных сведений: номерной знак, фамилия,адрес владельца, год выпуска
2. Подготовить вторую программу , формирующую сведения об автомобилях, и их владельцах на основе данных из двух внешних типизированных файлов, сформир в рез работы программы 1.

Также предусмотеть возможность вывода информации в двух режимах: 1)на экран-избирательно по запросу конкретных данных с клавиатуры, 2) польностью в текстовый файл

Я всё сделал, кроме последнего пункта( 2) польностью в текстовый файл )

вот код к 1)на экран-избирательно по запросу конкретных данных с клавиатуры

unit Unit3;

interface

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,unit2;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
auto:TAuto;
vladelec:Tvladelec;
slovo:string;
begin
AssignFile(f1, 'autos.ttt');
AssignFile(f2, 'vladelec.ttt');
Reset(f1); 
Reset(f2);
seek(f1,filesize(f1)-1); 
slovo:=edit1.Text; 
While not EOF(f1) do begin 
read(f1,auto);
with auto do
If (nomer=slovo) then 
begin
edit7.Text:=auto.marka; 
edit2.text:=auto.model;
seek(f2,filesize(f2)-1);
end;
end;
while not EOF(f2) do begin 
read(f2,vladelec);
with vladelec do begin
If nomer=slovo then 
begin
edit4.Text:=vladelec.famil; 
edit5.Text:=vladelec.adres;
edit6.Text:=vladelec.vipusk;
end;
end;
end;
CloseFile(f2);
Closefile(f1);
end;

[Stilet]

begin
edit4.Text:=vladelec.famil;
edit5.Text:=vladelec.adres;
edit6.Text:=vladelec.vipusk;
end;

Вот этот код нужно менять на то что я дал. Открываешь еще один файл типа TextFile, и через writeln; выводишь в цикле в этом условии в текстовик.