15-03-2012, 01:16 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
هذا مثال بسيط لمكون دلفي ValueListEditor1 موجود في الاساس(لايحتاج اضافة او تثبيت)
تجدونه بداخل لسان او تبويب additional متعدد الاستخدامات حسب ما تريد ...
السورس في المرفقات وهذا هو الكود :
كود :
[align=left]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ValEdit, StdCtrls;
type
TForm1 = class(TForm)
ValueListEditor1: TValueListEditor;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
x:string;
z:Integer;
begin
x:='ÇÞáÇã ÑÕÇÕ';
z:=2;
ValueListEditor1.Strings.Add(Format('%s=%d',[x,z]));
end;
end.
[/align]
