مقید کردن یک String List به یک Grid

type

  TPersonalRec = record

    FirstName,

    LastName,

    Age       : string;

  end;



  TPersonalRecEnumerator = record

  private const

    FRecFieldCount = 3;

  private

    FIndex: Integer;

    FList: TStringList;

  public

    constructor Create(AList: TStringList);

    function GetCurrent: TPersonalRec; inline;

    function MoveNext: Boolean; inline;

    property Current: TPersonalRec read GetCurrent;

  end;



  TPersonalStringList = class(TStringList)

  public

    function GetEnumerator: TPersonalRecEnumerator;

  end;



{ TPersonalRecEnumerator }



constructor TPersonalRecEnumerator.Create(AList: TStringList);

begin

  FList := AList;

  FIndex := -1 * FRecFieldCount;

end;



function TPersonalRecEnumerator.GetCurrent: TPersonalRec;

begin

  Result.FirstName := FList.ValueFromIndex[FIndex];

  Result.LastName := FList.ValueFromIndex[FIndex+1];

  Result.Age := FList.ValueFromIndex[FIndex+2];

end;



function TPersonalRecEnumerator.MoveNext: Boolean;

begin

  Result := FIndex < FList.Count - FRecFieldCount -1;

  if Result then

    Inc(FIndex,FRecFieldCount);

end;



{ TPersonalStringList }



function TPersonalStringList.GetEnumerator: TPersonalRecEnumerator;

begin

  Result := TPersonalRecEnumerator.Create(Self);

end;



{TForm1}



procedure TForm1.Button1Click(Sender: TObject);

var

  PersonalList : TPersonalStringList;

  PersonalRec: TPersonalRec;

begin

  PersonalList := TPersonalStringList.Create;

  try

    PersonalList.LoadFromFile('C:\Test.txt');

    for PersonalRec in PersonalList do

    begin

      StringGrid1.Cells[1,StringGrid1.RowCount-1] := PersonalRec.FirstName;

      StringGrid1.Cells[2,StringGrid1.RowCount-1] := PersonalRec.LastName;

      StringGrid1.Cells[3,StringGrid1.RowCount-1] := PersonalRec.Age;

      StringGrid1.RowCount := StringGrid1.RowCount + 1;

    end;

  finally

    PersonalList.Free;

  end;

end;