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

[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

بالتوفيق.