Program Bozuldu

[darrenjones]

Çözebilecek arkadaşlar varsa linkini vereyim: http://www.dosya.tc/server21/YglGRo/BookShop.rar.html

Rapor Fatura Gelen Raporlar formlarını sildim. Bir kaç hata veriyordu implementationslardaki unit isimlerini de sildim. Şimdi hiç tepki vermiyor açılırken projenin unit sayfası geliyor run diyorum tepki yok. Exe'si de aynı. Yarın ödevin son günüydü şaka gibi ya.

[greenegitim]

Project- View Source a tıkla
sildiğin Kısım en alta begin end bloğunda

Kod: Tümünü seç

  Application.Initialize;
  Application.Title := 'Book Shop';
  Application.CreateForm(tOturum1, Oturum1);
  Application.Run;

tamamı

Kod: Tümünü seç

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Oturum1},
  Unit2 in 'Unit2.pas' {AnaEkran2},
  Unit3 in 'Unit3.pas' {Personel3},
  Unit4 in 'Unit4.pas' {KitapSorgulama4},
  Unit5 in 'Unit5.pas' {KitapKaydi5},
  Unit6 in 'Unit6.pas' {KitapSatis6},
  Unit7 in 'Unit7.pas' {PersonelKaydi7},
  Unit8 in 'Unit8.pas' {Connection8},
  Unit12 in 'Unit12.pas' {KategoriEkle12},
  Unit13 in 'Unit13.pas' {Stok13},
  Unit14 in 'Unit14.pas' {GorevEkle14},
  Unit15 in 'Unit15.pas' {Hakkinda15};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Book Shop';
  Application.CreateForm(tOturum1, Oturum1);
  Application.Run;
end.

[darrenjones]

Project- View Source a tıkla
sildiğin Kısım en alta begin end bloğunda

Kod: Tümünü seç

  Application.Initialize;
  Application.Title := 'Book Shop';
  Application.CreateForm(tOturum1, Oturum1);
  Application.Run;

tamamı

Kod: Tümünü seç

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Oturum1},
  Unit2 in 'Unit2.pas' {AnaEkran2},
  Unit3 in 'Unit3.pas' {Personel3},
  Unit4 in 'Unit4.pas' {KitapSorgulama4},
  Unit5 in 'Unit5.pas' {KitapKaydi5},
  Unit6 in 'Unit6.pas' {KitapSatis6},
  Unit7 in 'Unit7.pas' {PersonelKaydi7},
  Unit8 in 'Unit8.pas' {Connection8},
  Unit12 in 'Unit12.pas' {KategoriEkle12},
  Unit13 in 'Unit13.pas' {Stok13},
  Unit14 in 'Unit14.pas' {GorevEkle14},
  Unit15 in 'Unit15.pas' {Hakkinda15};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Book Shop';
  Application.CreateForm(tOturum1, Oturum1);
  Application.Run;
end.

Dediğinizi ekledim ama Access violation at adress 00459C52 in module 'Project1.exe'. Read of address at 000002F4. diye bir hata veriyor hocam.

Edit: Neyseki hallettim. Project > Options > Forms'da hepsini auto-create forms lara taşıdım. Sizin sayenizde oldu çok teşekkürler

[mrmarman]

Geçmiş olsun... Bir dahaki sefere daha dikkatli olursunuz... Dosya linki...