unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var                           //定义整型变量和字符串变量
  m,n:Integer;
  str:String;
begin
  Memo1.Lines.Clear;          //删除Memo1中的所有数据
  for m:=1 to 100 do
    begin
      n:=m*m;
      str:=Format('  %4d       %8d',[m,n]);//调用格式化函数
      if ((n mod 10)=m) then
        Memo1.Lines.Add(str)   //找到一位同构数就添加到Memo1中
      else if ((n mod 100)=m) then
        Memo1.Lines.Add(str)   //找到两位同构数也添加到Memo1中 
    end;
end;

end.