在delphi中用for语句输出九九乘法表

现写的， 你复制吧

unit Unit11;

interface

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

type
TForm11 = class(TForm)
procedure FormCreate(Sender: TObject);
private
function CreateLabel(LabelText: string): TLabel; //创建显示的Label
public
{ Public declarations }
end;

var
Form11: TForm11;

implementation

{$R *.dfm}

function TForm11.CreateLabel(LabelText: string): TLabel;
var
I,J: Integer;
Lbl: Tlabel;
begin
Lbl := TLabel.Create(Self);
Lbl.Caption := LabelText;
Result := Lbl;
end;

procedure TForm11.FormCreate(Sender: TObject);
var
I,J: Integer;
Lbl: Tlabel;
begin
Lbl := TLabel.Create(Self);
for I := 1 to 9 do
begin
for J := 1 to I do
begin
Lbl := CreateLabel(IntToStr(J) + '*&