[Urahaar]

доброго времени суток.
нужно одной кнопкой создать типизированный файл и провести туда запись из Edit'ов
так же нужно другой кнопкой вывести введенную информацию в эти же Edit'ы
заранее благодарен

[friz]

на форме 3 едита и две кнопки:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Button2: TButton;         procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;     Tstruk = record      ed1:string[20];      ed2: string[20];      ed3: string[20];   end; var   Form1: TForm1;   implementation   {$R *.dfm}     procedure TForm1.Button1Click(Sender: TObject); var f:file of Tstruk;     i,n:integer;     s:Tstruk; begin  assignfile(f,'f.zu');  rewrite(f);  s.ed1:=edit1.Text;  s.ed2:=edit2.Text;  s.ed3:=edit3.Text;  write(f,s);  closefile(f); end;   procedure TForm1.Button2Click(Sender: TObject); var f:file of Tstruk;     i,n:integer;     s:Tstruk; begin  assignfile(f,'f.zu');  reset(f);  read(f,s);  edit1.Text:=s.ed1;  edit2.Text:=s.ed2;  edit3.Text:=s.ed3;  closefile(f); end;   end.

[Urahaar]

спасибо огромное)
В задаче нужно переключаться между учениками
т.е. при добавлении записи, новая запись появляется после предыдущей без замены и кнопками можно выбрать предыдущий или следующий диапазон записей (проще говоря ФИО предыдущего и следующего ученика)

[friz]

завтра утречком напишу, а то уже рабочий день закончился

[Urahaar]

буду ждать!) и заранее огромное спасибо)

[friz]

что-то такое... на форме 3 кнопки и 3 едита

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Button2: TButton;     Button3: TButton;         procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;     Tstruk = record      ed1:string[20];      ed2: string[20];      ed3: string[20];   end; var   Form1: TForm1;   i,n:integer; implementation   {$R *.dfm}     procedure TForm1.Button1Click(Sender: TObject); var f:file of Tstruk;       s:Tstruk; begin  assignfile(f,'f.zu');  reset(f);  s.ed1:=edit1.Text;  s.ed2:=edit2.Text;  s.ed3:=edit3.Text;  write(f,s);  closefile(f); end;   procedure TForm1.Button2Click(Sender: TObject); var f:file of Tstruk;       s:Tstruk; begin  assignfile(f,'f.zu');    reset(f);    n:=filesize(f);  inc(i);  if i>n then i:=1;  seek(f,i);    read(f,s);    edit1.Text:=s.ed1;  edit2.Text:=s.ed2;  edit3.Text:=s.ed3;  closefile(f); end;   procedure TForm1.FormCreate(Sender: TObject); begin n:=0; i:=0; end;   procedure TForm1.Button3Click(Sender: TObject); var f:file of Tstruk; begin  assignfile(f,'f.zu');  rewrite(f);  closefile(f); end;   end.

[Urahaar]

эм... немного непонял назначения

n:=filesize(f);
inc(i);
if i>n then i:=1;
seek(f,i);

и почемуто выдает ошибку на

read(f,s);

когда пытаюсь прочитать файл=(

[friz]

логика такая

Код:

1 2 3 4

n:=filesize(f); -узнаем количество записей inc(i); +1 к номеру записи if i>n then i:=1; если номер записи больше количества то 1 seek(f,i); переходим на нужную запись

т.е. это крутит по кругу все записи