- 博客(5)
- 收藏
- 关注
原创 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 2535
转载 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 1054
原创 Delphi XE 的一些新类
TCharacter类 完全由私人类静态函数组成。开发人员并不需要实例TCharacter,相反,最好只调用它的静态方法。这个类包括: 字符转换为大写或小写,确定什么样的类型属,也就是说,这个数字是字母,标点符号,或别的东西。 TCharacter使用由Unicode协会规定的标准。 下面的代码: usesCharacter;beginif MyChar in [‘a’...’z’, ‘A’...’Z’] thenbegin ...end;end;可以很容易地被替换如下:
2011-02-25 22:22:00 1583
原创 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 2651
原创 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 2333
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人