全是疑问 自己想出来的但是弄不明白 帮帮？？吧！

Question

1。两个edit   一个用来输入数字 一个用来显示它的平方根  用其他方法也可以（例如不用edit）
2。一个button1  若干个label  单击buton1   显示label1的caption
再次单击buton1  显示label2的显示内容 
再次单击buton1  显示label的显示内容 最好给我代码  

Answer 1

2:var i: integer;
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  inc(i);
  if i > 3 then i := 1;
  s := TLabel(FindComponent('Label' + IntToStr(i))).Caption;
  showMessage(s);
end;

Answer 2

(回到我是菜鸟的时光)
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BtnSQRT: TButton;
    Label1: TLabel;
    Label2: TLabel;
    BtnLabel: TButton;
    procedure BtnSQRTClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnLabelClick(Sender: TObject);
  private
    { Private declarations }
    Flag: boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BtnSQRTClick(Sender: TObject);
var
  f: real;
begin
  f := StrToFloat(Trim(Edit1.Text));
  Edit2.Text := Format('%f', [Sqrt(f)]);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Flag := true;
end;procedure TForm1.BtnLabelClick(Sender: TObject);
begin
  if Flag then
    ShowMessage(Label1.Caption)
  else
    ShowMessage(Label2.Caption);
  Flag := not Flag;
end;end.

Answer 3

1，找开方的数学函数，然后转换成字符串
2，showmessage楼主找本术看看吧

Answer 4

1,
 uses Math;procedure TForm1.Button2Click(Sender: TObject);
var I: integer;
    J: Extended;
begin
 if TryStrToInt(Edit1.Text, i) then
 begin
   J := Power(i, 2);
   Edit2.Text := FloatToStr(J);
 end;
end;

Answer 5

aiirii  谢谢  还需要第一个的

Answer 6

1
ButtonClick
  Edit1.text := floattostr(sqrt(strtofloat(edit2.text)));2
ButtonClick
if Button1.tag =0 then
   button1.tag := 1
else 
   button1.tag := 0;
if button1.tag = 0 then showmessage(label1.caption)
else showmessage(label2.caption)

Answer 7

J := Power(i, 2);
改為J := Sqrt(i);