www.pudn.com > oicqspysrc.zip > FriendInfo.pas

unit FriendInfo; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  Grids, StdCtrls; 
 
type 
  TFriendInfoDlg = class(TForm) 
    InfoGrid: TStringGrid; 
    Button1: TButton; 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    class procedure Execute; 
  end; 
implementation 
uses info; 
{$R *.DFM} 
 
{ TFriendInfoDlg } 
 
class procedure TFriendInfoDlg.Execute; 
var 
i:Integer; 
begin 
with TFriendInfoDlg.Create(Application) do 
    begin 
    InfoGrid.RowCount:=nInfoCnt; 
    for i:=0 to nInfoCnt-1 do 
        begin 
        InfoGrid.Cells[0,i]:=IntToStr(i); 
        InfoGrid.Cells[1,i]:= 
        end; 
    Free; 
    end; 
end; 
 
end.