Hata nerde ben anlamadım...

[b@dboyvz]

yaf yazdım dosya kayıtan bunları ama kayit. diyince type deki adsoy gibileri görmüyo su hatayı verio [Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code
kodlar sunlar simdiden saollun...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
kayittipi=Record;
adsoy:string[20];
adres:string[35];
tel:string[11];
sehir:string[15];
end;
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
dosya: file of kayittipi;
kayit: kayittipi;
implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ASSIGNFILE(Dosya, 'adres.dat');
{$I-}
Reset(Dosya);
{$I+};
if IORESULT<>0 then REWRITE(dosya)
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
closefile(dosya);
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
kayit. -----""BURASI MESELA hata veren yer""
end;

end.

[aslangeri]

s.a.
1.kodlarınızı code tagı içerisine alırsanız daha okunaklı olur.
2.programı derlemeye çalıştığın zaman verdiği hatayı düzeltirsen noktadan sonra istediğin bilgiler görünecektir.

genelde Kaynak dosyada hata olduğu zaman code compl. penceresi bu hatayı veriyor.

kolay gelsin.

[Akin_Delphi]

yaf yazdım dosya kayıtan bunları ama kayit. diyince type deki adsoy gibileri görmüyo su hatayı verio [Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code
kodlar sunlar simdiden saollun...

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  kayittipi=Record;
  adsoy:string[20];
  adres:string[35];
  tel:string[11];
  sehir:string[15];
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dosya: file of kayittipi;
  kayit: kayittipi;
implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ASSIGNFILE(Dosya, 'adres.dat');
{$I-}
Reset(Dosya);
{$I+};
if IORESULT<>0 then REWRITE(dosya)
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
closefile(dosya);
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
kayit. -----""BURASI MESELA hata veren yer""
end;

end.

Sayın Arkadaşım ilk gördüğüm şey Type ifadesini Formun Type ifadesinden öncesine almışsın. Dolayısıyla Type ifadesi büyük ihtimalle Form'un kapsamı (context) içerisinde ele alınmıyor.

Bence,

Kod: Tümünü seç

  TForm1 = class(TForm)
    Edit1: TEdit;
    .....
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  kayittipi=Record;
  adsoy:string[20];
  adres:string[35];
  tel:string[11];
  sehir:string[15];
  end;

var
....

Şekline getirirseniz, muhtemelen sorun çözülür. Başarılar ve saygılar.

Not : Bir de bir tavsiye, genelde Delphi'de sınıf, bileşen vs. tanımlarının başına T harfi koyma geleneği var. Dolayısıyla Type kısmında Kayittipi'ni TKayittipi olarak tanımlaman ileride bu nedir yahu demen ihminalini azaltabilir.