Parsi Coders

استفاده از این قابلیت جالب در دلفی XE2 که واقعا کار برنامه نویس رو خیلی راحت میکنه و براحتی میتونین یه لیست بسازین و بایند کنید:

کد:
unit Unit15;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, System.Generics.Collections;

type

  TPerson = class(TObject)

  private

    FLastName: String;

    FFirstName: string;

  published

    property firstname : string read FFirstName write FFirstName;

    property Lastname : String read FLastName write FLastName;

  end;

  TForm15 = class(TForm)

    StringGrid1: TStringGrid;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    Data : TList<TPerson>;

  end;

var

  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.FormCreate(Sender: TObject);

var

 P : TPerson;

begin

  Data := TList<TPerson>.Create;

  P := TPerson.Create;

  P.firstname := 'John';

  P.Lastname := 'Doe';

  Data.Add(P);

  P := TPerson.Create;

  P.firstname := 'Jane';

  P.Lastname := 'Doe';

  Data.Add(P);

  // What can I add here or in the designer to link this to the TStringGrid.

end;

end.

کد:
procedure TForm15.FormCreate(Sender: TObject); 

var 

 P : TPerson; 

 bgl: TBindGridList;

 bs: TBindScope;

 colexpr: TColumnFormatExpressionItem;

 cellexpr: TExpressionItem;

begin 

  Data := TList<TPerson>.Create; 

  P := TPerson.Create; 

  P.firstname := 'John'; 

  P.Lastname := 'Doe'; 

  Data.Add(P); 

  P := TPerson.Create; 

  P.firstname := 'Jane'; 

  P.Lastname := 'Doe'; 

  Data.Add(P); 

  // What can I add here or in the designer to link this to the TStringGrid. 

  while StringGrid1.ColumnCount<2 do

    StringGrid1.AddObject(TStringColumn.Create(self));

  bs := TBindScope.Create(self);

  bgl := TBindGridList.Create(self);

  bgl.ControlComponent := StringGrid1;

  bgl.SourceComponent := bs;

  colexpr := bgl.ColumnExpressions.AddExpression;

  cellexpr := colexpr.FormatCellExpressions.AddExpression;

  cellexpr.ControlExpression := 'cells[0]';

  cellexpr.SourceExpression := 'current.firstname';

  colexpr := bgl.ColumnExpressions.AddExpression;

  cellexpr := colexpr.FormatCellExpressions.AddExpression;

  cellexpr.ControlExpression := 'cells[1]';

  cellexpr.SourceExpression := 'current.lastname';

  bs.DataObject := Data;

end;

اینم یه مثال راحتتر که بهتر متوجه بشین از کارکرد اون :

کد:
type

  TPerson = class(TObject)

  private

    Number: Integer;

    MName: String;

    MFamily: string;

    MNationalCode: string;

    MBCNumber: string;

    MBirthday: string;

    MSex: string;

    MRelation: string;

  published

    property ID: string read Number write Number;

    property firstname: string read MFamily write MFamily;

    property Lastname: String read MName write MName;

    property NationalCode: String read MNationalCode write MNationalCode;

    property BCNumber: string read MBCNumber write MBCNumber;

    property Birthday: String read MBirthday write MBirthday;

    property s      /\/\///\e///:/x: string read MSex write MSex;

    property Relation: String read MRelation write MRelation;

    { +++++++++++++++++++++++++++++++ }

  private

    { Pr!v8 var }

    { +++++++++++++++++++++++++++++++ }

  public

  end;

procedure BindingListMember( Data : TList<TPerson>);

var

  bgl: TBindGridList;

  bs: TBindScope;

  colexpr: TColumnFormatExpressionItem;

  cellexpr: TExpressionItem;

begin

  // while StringGrid1.ColCount<2 do

  // StringGrid1.AddObject(TStringColumn.Create(self));

  bs := TBindScope.Create();

  bgl := TBindGridList.Create();

  bgl.ControlComponent := Form1.StringGrid1;

  bgl.SourceComponent := bs;

  colexpr := bgl.ColumnExpressions.AddExpression;

  cellexpr := colexpr.FormatCellExpressions.AddExpression;

  cellexpr.ControlExpression := 'cells[0]';

  cellexpr.SourceExpression := 'current.firstname';

  colexpr := bgl.ColumnExpressions.AddExpression;

  cellexpr := colexpr.FormatCellExpressions.AddExpression;

  cellexpr.ControlExpression := 'cells[1]';

  cellexpr.SourceExpression := 'current.lastname';

  bs.DataObject := Data;

end;

{ ------------------------------------------------------------------------------------------- }

procedure SetFromAdoQuery(Query : string);

var

  I: Integer;

    P: TPerson;

      Data: TList<TPerson>;

begin

    { +++++++++++++++++++++++++++++++++ }

  with DataModule2.qryMember do

  begin

    Close;

    SQL.Clear;

    SQL.Add(Query);

    Open;

  end;

  Data := TList<TPerson>.Create;

  for I := 1 to DataModule2.qryMember.Eof do

  begin

  P := TPerson.Create;

         with DataModule2 do

         begin

            p.Number:= I;

            p.MName:= qryMemberPName.AsString;

            p.MFamily := qryMemberPFamily.AsString;

            p.MNationalCode:= qryMemberNationalCode.AsString;

            p.MBCNumber := qryMemberBCNember.AsString;

            p.MBirthday := qryMemberBirthday.AsString;

            p.MSex:= qryMemberSex.AsString;

            p.MRelation:= qryMemberRelation.AsString;

         end;

         Data.Add(P);

  end;

  BindingListMember(P,Data);

end;

Oep