ما طريقة تحول الرقم الى نص ( تفقيط ) ؟

[CMT-10]

السلام عليكم ورحمة الله وبركاته
ما الطريقة التي يمكن بها اضافة دالة تحول الرقم الى نص كما بالشكل التالي :

كود :

VAR Myint:Integer; self.caption := Myint.tostring

بدلا من استخدام Inttostr نرغب في ان تظهر بمجرد النقر بالنقطة بعد أي متغير
نضيفها بالكود Overload او الى الملف المصدر او الوحدة لا يهم المهم الفكرة
والله الموفق

[onexite]

PHP كود :

function IntToStr(i: Int64): String;
begin
  Str(i, Result);
end; 


[kachwahed]

وعليكم السلام ورحمة الله وبركاته
ما سألت عنه يتم بالتوجيه Default الخاصية الافتراضية

كود :

http://www.delphibasics.co.uk/RTL.asp?Name=Default

يمكنك صناعة نمط Integer خاص بك مع تحديد التأشير لرفع الالتباس

PHP كود :

Integer = class
    FValue: System.Integer;
    function ToString: string;
    public
      property Value: System.Integer read FValue write FValue; //default;  //default for Indexed table
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ Integer }

function Integer.ToString: string;
begin
  Str(FValue, Result);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Integer.Create do
  try
    Value := 7;
    Caption := ToString;
  finally
    Free;
  end;
end; 


ولا يمكن استخدامها بهذا الشكل، انظر:

كود :

http://stackoverflow.com/questions/4439216/default-property-for-class-in-delphi-7

دلفي لا يتوفر على Wrappers كما في بعض اللغات
في المقابل هناك نمط TCustomVariantType قد يمكن به محاكاة نفس الاستخدام...
للمزيد ينظر:

كود :

http://geekscomputer.blogspot.com/2009/10/defining-custom-variants-in-delphi.html

أنا أستخدم Delphi7 فقط.
في إصدارات دلفي الحديثة تمت محاكاة Operator Overloading كالتي في ++C
قد يمكنك تحقيق ذلك بها، شاهد مثال M.Hodges

كود :

http://edn.embarcadero.com/article/34324

بالتوفيق.

[CMT-10]

السلام عليكم
هذا المثال ممتاز جداً ويفي بالمطلوب .

كود :

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; Integer = class FValue: System.Integer; function ToString: string; public property Value: System.Integer read FValue write FValue; //default; //default for Indexed table end; var Form1: TForm1; implementation {$R *.dfm} function Integer.ToString: string; begin Str(FValue, Result); end; procedure TForm1.Button1Click(Sender: TObject); var op:integer; begin op.Value:=45; Edit1.Text:=op.ToString; end; end.

بارك الله بيك
وسأدرس المواضيع الاخرى

والله الموفق

[CMT-10]

السلام عليكم

لماذا لا يمكن صناعة نمط للــ String ويقول انه موجود وهل الـ Integer غير موجود ؟
احيانا لا أفهم الباسكال ! كلما قلت بدأت أفهمها اكتشف انني ابعد ما يكون منها
والله الموفق

[kachwahed]

وعليكم السلام ورحمة الله وبركاته

لماذا لا يمكن صناعة نمط للــ String ويقول انه موجود وهل الـ Integer غير موجود ؟

هذا بالضبط ما كنت سأحضر له إن شاء الله، درس قصة string ولماذا لونها مختلف؟ اصبر قليلا