IOResult tanıtılmamış Bittik biz bittik

Bi rnek vardı kayıt uygulaması diye grsel eğitim setinde. Name'leri dahi aynı girerekten yazdım kodları fakat derlemeye çalışınca if dngüsünün o tarafta hata veriyor kodlar şyle ; unit uMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TfrmMain = class Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; Label7: TLabel; Edit7: TEdit; Label8: TLabel; Edit8: TEdit; Label9: TLabel; Edit9: TEdit; Label10: TLabel; Edit10: TEdit; Label11: TLabel; Edit11: TEdit; Edit12: TEdit; Button1: TButton; procedure Button1Click ; procedure FormCreate ; procedure FormClose ; private public end; Tcustomer=record CustNo: Integer; Company: String ; Address1: string ; Address2: string ; city: string ; State: String ; ZIP: string ; Country: string ; Phone: string ; Fax: string ; contact: string ; end;const MAIN_DATA_PATH='C:\Program Files\Borland\Delphi7\dosya\customer\Data';var frmMain: TfrmMain; Customer: TCustomer; FileCustomer: file of TCustomer;implementation procedure TfrmMain. FormCreate ;beginAssignFile ; Reset ; // dosyayı açIOResult if IOResult <> 0 then Rewrite ;end;procedure TfrmMain. FormClose ;beginCloseFile ;end;procedure TfrmMain. Button1Click ;begin//post the customer record... with customer dobeginCustNo :=strtoint(Edit1. Text); Company:= Edit2. Text; Address1:= Edit3. Text; Address2:= Edit4. Text; city:= Edit5. Text; State:= Edit6. Text; ZIP:= Edit7. Text; Country:= Edit8. Text; Phone:= Edit9. Text; Fax:= Edit10. Text; contact:= Edit11. Text;end;end.

pm attım bak Bittik biz bittik

: cosmic bunu yazdı: IOResult tanıtılmamış hocam bu eğitim setinde anlatan ipne de tanıtmadan aynen o şekil yazdı ne iş anlayamadım :| delphi sürüm farklılığı falan vardır sanırım üşenmesem şimdi formu falan ayarlamaya yapardım :D Bittik biz bittik

: IOResult tanıtılmamış hocam bu eğitim setinde anlatan ipne de tanıtmadan aynen o şekil yazdı ne iş anlayamadım :|

: cyb3rt1m3 bunu yazdı: cosmic bunu yazdı: IOResult tanıtılmamış hocam bu eğitim setinde anlatan ipne de tanıtmadan aynen o şekil yazdı ne iş anlayamadım :| delphi sürüm farklılığı falan vardır sanırım üşenmesem şimdi formu falan ayarlamaya yapardım :D hoca yap bi güzellik pazar arefesinin hatrına yav :D