Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
kod derleme hatası
#1
arakadaşlar merhaba
forum da ve delphi de yeniyim aşağıda ki kod derlenmiyor.
yardımcı olurmusunuz yazdığım kodlar aşadaki gibi.
dos1=dos2 satırında hata veriyor.

unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
 System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm2 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 DOSYA = record
   Boyu: Integer;
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
dos1, dos2 : DOSYA;
begin
 dos1.Boyu := 50;
 dos2.Boyu := 50;

 if dos1 = dos2 then
 begin
    ShowMessage('aynı');
 end else
 begin
    ShowMessage('farklı');
 end;

end;

end.
Cevapla
#2
(01-04-2017, Saat: 11:18)compute Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olarakadaşlar merhaba
forum da ve delphi de yeniyim aşağıda ki kod derlenmiyor.
yardımcı olurmusunuz yazdığım kodlar aşadaki gibi.
dos1=dos2 satırında hata veriyor.

unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
 System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm2 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 DOSYA = record
   Boyu: Integer;
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
dos1, dos2 : DOSYA;
begin
 dos1.Boyu := 50;
 dos2.Boyu := 50;

 if dos1 = dos2 then
 begin
    ShowMessage('aynı');
 end else
 begin
    ShowMessage('farklı');
 end;

end;

end.

Merhaba.

1. type ekle
type
  DOSYA = record
  Boyu: Integer;
 end;

2. ifde neyi karsilastirdigina dikkat et
 if dos1.boyu = dos2.boyu then
 begin
   ShowMessage('ayni');
end else
begin
   ShowMessage('farkli');
end;
WWW
Cevapla
#3
dediiniz gibi yapınca sorunsuz çalıştı benim yaptığım gibi olmaz mı
Cevapla
#4
Sizin dediniz gibi olsa bu hatayı alıp bu soruyu sorarmıydınız Smile)))
Cevapla
#5
(03-04-2017, Saat: 01:07)Lord_Ares Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSizin dediniz gibi olsa bu hatayı alıp bu soruyu sorarmıydınız Smile)))

Hatalar varsa; sorulması, öğrenilmesi ve araştırılması gereken şeyler olduğunu düşünen birisi olarak sorardım. Wink
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
 System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm2 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 TDosya = record
   Boy: Integer;
   class operator Equal(A: TDosya; B: TDosya): Boolean;
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
 dosya1, dosya2: TDosya;
begin
 dosya1.Boy := 50;
 dosya2.Boy := 50;

 if dosya1 = dosya2 then
 begin
   ShowMessage('aynı');
 end
 else
 begin
   ShowMessage('farklı');
 end;

end;

{ TDosya }
class operator TDosya.Equal(A, B: TDosya): Boolean;
begin
 Result := A.Boy = B.Boy;
end;

end.
Cevapla
#6
Aşağıdaki kaynaklar da faydalı olabilir;

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Sunucu hatasi donma arsl01 17 245 16-10-2018, Saat: 17:02
Son Yorum: arsl01
  XPrinter -printer is not currently printing hatası Bay_Y 4 111 04-10-2018, Saat: 16:53
Son Yorum: Bay_Y
  webden json okuma hatası arsl01 3 210 25-06-2018, Saat: 15:17
Son Yorum: arsl01
  webbrowser nesnesi sayfa bulunamadı hatası klavye 2 333 01-06-2018, Saat: 16:55
Son Yorum: klavye
  Uniconnection mssql bağlantı hatası pro_imaj 3 415 13-01-2018, Saat: 13:27
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi