zoukankan      html  css  js  c++  java
  • delphi 中 as 和 is 的使用

    as是把某个类型对象转换成所需要的类型。

    is是判断某对象是否是某类型。

     
    unit Unit1;

    interface

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

    type
    TForm1 = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        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 i:Integer;
    begin
       for i:= 0 to ControlCount - 1 do
       begin
          if Controls[i] is TEdit then
            if (Controls[i] as TEdit).Text <> '' then
            begin
                (Controls[i] as TEdit).Text := 'haha';
            end;
       end;
    end;

    end.

    窗体控件

    Tedit 1、Tedit 2、Tedit 3、Tbutton

  • 相关阅读:
    读写csv文件
    安卓跳转
    求时间精确到秒的数
    航空公司客户价值分析
    利用LM神经网络和决策树去分类
    拉格朗日插值法
    ID3
    K最近邻
    贝叶斯分类
    FilterDispatcher已被标注为过时解决办法
  • 原文地址:https://www.cnblogs.com/760044827qq/p/3790666.html
Copyright © 2011-2022 走看看