Benim Göremediğim Ne Ki???

[kutercakal007]

Merhabalar herkeze.

iki günden bu yana bu unit'de ki hata nedir diye bakıyorum ama bir türlü hata bulamadım.
program hata vermiyor procedure'lerin içinde kod tamalama (Ctrl+ Space) yapmaya çalıştığımda

Kod: Tümünü seç

Unable to invoke Code Completion due to errors in source code

uyarısını veriyor... Projeyi dün teslim etmiş olmam gerekiyordu etmedim bunu çözmeden de etmeyi düşünmüyorum
lütfen yardım edebilir misiniz

Unit'in kodları :

Kod: Tümünü seç

unit PersonelFormu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DBCtrls, Buttons, ComCtrls, Grids, DBGrids,
  ExtDlgs, StrUtils;

type
  TPersonel = class(TForm)
    Ad_LB_P: TLabel;
    Soyad_LB_P: TLabel;
    TCNo_LB_P: TLabel;
    SicilNo_LB_P: TLabel;
    Tel_LB_P: TLabel;
    EPosta_LB_P: TLabel;
    Adres_LB_P: TLabel;
    Sube_LB_P: TLabel;
    Unvan_LB_P: TLabel;
    SigortaDurum_LB_P: TLabel;
    Maas_LB_P: TLabel;
    KayitTarihi_LB_P: TLabel;
    Personel_DBGrid: TDBGrid;
    Ad_P: TEdit;
    Soyad_P: TEdit;
    TCNo_P: TEdit;
    SicilNo_P: TEdit;
    Tel_P: TEdit;
    EPosta_P: TEdit;
    Adres_P: TMemo;
    Maas_P: TEdit;
    KayitTarihi_P: TDateTimePicker;
    Unvan_Yeni: TBitBtn;
    Unvan_P: TDBLookupComboBox;
    Sube_P: TDBLookupComboBox;
    S_Var: TRadioButton;
    S_Yok: TRadioButton;
    Listeleme_GB: TGroupBox;
    Sube_L_LB: TLabel;
    Calisan_L_LB: TLabel;
    Sube_L: TDBLookupComboBox;
    Calisan_L: TDBLookupComboBox;
    Kaydet_P: TBitBtn;
    Guncelle_P: TBitBtn;
    Temizle_P: TBitBtn;
    Sil_P: TBitBtn;
    IlkKayit: TBitBtn;
    Onceki_P: TBitBtn;
    Sonraki_P: TBitBtn;
    SonKayit_P: TBitBtn;
    Listele_P: TBitBtn;
    procedure Ad_PExit(Sender: TObject);
    procedure Ad_PKeyPress(Sender: TObject; var Key: Char);
    procedure Soyad_PExit(Sender: TObject);
    procedure Soyad_PKeyPress(Sender: TObject; var Key: Char);
    procedure TCNo_PExit(Sender: TObject);
    procedure TCNo_PKeyPress(Sender: TObject; var Key: Char);
    procedure SicilNo_PKeyPress(Sender: TObject; var Key: Char);
    procedure Tel_PExit(Sender: TObject);
    procedure Tel_PKeyPress(Sender: TObject; var Key: Char);
    procedure Unvan_YeniClick(Sender: TObject);
    procedure Maas_PExit(Sender: TObject);
    procedure Maas_PKeyPress(Sender: TObject; var Key: Char);
    procedure Listele_PClick(Sender: TObject);
    procedure Kaydet_PClick(Sender: TObject);
    procedure Guncelle_PClick(Sender: TObject);
    procedure IlkKayitClick(Sender: TObject);
    procedure Onceki_PClick(Sender: TObject);
    procedure Sonraki_PClick(Sender: TObject);
    procedure SonKayit_PClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Personel: TPersonel;
  UN:AnsiString;

implementation

{$R *.dfm}
 uses DataFormu, DateUtils, DB, ADODB;

[orhancc]

Kodda sorun yok delphinde birşey olabilir ya da kodların geri kalan kısmında...

[aslangeri]

s.a.
derlediğin zaman hata veriyormu?

[barutali]

Delphi 7 de projeniz hata verdiğinde yada F9 İle çalıştırdıktan sonra yeniden unit kısmına gelip denediğinizde bu iletiyi alabiliyorsunuz. CTRL + F2 ile Projeyi resetleyin
tasarım anına geçsin daha sonra yeniden CTRL + SPACE yapın

[kutercakal007]

Arkadaşlar dediğiniz yöntemlerin hepsini denedim hatta gittim okuldaki hocam sordum o da dedi kaynak kod dosyanda bi sıkıntı var. Dedim ingilizcem uyarı iletisini anlamaya yetiyo adam o zaman git bul ukalalık yapma bana dedi yani elim boş döndüm ve bu sorunu hala çözemedim en son delphi yi kaldırıp yeniden kuruyum dedim bilgisayarcı mantığı ama maalesef delphi yi yeniden kaldırıp kurmak da işe yaramadı. Türkçe ve Yabancı forumlarda aramadığım konu kalmadı bu sorunla alakalı ama ne yaptıysam düzelmedi...

İşin ilginç yanı : Ben bu formu tamamen projeden ve bilgisayardan sildim yeniden oluşturdum hatta adını bile değiştirdim ama yine aynı hayatı verdi daha da enteresan kısmı ise diğer formlar da problem yok

En son Delphi yi bırakacam o olacak

[kutercakal007]

Delphi 7 de projeniz hata verdiğinde yada F9 İle çalıştırdıktan sonra yeniden unit kısmına gelip denediğinizde bu iletiyi alabiliyorsunuz. CTRL + F2 ile Projeyi resetleyin
tasarım anına geçsin daha sonra yeniden CTRL + SPACE yapın

Dediğin şey iyi güzel bazen farkında olmadan program çalışırken kod tamamlamaya kalkınca bunu hatayı veriyor ama benım sorunum o degil demek istediğini anladım ama yine de teşekkürler

[orhancc]

kodları upload etmem mümkünse bi kontrol edebiliriz.

[kutercakal007]

s.a.
derlediğin zaman hata veriyormu?

a.s. hocam. Hayır derlediğim zaman hata vermiyor. Sadece Datamodule için :

Kod: Tümünü seç

With Datamodule.Query do

kısmında hata alıyorum ve tabi devamindaki tüm kod tamamlamaya çalıştığım yerlerde

[aslangeri]

orda hata olduğu için devamındaki kodlarda ne getireceğini bilemiyor olabilir.
keşke hatanın ne olduğunuda yazsaydınız.