首页 > TAG信息列表 > IntToStr
Delphi中Json之superobject
superobject版本为1.2 开发环境D7 太容易忘记了，做个笔记 //Json的数组添加和赋值 1 var 2 Ijson,Ijson_01:ISuperObject; 3 s:string; 4 i:Integer; 5 begin 6 Ijson:=superobject.SO('{}'); 7 Ijson.S['Set01']:='0000'; 8 Ijson.S['Set0Delphi两个取字串长度的函数strlen,length
相关资料： http://www.delphitop.com/html/zifuchuan/1242.html 【strlen】PChar 串专用函数：串长度procedure TForm1.BitBtn1Click(Sender: TObject); var s: Widestring; begin s := '桂枝香在故国晚秋'; ShowMessage(IntToStr(Length(String(s))));//结果不是8而是16 end;━━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判断一个数组的长度用 Length 还是 SizeOf ?
判断一个数组的长度用 Length 还是 SizeOf ? 最近发现一些代码, 甚至有一些专家代码, 在遍历数组时所用的数组长度竟然是 SizeOf(arr); 这不合适! 如果是一维数组、且元素大小是一个字节, 这样用看不出错误, 譬如:var arr1: array[0..9] of Char; arr2: array[0..9] of枚举
枚举 //定义 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动态数组的使用
动态数组的使用 //例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); //分配空间后和静态数组一样使用 StrArr := nil;三维力控，关系数据库，执行sql语句，引用变量
在力控脚本中引用变量, 必须把变量转换成字符串形式； 格式如下： 1. 数值型变量： 字段名 = "+IntToStr(变量名, 10)+"; //// 10表示变量为十进制数 2. 字符型变量： 字段名 = ' "+变量名+" '; 例如：向mysql数据库表名为data20210426的表中插入数据 Time.PV, DataLong.PV, C实例三 显示乘法口诀表
procedure TForm1.BitBtn1Click(Sender: TObject); var i,j:Integer; begin for i := 1 to 9 do for j := 1 to 9 do StringGrid1.Cells[i,j]:=IntToStr(i*j); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Close; end; procedure TForm1