Считать запись из типизированного файла в динамическую очередь ( Delphi )

[SeregaVili]

Здравствуйте.Подскажите как считать из типизированного файла записей запись в динамическую структуру очередь?

[Serge_Bliznykov]

а где описание вашей очереди?
Просто процедура добавления значения в очередь есть?
Так вот, вызывайте в цикле чтение из файла и добавление записей в очередь, это ничего от обычного добавления не отличается!



p.s. я перенёс вашу тему в раздел "Помощь студентам", имхо, именно в этом разделе теме самое место!

[SeregaVili]

Не получается даже считать из файла.Вот как я записываю в файл...может тут что то не так.

procedure TForm1.btn5Click(Sender: TObject);
var
p:uk;
st:string;
begin
{$I-}
AssignFile(f,'C:/kurs/BD.dat');
{Seek(f,FileSize(f));}
Reset(f);
{$i+}
if IOResult<>0 then begin
                     ShowMessage('Файла с базой данных не существует,будет создан новый');
                     Rewrite(f);
                      end;

p:=h;
if p=nil then ShowMessage('Вы не добавили ни одной записи')
  else
    begin
    repeat
    write(f, p^.data);
    p:=p^.next;
    {Writeln; }
    until p=nil;
    end;
CloseFile(f);
end;

[BDA]

Лучше покажите весь код, так как из этого куска непонятно:
что такое uk
какого типа f

[Serge_Bliznykov]

Вы думаете, что тут на форуме фашисты, а Вы - партизан?..
И свою военную тайну Вы никому не скажете, да?!..

Где описание типа f ?!
Где описание типов uk ?!

p.s. чтобы проверить наличие файла в Delphi совсем не обязательно пользоваться древнейшим механизмой с отключением обработки ошибок ввода/вывода и анализа IOResult - используйте функцию FileExists:

const BDFileName = 'C:\kurs\BD.dat';
...

AssignFile(f, BDFileName);
if FileExists(BDFileName) then Reset(f) 
else begin
        ShowMessage('Файла с базой данных '+BDFileName+' не существует, создан новый файл.');
        Rewrite(f);
end; 
....

[SeregaVili]

Вот весь код Delphi. При компиляции ошибок вроде нет...подскажите я правильно начал записывать считывание?

unit ochered;

interface

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

type
  uk=^elem;
     dannie=packed record
              FIO:string[40];
              nomer_telefona:integer;
              addres:string[40];
              avto:string[20];
              gos_nomer:string[10];
              narushenie:string[40];
              nakazanie:string[40];
              end;


     elem=packed record
                data:dannie;
                next:uk;
                end;
  TForm1 = class(TForm)
    grp1: TGroupBox;
    edt1: TEdit;
    btn1: TButton;
    xpmnfst1: TXPManifest;
    btn2: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    edt2: TEdit;
    btn3: TButton;
    strngrd1: TStringGrid;
    btn4: TButton;
    edt3: TEdit;
    edt4: TEdit;
    lbl3: TLabel;
    lbl4: TLabel;
    edt5: TEdit;
    lbl5: TLabel;
    edt6: TEdit;
    lbl6: TLabel;
    lbl7: TLabel;
    edt7: TEdit;
    btn5: TButton;
    grp2: TGroupBox;
    btn6: TButton;
    mmo1: TMemo;
    btn7: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
procedure add_element(var h,t:uk);
{procedure out(var t,h:uk);}
procedure out2( var t,h:uk; var a,b:integer);

var
  f:file of dannie;
  Form1: TForm1;
  h,t:uk;
  a,b,c,e:Integer;

implementation

