|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
типизированные файлы
доброго времени суток.
нужно одной кнопкой создать типизированный файл и провести туда запись из Edit'ов так же нужно другой кнопкой вывести введенную информацию в эти же Edit'ы заранее благодарен |
#2
|
||||
|
||||
на форме 3 едита и две кнопки:
Код:
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. Последний раз редактировалось Admin, Сегодня в 10:32. |
#3
|
|||
|
|||
спасибо огромное)
В задаче нужно переключаться между учениками т.е. при добавлении записи, новая запись появляется после предыдущей без замены и кнопками можно выбрать предыдущий или следующий диапазон записей (проще говоря ФИО предыдущего и следующего ученика) |
#4
|
||||
|
||||
завтра утречком напишу, а то уже рабочий день закончился
Последний раз редактировалось Admin, Сегодня в 10:32. |
#5
|
|||
|
|||
буду ждать!) и заранее огромное спасибо)
|
#6
|
||||
|
||||
что-то такое... на форме 3 кнопки и 3 едита
Код:
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. Последний раз редактировалось Admin, Сегодня в 10:32. |
#7
|
|||
|
|||
эм... немного непонял назначения
n:=filesize(f); inc(i); if i>n then i:=1; seek(f,i); и почемуто выдает ошибку на read(f,s); когда пытаюсь прочитать файл=( |
#8
|
||||
|
||||
логика такая
Код:
n:=filesize(f); -узнаем количество записей inc(i); +1 к номеру записи if i>n then i:=1; если номер записи больше количества то 1 seek(f,i); переходим на нужную запись Последний раз редактировалось Admin, Сегодня в 10:32. |