+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : مشكله في استخدام Published Method (/showthread.php?tid=2330)
مشكله في استخدام Published Method - Omega-tron - 20-08-2010
مشكله في استخدام Published Method في بيئة Lazarus IDE
هذه هي المحاوله
كود :
unit Unit1;
{$mode objfpc}{$H+}{$M+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
TNoParams = Procedure;
TMyClass = Class(TObject)
Published
Procedure GMsgbox;
End;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
Procedure TMyClass.GMsgbox;
begin
ShowMessage('Test Call Prucedure!');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
TmClass : TMyClass;
TMProc : TNoParams;
begin
TmClass := TMyClass.Create;
TMProc := TmClass.MethodAddress(Edit1.Text);
TMProc;
TmClass.Free ;
end;
end.وهذه رساله الخطا
unit1.pas(54,20) Error: Incompatible types: got "Pointer" expected "<procedure variable type of procedure;Register>"
unit1.pas(61) Fatal: There were 1 errors compiling module, stopping
مشكله في استخدام Published Method - shagrouni - 22-08-2010
السلام عليكم
باستخدام دلفي 6
قمت بالتعديل التالي
PHP كود :
TMProc := TmClass.MethodAddress('GMsgbox');
مشكله في استخدام Published Method - Omega-tron - 28-08-2010
المشكله مع Lazaurs IDE
وليس دلفي 6
مشكله في استخدام Published Method - محمد نسمان - 13-09-2010
سؤالي لماذا تريد إستخدام قسم ال Published وليس الأقسام الأخرى مثل Public أو protected؟
أيضاً جرب أن تقوم بتغيير {$mode objfpc} إلى {$mode delphi}
مشكله في استخدام Published Method - Omega-tron - 18-09-2010
استخدام دوال من داخل البرنامج وقت التنفيد