![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi XE
文章平均质量分 77
jn_child
这个作者很懒,什么都没留下…
展开
-
Delphi XE 的字符串理解
移动字符串或字符数组 var Count: Integer; Buf1, Buf2: array[0..255] of Char; begin // 现有代码 - 不正确的,因为该字符串=UnicodeString Count := Length(Buf1); Move(Buf1, Buf2, Count); // 正确的Unicode Count := SizeOf(Buf1); // Count原创 2011-02-25 21:53:00 · 2311 阅读 · 0 评论 -
Delphi XE 的一些新函数
MultiByteToWideChar procedure TWideCharStrList.AddString(const S: string); var Size, D: Integer; begin Size := SizeOf(S); D := (Size + 1) * SizeOf(WideChar); FList[FUsed] := AllocMem(D); MultiByteToWideChar(0, 0, PChar(S), Size,原创 2011-02-25 22:11:00 · 2622 阅读 · 0 评论 -
Delphi XE 的一些新类
TCharacter类 完全由私人类静态函数组成。开发人员并不需要实例TCharacter,相反,最好只调用它的静态方法。这个类包括: 字符转换为大写或小写,确定什么样的类型属,也就是说,这个数字是字母,标点符号,或别的东西。 TCharacter使用由Unicode协会规定的标准。 下面的代码: usesCharacter;beginif MyChar in [‘a’...’z’, ‘A’...’Z’] thenbegin ...end;end;可以很容易地被替换如下:原创 2011-02-25 22:22:00 · 1565 阅读 · 0 评论 -
Delphi 音量调节源码
<br />unit funVolume;interfaceuses MMSystem, Dialogs;Type TDeviceName = (Master, Microphone, WaveOut, Synth);function GetVolume(DN:TDeviceName) : Word ;procedure SetVolume(DN:TDeviceName; Value:Word);function GetVolumeMute(DN:TDeviceName) : Boo转载 2011-03-01 08:45:00 · 1036 阅读 · 0 评论 -
XE 自带的 MD5 单元 MessageDigest_5.pas
位于 source/Win32/soap/wsdlimporter 目录下面例子:uses Types, MessageDigest_5;procedure TForm1.Button1Click(Sender: TObject);var MD5: IMD5;begin MD5 := GetMD5; MD5.Init; MD5.Update(TByteDynArray(RawByteString(Edit1.Text)), Length(Edit1.Text));原创 2011-03-18 16:28:00 · 2456 阅读 · 0 评论