создание типизированного файла

[Siluet]

народ.. я вот никак не пойму как создать типизированный файл в делфи.
есть наработка но вы наверное будете смеятся

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 type a1=record
  oc:integer;
  fam:string;
  end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var a:a1;
  fa:file of a1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(fa,'file');
rewrite(fa);
with a do
while true do begin
a.fam:=edit1.text;

read(a.fam); {тут я незнаю как записать слово в файл веденное в edit1}

end;
end.

объясните пожалуйста.. заранее спасибо

[mosq]

вот здесь...

 type a1=record
  oc:integer;
  fam:string;
  end;

...надо указать какой длины string (например, fam:string[50]); иначе ошибка будет выскакивать.
правда это я из паскаля еще помню, может в дельфи это обработали как-то автоматически..

[Siluet]

ну в паскале то можно и не писать это

[Stilet]

{тут я незнаю как записать слово в файл веденное в edit1}

Ну write(fa,a.fam); соответственно c указанием файловой переменки

[Баламут]

Сообщение от Stilet

Ну write(fa,a.fam); соответственно c указанием файловой переменки

Не-а, write(fa, a). Мы же запись в файл пишем, а не часть ее.
И строку в записи действительно нужно ограничивать по длине.

[Stilet]

а не часть ее.

Запишешь часть - нарушишь структуру файла.
Это все равно что сказать "А мне не нужны гусенницы - они не стреляют, оставьте только пушку и я на танке воевать поеду"

И строку в записи действительно нужно ограничивать по длине.

Ну это верно.

[Баламут]

Stilet, дружище, проснись уже! Сам же пишешь

Ну write(fa,a.fam); соответственно c указанием файловой переменки

[Stilet]

Баламут

А-а-а все поняв.
Я просто автора код скопипастил. Имелось ввиду конечно же:write(fa,a);

[Siluet]

fa:file of a1;
он еще вот туда выводит ошибку

[Stilet]

ошибку

На китайском?

Догадываюсь чо в пипизированных файлах нужно полюбому образмеривать структуру, т.е. в твоем случае:

 type a1=record
  oc:integer;
  fam:string[500 например];
  end;