+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما طريقة تحول الرقم الى نص ( تفقيط ) ؟ (/showthread.php?tid=3939)
ما طريقة تحول الرقم الى نص ( تفقيط ) ؟ - CMT-10 - 02-03-2012
السلام عليكم ورحمة الله وبركاته
ما الطريقة التي يمكن بها اضافة دالة تحول الرقم الى نص كما بالشكل التالي :
كود :
VAR Myint:Integer;
self.caption := Myint.tostringنضيفها بالكود Overload او الى الملف المصدر او الوحدة لا يهم المهم الفكرة
والله الموفق
ما طريقة تحول الرقم الى نص ( تفقيط ) ؟ - onexite - 02-03-2012
PHP كود :
function IntToStr(i: Int64): String;
begin
Str(i, Result);
end;
ما طريقة تحول الرقم الى نص ( تفقيط ) ؟ - kachwahed - 02-03-2012
وعليكم السلام ورحمة الله وبركاته
ما سألت عنه يتم بالتوجيه Default الخاصية الافتراضية
كود :
http://www.delphibasics.co.uk/RTL.asp?Name=DefaultPHP كود :
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في المقابل هناك نمط 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 - 02-03-2012
السلام عليكم
هذا المثال ممتاز جداً ويفي بالمطلوب .
كود :
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 - 04-03-2012
السلام عليكم
لماذا لا يمكن صناعة نمط للــ String ويقول انه موجود وهل الـ Integer غير موجود ؟
احيانا لا أفهم الباسكال ! كلما قلت بدأت أفهمها اكتشف انني ابعد ما يكون منها
والله الموفق
ما طريقة تحول الرقم الى نص ( تفقيط ) ؟ - kachwahed - 04-03-2012
وعليكم السلام ورحمة الله وبركاته
إقتباس :لماذا لا يمكن صناعة نمط للــ String ويقول انه موجود وهل الـ Integer غير موجود ؟هذا بالضبط ما كنت سأحضر له إن شاء الله، درس قصة string ولماذا لونها مختلف؟ اصبر قليلا
