随笔分类 -  Delphi-String

摘要:[delphi] view plain copy var s: AnsiString; begin s := '1234567890'; showmessage(s); end; [delphi] view plain copy var s: AnsiString; begin s := '1234 阅读全文
posted @ 2016-03-14 21:47 findumars 阅读(1845) 评论(1) 推荐(0)
摘要:type THzSpell = class(TComponent) protected FHzText: String; FSpell: String; FSpellH: String; procedure SetHzText(const Value: String); function GetHz 阅读全文
posted @ 2016-03-05 00:06 findumars 阅读(199) 评论(0) 推荐(0)
摘要:Delphi有三种类型的字符: AnsiChar这是标准的1字节的ANSI字符,程序员都对它比较熟悉。 WideChar这是2字节的Unicode字符。 Char在目前相当于AnsiChar,但在Delphi 2010 以后版本中相当于WideChar. 记住因为一个字符在长度上并不表示一个字节,所 阅读全文
posted @ 2016-03-04 23:59 findumars 阅读(2393) 评论(0) 推荐(0)
摘要:关于Delphi中的字符串的浅析 只是浅浅的解析下,让大家可以快速的理解字符串。 其中的所有代码均在Delphi7下测试通过。 Delphi 4,5,6,7中有字符串类型包括了: 短字符串(Short String) 长字符串(Long String) 宽字符串(Wide String) 零结尾字符 阅读全文
posted @ 2016-03-04 23:29 findumars 阅读(546) 评论(0) 推荐(1)
摘要:学了好多不了解的知识: procedure TForm1.Button1Click(Sender: TObject); var s1 : String; s2 : String[255]; begin s1:='ç1很好'; ShowMessage(s1); // 这里显示正常 s2:=s1; Sh 阅读全文
posted @ 2016-03-04 23:05 findumars 阅读(1205) 评论(0) 推荐(0)
摘要://////////////////////////////////////////////////////////////////////////////////功能: STRING 的内容流化到 OLEVARIANT 中//参数:///////////////////////////////// 阅读全文
posted @ 2016-03-02 23:23 findumars 阅读(847) 评论(0) 推荐(0)
摘要:string,DELPHI2009以前的版本string=ansistring,一个字符占一个字节,DELPHI2009及以上版本string=unicodestring,一个字符占二个字节。 char,DELPHI2009以前的版本char=ansichar,一个字节,DELPHI2009及以上版 阅读全文
posted @ 2016-03-02 23:17 findumars 阅读(518) 评论(0) 推荐(0)
摘要:Navigation: 数据类型相关 > Delphi 的字符及字符串 > [3] - String 中的秘密 //String 的指针地址及实际的内存地址 var str: string; pstr: PString; pc: PChar; begin {在没有给 str 赋值以前, 既然声明了, 阅读全文
posted @ 2016-02-25 18:54 findumars 阅读(466) 评论(0) 推荐(0)
摘要:function GetWindowsLanguage: string; var WinLanguage: array [0..50] of char; begin VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50); Result := StrPas(WinLanguage); e... 阅读全文
posted @ 2015-12-20 22:00 findumars 阅读(932) 评论(0) 推荐(0)
摘要:已经好几次了,没有这个函数还是感觉很不方便,所以自己写了一个:function LastPos(strFind :string; ch: Char): integer;var i, n: integer;begin Result := -1; if strFind='' then ... 阅读全文
posted @ 2015-12-02 23:34 findumars 阅读(1099) 评论(0) 推荐(0)
摘要:因为Delphi自带的转换函数遇到其无法识别的字符串就返回空,下面函数可解决该问题。function DecodeUtf8Str(const S: UTF8String): WideString;varlenSrc, lenDst: Integer;beginlenSrc := Length(S);... 阅读全文
posted @ 2015-11-26 21:38 findumars 阅读(993) 评论(0) 推荐(0)
摘要:在Delphi编程的那段“古老”的日子里(就是在版本4之前),在程序中使用字符串有两个基本的方法。你可以使用字符串将它们嵌入到源程序中,例如:MessageDlg( 'Leave your stinkin' mitts off that button, fool!',mtError, [mbOK],... 阅读全文
posted @ 2015-10-14 16:54 findumars 阅读(1792) 评论(0) 推荐(0)
摘要:一点闲话: 2009年的时候,写了几篇博客文章,此外也将以前写的一些文章抄到博客上,完了之后发现没啥好写的了?! 晕啊。为什么别人就能坚持不懈地写那么多文章,而我却想不出来写什么呢?平日里,我可是挺喜欢写些代码,来实现一些自己想要的功能,但我发觉,似乎写代码还算好,写文章还真不容易。 最近总算又想出... 阅读全文
posted @ 2015-10-14 16:22 findumars 阅读(1301) 评论(0) 推荐(0)
摘要:汉=BABA(内码)=-A0A0=2626(区位码)字=D7D6(内码)=-A0A0=5554(区位码) 各种编码查询表:http://bm.kdd.cc/ 汉(记住它,以后碰到内存里的数值,就会有敏感性了,会方便测试)utf8 = E6 B1 89unicode = 6C 49 ,在Delphi2 阅读全文
posted @ 2015-05-31 00:49 findumars 阅读(3212) 评论(0) 推荐(0)
摘要:在我最近参与的一场辩论中,有人说Win64 运行时中的字符串运行速度太慢,根本没法用。在我看来,这简直是夸大其词。Win32 运行时库 (RTL) 确实从FastCode项目的工作中受益匪浅,通常这些例程都使用了极其智能的汇编语言。对于所有其他平台,这些例程通常都使用普通的Object Pascal 阅读全文
posted @ 2015-01-06 19:57 findumars 阅读(254) 评论(0) 推荐(0)
摘要:真是膜拜Delphi C++ Builder编译器的作者们,要下多少苦功夫才能解决如此之多的问题,制造出一个神级作品给世人享用。另外以我的编程经验所能想到很麻烦但却是必须的还有两个地方,一个是Format函数,另一个是类型转换。有空看看FreePascal的源码可以略窥一二。其实我也是一个疯狂的政经... 阅读全文
posted @ 2014-02-25 10:23 findumars 阅读(3252) 评论(0) 推荐(0)
摘要:新版的 Delphi 應該不用這麼麻煩, 據說只要直接在 AnsiString, WideString, UTF8String 之間 assign 時就會自動幫你做轉換 (沒用過, 不知道是不是真的這樣就可以).不過... 還在用 Delphi 3/5, 所以... 只好自己來轉:unit util... 阅读全文
posted @ 2013-12-26 18:27 findumars 阅读(20286) 评论(0) 推荐(1)
摘要:String、AnsiString及Tbytes之间的转换一、string转为AnsiString1、直接赋值 (有警告)2、AnsiString()类型强制转换。(无警告) 二、AnsiString 转为string1、直接赋值 (有警告)2、string()类型强制转换。(无警告) 三、stri... 阅读全文
posted @ 2013-09-06 05:26 findumars 阅读(599) 评论(0) 推荐(0)
摘要:Delphi2007的ANSI版代码:{根据机名获取IP,要添加使用单元:WinSock}function ComputerIP(ComputerName:String):String;var phe:pHostEnt; w:TWSAData; ip_address:longint; p:^l... 阅读全文
posted @ 2012-04-14 04:40 findumars 阅读(1853) 评论(0) 推荐(0)