Помогите исправить ошибку в коде сохранения данных 
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
type
TMember = record
Counter: string[11]; //1
C_Code : string[3]; //2
N_Code : string[2]; //3
DataSkl: string[10]; //4
ProtNum: string[6]; //5
FamN: string[20]; //6
D_Code: string[2]; //7
Pos_Node: string[2]; //8
ST_Code: string[5]; //9
Pov_Code: string[1]; //10
DataV: string[10]; //11
FamS: string[20]; //12
NameS: string[14]; //13
SonameS: string[19]; //14
DataBD: string[10]; //15
ObjName: string[22]; //16
NamePoS: string[22]; //17
Pos_Code: string[1]; //18
PRO_Code: string[2]; //19
NameRoz: string[20]; //20
Nap_Code: string[1]; //21
RI_Code: string[2]; //22
DataRi: string[10]; //23
PostN: string[3]; //24
SumR: string[3]; //25
SumK: string[2]; //26
UData: string[10]; //27
UNData: string[10]; //28
UUData: string[10]; //29
SKN_Code: string[1]; //30
SKP_Code: string[1]; //31
SS_Code: string[1]; //32
NPR_Code: string[1]; //33
PZ_Code: string[1]; //34
SVS_Code: string[1]; //35
KZap: string[20]; //36
KZData: string[10]; //37
PError: string[1]; //38
SF: string[1]; //39
end;
type
TForm1 = class(TForm)
ReadButton: TButton;
SaveButton: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table: TTable;
procedure SaveButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
r: array of TMember;
implementation
{$R *.dfm}
procedure TForm1.SaveButtonClick(Sender: TObject);
var
F : file of TMember;
i, count: integer;
begin
AssignFile(F,'20.kap');
Rewrite(F);
table.First;
while not table.Eof do
begin
r[i].counter:=table.FieldByName('Counter').AsString;
r[i].C_Code:=table.FieldByName('C_Code').AsString;
r[i].N_Code:=table.FieldByName('N_Code').AsString;
end;
Write (F, r[i]);
CloseFile(F);
end;
end.
|
|
Супер. 
Еще вопрос. 
