مشکل در تعریف کلاس

با سلام
من در تعریف یک کلاس ساده با مشکل مواجه شدم
کلاس ساده زیر را در نظر بگیرید

کد:

---

type
  myclass=class
  private
  i:integer;
  public
  procedure create;
  procedure show;
end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure myclass.create;
begin
i:=3;
end;
procedure myclass.show;
begin
showmessage(intTostr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
 var c:myclass;
begin
  c.create;
  c.show;
end;

---

وقتی این برنامه را اجرا می کنم با پیغام زیر مواجه می شوم

کد:

---

[Warning] Unit1.pas(46): Variable 'c' might not have been initialized

---

مشکل از کجاست؟
با تشکر

نقل قول:

---

نوشته شده توسط mammad*2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام
من در تعریف یک کلاس ساده با مشکل مواجه شدم
کلاس ساده زیر را در نظر بگیرید

کد:

---

type
  myclass=class
  private
  i:integer;
  public
  procedure create;
  procedure show;
end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure myclass.create;
begin
i:=3;
end;
procedure myclass.show;
begin
showmessage(intTostr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
 var c:myclass;
begin
  c.create;
  c.show;
end;

---

وقتی این برنامه را اجرا می کنم با پیغام زیر مواجه می شوم

کد:

---

[Warning] Unit1.pas(46): Variable 'c' might not have been initialized

---

مشکل از کجاست؟
با تشکر

---

سلام
اين خطا (Error) نيست، بلكه اخطار (Warning) است.
معمولا وقتي متغيرها مقدار دهي اوليه نشده باشند از اين نوع اخطارها دريافت خواهيد كرد.

این کلاس فقط یک متغیر دارد که آن هم با 3 مقدار دهی شده پس چرا این warning رو داده
وقتی فایل exe این برنامه رو اجرا می کنم با error-Dontsend مواجه میشم

نقل قول:

---

نوشته شده توسط mammad*2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این کلاس فقط یک متغیر دارد که آن هم با 3 مقدار دهی شده پس چرا این warning رو داده
وقتی فایل exe این برنامه رو اجرا می کنم با error-Dontsend مواجه میشم

---

سلام
اين را ببينيد :
(يك دكمه روي فرم قرار دهيد)

کد:

---

unit Unit1;

interface

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

type
 TMyClass = class
 private
  FNumber : Integer;
 public
  constructor Create; virtual;
  destructor Destroy; override;
  procedure Show;
end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyClass : TMyClass;

implementation

{$R *.dfm}

procedure TMyClass.Show;
begin
 ShowMessage(IntToStr(FNumber));
end;

constructor TMyClass.Create;
begin
 inherited;
 FNumber := 3;
end;

destructor TMyClass.Destroy;
begin
 inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyClass := TMyClass.Create;
 MyClass.Show;
end;

end.

---

با تشکر از شما دوست عزیز
با این برنامه ای که نوشتی اشکالم رو پیدا کردم.