delphi 根据字符串来创建对象

Delphi根据字符串实例化对象

我们可以通过ClassRegistry单元的TClassRegistry类很轻松的根据字符串创建出对象. 下面是该类几个主要函数的说明: // 获取TClassRegistry自身的单例引用class function GetClassRegistry: TClassRegistry;// 注册需要动态创建的类procedure RegisterClass(ClassName: UnicodeString; ObjectClass: TClass); overload;// 判断给定的类名是否注

简单使用JSON,通过JSON 字符串来创建对象(二)

把 JSON 文本转换为 JavaScript 对象 JSON 最常见的用法之一,是从 web 服务器上读取 JSON 数据(作为文件或作为 HttpRequest),将 JSON 数据转换为 JavaScript 对象,然后在网页中使用该数据. 为了更简单地为您讲解,我们使用字符串作为输入进行演示(而不是文件) json.html <html> <body> <h2> 通过 JSON 字符串来创建对象 </h3> <p> First Name:

Delphi常用字符串函数

Delphi常用字符串函数一.字符转换函数1.ord(input[i])返回字符表达式 input 左端起第 I 字符的ASCII 码值.2.CHAR()将ASCII 码转换为字符.如果没有输入0 ~ 255 之间的ASCII 码值,CHAR() 返回NULL .3.LOWER()和UPPER()LOWER()将字符串全部转为小写:UPPER()将字符串全部转为大写.4.STR()把数值型数据转换为字符型数据.STR (<float_expression>[,length[, <d

Delphi的字符串、PChar和字符数组之间的转换

参考:http://my.oschina.net/kavensu/blog/193719 以下的各种方法都是我在Delphi 6的环境下测试成功的,可能根据你的开发环境.不同的上下文语境……有一些可能会出现问题,以自己在使用的时候进行具体的测试为准 Char数组和String的相互转换的另一种方法和注意事项请看下一篇博客同时建议结合以下的博客一起理解: <Delphi字符串的基本操作>和<Delphi中的各种字符串.String.PChar.Char数组> 0.前提条件 var

delphi 中字符串与16进制、10进制转换函数

//字符串转成16进制代码function strToHexStr(str:string):string;varc:char;ss:string;i:integer;beginwhile str<>'' do begin c:=str[1]; ss:=ss+format('%0x',[ord(c)]); delete(str,1,1);end;strtohexStr:= ss;end; //16进制字符串转换成字符串function HexStrToStr(const S

delphi 拆分字符串

最近在使用Delphi开发一种应用系统的集成开发环境.其中需要实现一个字符串拆分功能,方法基本原型应该是:procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串,把拆分的结果放入stringList中.例如:src:='abc|def|ghi'; ch='|'的时候,返回的stringList应该是{abc, def, ghi}.开始的时候,我是使用获取ch在src中

Delphi 通过字符串实例化类

通过字符串创建窗体类对象 1.需要在程序初始化的时候将类注册,注册到对象 RegGroups:(TRegGroups)中,以便查找. 注册类使用的函数:RegisterClass ,窗体初始化操作放在initialization 中. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TfrmReg = class(

雨田家园 delphi 拆分字符串

最近在使用Delphi开发一种应用系统的集成开发环境.其中需要实现一个字符串拆分功能,方法基本原型应该是:procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串,把拆分的结果放入stringList中.例如:src:='abc|def|ghi'; ch='|'的时候,返回的stringList应该是{abc, def, ghi}.开始的时候,我是使用获取ch在src中

Delphi中字符串补齐方法

函数功能:当Str不满Len长度时,在Str前自动填充PadStr以补足长度,例子如下: Str:原字符串 Len:补多长 PadStr:用什么补齐,比如‘0’ function PadString(Str: string; Len: Integer; PadStr: Char): string; begin Result:= StringOfChar(PadStr, Len - Length(Str)) + Str; end;

Delphi判断字符串中是否包含汉字，并返回汉字位置

//1,函数代码{判断字符串是否包含汉字// judgeStr:要判断的字符串//posInt:第一个汉字位置}function TForm2.IsHaveChinese(judgeStr: string; var posInt: integer): boolean;var p: PWideChar; // 要判断的字符 count: integer; // 包含汉字位置 isHave: boolean; // 是否包含汉字返回值begin isHave := false; // 是否

delphi十六进制字符串hex转byte数组互相转换bmp图片

procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then png := TPngObject.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) ); HexToBin(PChar(str), stream.Memory, stream.Size);

Delphi判断字符串是否是数字、字母、大小写字母

function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=true; //设置返回值为是(真) Vaule:=trim(Vaule); //去空格 to length(Vaule) do //准备循环 begin 中的任一个 begin result:=false; //返回值不是(假) exit; //退出函数 end; end; end; function IsUpperC

Delphi 把字符串读到流中的操作。

var FReQuestM := TMemoryStream FReQuestM.Write(PChar(FcVoucherXML)^, Length(FcVoucherXML)); 这样就读到流中了.

delphi 删除字符串的回车、空格、Tab键

myStr:=StringReplace(myStr, chr(13)+chr(10), '', [rfReplaceAll]);//删除回车 myStr:=StringReplace(myStr, ' ', '', [rfReplaceAll]);//删除空格 myStr:=StringReplace(myStr, chr(9), '', [rfReplaceAll]);//删除Tab http://blog.sina.com.cn/s/blog_9e2e840501018

delphi 在字符串中输出单引号'

在程序代码里,用单引号引起来的两个单引号,经过编译后是一个单引号.'''ok''':编译后表示'ok';

Delphi分割字符串函数Split源码

function TStringHelper.Split(const Separator: array of string; Count: Integer; Options: TStringSplitOptions): TArray<string>; var P: Integer; Total: Integer; Index: Integer; S, ToSplit: string; begin Total := ; ToSplit := Self; P := ToSplit.IndexOfA

delphi将字符串转换成stringlist

function StrToList(const sString, Token: string): TStringList;var sTmp: string; iPos: Integer; Toklen: Integer;begin Toklen := Length(Token); Result := TStringList.Create; sTmp := sString; iPos := Pos(Token, sTmp); while iPos <> 0 do begin Result.Ad

Delphi与字符编码（实战篇）（MultiByteToWideChar会返回转换后的宽字符串长度）

本文目标: 了解Delphi的字符串类型字符编码的检测与转换简体繁体转换 0. 导言看完“.Net与字符编码(理论篇)”,我们明白了字符是自然语言中的最小单位,在存储和传输的过程中可以使用三种编码方法:ASCII.DBCS以及Unicode.常见的DBCS编码有GB2312.GBK和BIG5,而UTF-8.UTF-16和UTF-32则是最常用的Unicode编码类型. 1. 字符串类型在Delphi中有两种字符串类型:AnsiString和WideString.AnsiString被称为

字符串转化成十六进制输出StrToHex（Delphi版、C#版）

//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版字符串事先须经过AnsiToUtf8()转码才能跟C#版得到的十六进制字符串显示结果一致. Delphi版: function StrToHex(AStr: string): string; var i : Integer; ch:char; begin Result:=''; to length(AStr) do begin ch:=AStr[i]; Result:=Result+

Delphi 中的字符串（还解释了shortstring）good

一.Delphi 2009 之前的字符串(不支持 Unicode): Delphi 2009 之前的字符串分为 3 种:ShortString.AnsiString.WideString. [ShortString] ShortString 是一种比较古老的 Pascal 字符串格式,它最多只能容纳 255 个字节的字符.当我们声明一个 ShortString 类型的变量时,Delphi 会自动申请 256 个字节的内存空间给该变量,其中第一个字节用来存放字符串的长度,后面的 255个字节用来存

delphi 根据字符串来创建对象

热门专题