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

program sis;
uses crt;
type
book = record
name : string;
FIO : string;
izd : string;
amount : integer;
end;
books = array [1..10] of book;

function menu(v : char) : integer;
var
choice : byte;
begin
clrscr;
writeln('‚лЎҐаЁвҐ: (1-3)');
writeln('1 - „®Ў ўЁвм Є­ЁЈг ');
writeln('2 - ?а®б¬®ваҐвм § ЇЁбЁ ');
writeln('3 - ‚л室');
readln (choice);
menu := choice;
end;

Procedure add (var a:books; var n:integer);
var
i, num :integer;
begin
writeln ('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ­®ўле Є­ЁЈ, Є®в®алҐ ўл е®вЁвҐ ўўҐбвЁ:');
readln (num);
for i := n to num+n-1 do
begin
WriteLn ('? §ў ­ЁҐ Є­ЁЈЁ: ');
ReadLn (a[i].name);
WriteLn ('”?Ћ Ђўв®а : ');
ReadLn (a[i].FIO);
WriteLn ('?§¤ вҐ«мбвў®: ');
ReadLn (a[i].izd);
WriteLn ('Љ®«ЁзҐбвў® бва ­Ёж: ');
ReadLn (a[i].amount);
end;
a [i + 1].name := ' ';
n := i;
end;

Procedure prosmotr (a: books);
var
i, n : integer;

begin
for i := 1 to 30 do
if (a[i].name = ' ') then
begin
n := i;
Break;
end;
WriteLn ('‚ᥣ® ',n,' Є­ЁЈ');
if n > 0 then
for i := 1 to n do
begin
writeln('? §ў ­ЁҐ Є­ЁЈЁ: ', a[i].name);
writeln('”?Ћ  ўв®а : ', a[i].FIO);
writeln('?§¤ вҐ«мбвў®: ', a[i].izd);
writeln('Љ®«ЁзҐбвў® бва ­Ёж: ', a[i].amount);
end;
end;

var
a: books;
c, choice: byte;
n: integer;

begin
textcolor(14);
clrscr;
n := 1;
while true do
begin
choice := menu (#1);
if (choice = 1) then add(a, n);
if (choice = 2) then prosmotr(a);
if (choice = 3) then exit;
readln;
end;
end.


Только дос кодировка.....

Код

procedure Save(b : books; filename:string); var f:file of book; i:integer; begin Assign(f, filename); rewrite(f); for i:=Low(b) to High(b) do  write(f, b[i]); Close(f) end; procedure Load(var b:books; filename:string); var f:file of book; i:integer; begin Assign(f, filename); reset(f); i:=Low(b); while not Eof(f) and (i<=High(b)) do  begin   read(f, b[i]);   inc(i)  end; Close(f) end;

М	Пользуйтесь тегами [code=delphi][/code]

Это сообщение отредактировал(а) Pakshin A. S. - 16.12.2004, 19:18

СПАСИБО!!! У вас офигенный форум!

Evilviking А вы как думали?!