DDD : TDDD;

MyFile : File Of TDDD;

MFSize : LongInt;

Cnt : LongInt;

implementation



{$R *.DFM}



procedure TForm1.Button2Click(Sender: TObject);

begin

OpenDialog1.Execute;

AssignFile(MyFile,OpenDialog1.FileName);

Reset(MyFile);

MFSize := FileSize(MyFile);

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

Seek(MyFile,FileSize(MyFile));

DDD.Source_ID := Edit1.Text;

DDD.Destin_ID := Edit2.Text;

DDD.Arrival := StrToInt(Edit3.Text);

DDD.Success := StrToInt(Edit4.Text);

DDD.Offered := StrToCurr(Edit5.Text);

DDD.Carried := StrToCurr(Edit6.Text); Write는 입력됩니다.

DDD.Blocking := StrToCurr(Edit7.Text); illigal Types

Writeln(MyFile,DDD); -------------------------->여기서 에러가 발생합니다.

End; Write를 쓰면

다음 라인으로 않가고

옆으로 계속입력이 됩니다.

procedure TForm1.Button4Click(Sender: TObject);

begin

Inc(Cnt);

Seek(MyFile,Cnt); -------------------> error I/O 76번이던가?

end;



procedure TForm1.Button5Click(Sender: TObject);

begin

Dec(Cnt);

Seek(MyFile,Cnt); -------------------> error I/O 76번이던가?

end;