{$R *.dfm}
procedure add_element(var h,t:uk);
var p:uk;
begin
new(p);
if h=nil then
begin
p^.data.FIO:=Form1.edt1.Text;
p^.data.nomer_telefona:=StrToInt(Form1.edt2.Text);
p^.data.addres:=Form1.edt3.Text;
p^.data.avto:=Form1.edt4.Text;
p^.data.gos_nomer:=Form1.edt5.Text;
p^.data.narushenie:=form1.edt6.Text;
p^.data.nakazanie:=Form1.edt7.Text;
p^.next:=nil;
t:=p;
h:=p;
end
   else
       begin
       p^.data.FIO:=Form1.edt1.Text;
       p^.data.nomer_telefona:=StrToInt(Form1.edt2.Text);;
       p^.data.addres:=Form1.edt3.Text;
       p^.data.avto:=Form1.edt4.Text;
       p^.data.gos_nomer:=form1.edt5.Text;
       p^.data.narushenie:=Form1.edt6.Text;
       p^.data.nakazanie:=Form1.edt7.Text;
       p^.next:=nil;
       t^.next:=p;
       t:=p;
       end;
end;

{procedure out( var t,h:uk);
var p:uk;
begin
p:=h;
repeat
mmo1.text
p:=p^.next;
until p=nil;
end; }

procedure out2( var t,h:uk; var a,b:integer);
var p:uk;
begin
p:=h;
repeat
Form1.strngrd1.Cells[0,a]:=p^.data.FIO;
Form1.strngrd1.Cells[1,a]:=IntToStr(p^.data.nomer_telefona);
form1.strngrd1.Cells[2,a]:=p^.data.addres;
Form1.strngrd1.Cells[3,a]:=p^.data.avto;
form1.strngrd1.Cells[4,a]:=p^.data.gos_nomer;
Form1.strngrd1.Cells[5,a]:=p^.data.narushenie;
form1.strngrd1.Cells[6,a]:=p^.data.nakazanie;
Inc(a);
p:=p^.next;
until p=nil;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
add_element(h,t);
ShowMessage('Добавлено');
btn3.Visible:=True;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
a:=1;
b:=1;
out2(t,h,a,b);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=nil;
t:=nil;
strngrd1.Cells[0,0]:='Фамилия';
strngrd1.Cells[1,0]:='Телефон';
strngrd1.Cells[2,0]:='Место жительства';
strngrd1.Cells[3,0]:='Автомобиль';
strngrd1.Cells[4,0]:='Номер авто';
strngrd1.Cells[5,0]:='Нарушение';
strngrd1.Cells[6,0]:='Наказание';
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:='';
edt2.Text:='';
edt3.Text:='';
edt4.Text:='';
edt5.Text:='';
edt6.Text:='';
edt7.Text:='';
end;

procedure TForm1.btn5Click(Sender: TObject);
var
p:uk;
st:string;
begin
{$I-}
AssignFile(f,'C:/kurs/BD.dat');
{Seek(f,FileSize(f));}
Reset(f);
{$i+}
if IOResult<>0 then begin
                     ShowMessage('Файла с базой данных не существует,будет создан новый');
                     Rewrite(f);
                      end;

p:=h;
if p=nil then ShowMessage('Вы не добавили ни одной записи')
  else
    begin
    repeat
    write(f, p^.data);
    p:=p^.next;
    {Writeln; }
    until p=nil;
    end;
Dispose(p);
CloseFile(f);
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
grp1.Visible:=True;
end;

procedure TForm1.btn7Click(Sender: TObject);
var p:uk;
begin
New(p);
AssignFile(f,'C:/kurs/BD.dat');
Reset(f);
while not Eof(f) do
begin
read(f,p^.data);
end;


end;
end.

[BDA]

Пример (вроде, более менее правильный).

[SeregaVili]

Спасибо большое)теперь буду разбираться)

[BDA]

Пожалуйста.
Учтите, что функция сохранения очереди в файл одновременно и удаляет саму очередь. Функция загрузки очереди добавляет в очередь элементы, но не очищает предварительно очередь от старых элементов.

[SeregaVili]

а можно ли считывать не в memo а в stringrid? вернее можно ли сделать так чтобы stringrid была не фиксированного размера а в программе бы добавлялись строки?