Delphi基础语法

Delphi基础语法

procedure TfrmMain.btnTestClick(Sender: TObject);
var
  name: String;
  age: Integer;
  i : Integer;
begin
  try
    name := 'jzh';
    age := 22;
    mmLine.Text := name + IntToStr(age);

    for i := 0 to 5 do
    begin
      mmLine.Lines.Add(IntToStr(i));
    end;

    if name = 'jzh' then
    begin
      mmLine.Lines.Add('hi, ' + name);
    end;


  finally

  end;
end;

 

发表回复

您的电子邮箱地址不会被公开。