ShowMessage

首页 > TAG信息列表 > ShowMessage

Delphi 新语法：For in语句

据说Delphi 2005开始支持For in语句.并没有深入调查,依然从万一博客学习并整理. 一、遍历 TStrings var List: TStrings; s: string; begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free; end;

普通插槽

父组件 : <template> <div class="app">  <show-message title="哈哈哈"> <button>我是按钮元素</button> </show-message>  <show-messag

非props的属性,那么该属性会添加到子元素的根元素上 , 在子元素想到得到这些属性可以用 $attrs 接收

父组件 : <template>  <show-info name="why" :age="18" :height="1.88" address="广州市" abc="cba" class="active" /

Delphi7 HMAC_SHA256

//使用土拨鼠单元 uses SynCrypto; //有中文要先UTF8Encode var sha256Digest:TSHA256Digest; begin HMAC_SHA256('123',UTF8Encode('中文tag123'),sha256Digest); ShowMessage(SHA256DigestToString(sha256Digest)); //另外一种方法在其他随笔（华为接口签名）提过了调用open

Delphi 中的 IfThen 函数

StrUtils 单元和 Math 单元分别有一个 IfThen 函数（注意参数是数字还是字符串）, 举例: StrUtils 单元和 Math 单元分别有一个 IfThen 函数, 举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std

实例11 break,让循环刹车

break的英文字面意思就是打断，在循环中，用它表示停止本循环。主要，它是停止本循环，比如以下多层循环，如果要打断每一层，在每一层的循环中都要用一个break语句。 while 条件关系 do begin while 条件关系 do begin while 条件关系 do begin ShowMessage('Lo

C++设计模式——12中介者模式

#include<iostream> #include<string> using namespace std; class User { private: string name; public: string getName() { return name; } void setName(string name) {

方法中的数组类型的参数

在方法中，出现数组类型的参数： procedure TForm1.Button2Click(Sender: TObject); type TOneArray = array of Integer; procedure AddArrayItem(var Arr: TOneArray; x: Integer);//var形參要求實參傳地址過來 begin //然後根據地址找到

（6）v-if ；v-else-if ；v-else的实例

v-if ;v-else-if ;v-else通过分数展示分数等级的案例。 <!DOCTYPE html> <html> <body> <div id="app">  <!-- <h2 v-if="score>=90">优秀</h2> <h2 v-else-if="score&

Delphi中String当数组用，多余的空格去除

var s:string;begin SetLength(s,256); GetWindowsDirectory(PChar(s),256); ShowMessage(IntToStr(Length(s))); //Length(s) 256 ShowMessage(IntToStr(StrLen(PChar(s))));//StrLen(PChar(s))10 //SetLength(s,StrLen(PChar(s))); //没有这句，会有一堆的空格 ShowMessag

给 "水桶" 同学解释一下 "流" 类中的 Seek() 方法

给 "水桶" 同学解释一下 "流" 类中的 Seek() 方法问题来源: http://www.cnblogs.com/del/archive/2008/01/01/1022130.html#2103357 TStream 有 Seek() 方法, 它的子类们(TFileStream、TMemoryStream、TBytesStream、TStringStream、TResourceStream、TStreamAdapter、THa

曾经被忽视的两个小功能

曾经被忽视的两个小功能曾经想过, Delphi 要能这样给数组赋值就好了: arr := [...]; VarArrayOf 可不是新东西, 不过之前还没习惯用它.var bs: TBytes; // bs: TArray<Byte> begin // SetLength(bs, 3); bs := VarArrayOf([11, 22, 33]); ShowMessage(IntToStr(bs

RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间

RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间 DateUtils.RecodeDateTime(); DateUtils.RecodeDate(); DateUtils.RecodeTime(); DateUtils.RecodeYear(); DateUtils.RecodeMonth(); DateUtils.RecodeDay(); DateUtils.RecodeHour(); DateUtils.RecodeM

IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond - 增时

IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond - 增时 DateUtils.IncYear(); DateUtils.IncMonth(); DateUtils.IncWeek(); DateUtils.IncDay(); DateUtils.IncHour(); DateUtils.IncMinute(); DateUtils.IncSecond(); DateUtils.Inc

Now、Date、Time、CurrentYear - 当前日期

Now、Date、Time、CurrentYear - 当前日期 SysUtils.Now; SysUtils.Date; SysUtils.Time; SysUtils.CurrentYear; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm)

一句话判断网络是否联通

一句话判断网络是否联通 uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end; posted on 2009-03-08 22:39 万一阅读(8360) 评论(17) 编辑收藏

PChar 类型的又一些用法

PChar 类型的又一些用法 //使用 PChar^ var p: PChar; begin p := PChar('abcd'); ShowMessage(p); {abcd} ShowMessage(p^); {a} p := p + 2; ShowMessage(p^); {c} Dec(p); ShowMessage(p^); {b} ShowMessage(p); {bcd} end; //遍历 PCha

判断一个数组的长度用 Length 还是 SizeOf ?

判断一个数组的长度用 Length 还是 SizeOf ? 最近发现一些代码, 甚至有一些专家代码, 在遍历数组时所用的数组长度竟然是 SizeOf(arr); 这不合适! 如果是一维数组、且元素大小是一个字节, 这样用看不出错误, 譬如:var arr1: array[0..9] of Char; arr2: array[0..9] of

关于动态数组指针操作的两个例子

关于动态数组指针操作的两个例子最近突然感觉 Delphi 的动态数组非常好用, 善用它可以省略很多 GetMem、ReallocMem; 并且它是被自动维护的.动态数组变量 arr 本身就是指针, 不能再用 @arr 获取;但要获取某个元素位置的指针, 应该是 @arr[x]; 但随着数组的再分配, 这个

获取程序所在目录

获取程序所在目录 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(GetCurrentDir + '\');

指针的运算

指针的运算 //指针的运算仅对 PChar 类型 procedure TForm1.Button1Click(Sender: TObject); var p: PChar; begin p := 'China'; Inc(p); p := p + 1; ShowMessage(p); //返回：ina Dec(p); p := p - 1; ShowMessage(p); //返回：China end; poste

枚举

枚举 //定义 type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade); //举例： type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); var C: Colors; begin C := Red; ShowMessage(IntToStr(Ord(C))); //0 C

有序类型的大小及最大、最小值

有序类型的大小及最大、最小值 procedure TForm1.Button1Click(Sender: TObject); var b: Byte; w: Word; i: Integer; c: Cardinal; begin ShowMessage(IntToStr(SizeOf(b))); //Byte大小：1 ShowMessage(IntToStr(High(b))); //Byte最大值: 255 ShowMessa

注册系统级热键

注册系统级热键 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); pr