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
  Uniconnection mssql bağlantı hatası pro_imaj 3 184 13-01-2018, Saat: 13:27
Son Yorum: pro_imaj
  DataSnap Invalid Argumant Hatası burakb44 6 251 25-12-2017, Saat: 23:43
Son Yorum: burakb44
  Adres hatası Dostk 1 192 15-12-2017, Saat: 09:11
Son Yorum: esistem
  Dataset Out Of Memory Hatası? delphi-x 2 246 02-11-2017, Saat: 00:16
Son Yorum: delphi-x
  Birden fazla Uygulamayı aynı anda derleme yhackup 10 477 27-10-2017, Saat: 20:44
Son Yorum: Abdullah ILGAZ



Konuyu Okuyanlar: 1 Ziyaretçi