没用过的函数 GetHomePath - 获取用户程序数据目录
摘要：uses System.IOUtils;procedure TForm1.FormCreate(Sender: TObject);var S: string;begin { 三种方法结果一致: C:\Users\wy\AppData\Roaming } S := GetHomePath; // SysUtils, 能跨平台且简单, 在 Windows 下使用 SHGetFolderPath 完成 S := TPath.GetHomePath; // System.IOUtils S := GetEnviron...
阅读全文
posted @
2013-06-16 23:12
万一
阅读(2831)
推荐(0) 编辑
测试 System.SysUtils.TStringHelper
摘要：大小写转换:function ToLower: string;function ToLower(LocaleID: TLocaleID): string;function ToLowerInvariant: string;function ToUpper: string;function ToUpper(LocaleID: TLocaleID): string;function ToUpperInvariant: string;class function LowerCase(const S: string): string;class function LowerCase(const S:
阅读全文
posted @
2013-06-14 22:48
万一
阅读(7713)
推荐(2) 编辑
System.SysUtils.TMarshaller 与 System.TMarshal
摘要：TMarshaller(结构) 基于 TMarshal(是有一大堆的 class 方法组成的类) 实现.TMarshaller 可以对缓存区进行自动(自动释放)安全地管理, TMarshal 也有前者没有的重要方法, 譬如: TMarshal.Copy() 方法.有了它们, 以后关于内存缓冲区, 字符串转码等操作就更方便了.{测试}procedure TForm1.FormCreate(Sender: TObject);var M: TMarshaller; pw: TPtrWrapper; str: string; bs: TBytes;begin bs := BytesOf('万.
阅读全文
posted @
2013-06-10 18:27
万一
阅读(2470)
推荐(0) 编辑
系统默认语言与系统支持的语言列表
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Bu...
阅读全文
posted @
2009-11-02 11:56
万一
阅读(4005)
推荐(0) 编辑
时间与相关类型(3): TFileTime、TSystemTime 及 DOS 时间
摘要：//相关函数:SysUtils.DateTimeToFileDate();SysUtils.FileDateToDateTime();SysUtils.DateTimeToSystemTime();SysUtils.SystemTimeToDateTime();Windows.SystemTimeToFileTime();Windows.FileTimeToSystemTime();Windows...
阅读全文
posted @
2009-05-22 22:54
万一
阅读(5323)
推荐(0) 编辑
时间与相关类型(2) - TDate、TTime、TTimeStamp
摘要：//相关函数:SysUtils.DateTimeToTimeStamp();SysUtils.TimeStampToDateTime();SysUtils.TimeStampToMSecs();SysUtils.MSecsToTimeStamp();Windows.GetTickCount;Windows.GetCurrentTime; {GetCurrentTime 和 GetTickCount...
阅读全文
posted @
2009-05-22 18:14
万一
阅读(5625)
推荐(0) 编辑
时间与字符串
摘要：SysUtils.StrToDate();SysUtils.StrToDateDef();SysUtils.TryStrToDate();SysUtils.StrToTime();SysUtils.StrToTimeDef();SysUtils.TryStrToTime();SysUtils.StrToDateTime();SysUtils.StrToDateTimeDef();SysUtils....
阅读全文
posted @
2009-05-21 23:18
万一
阅读(4290)
推荐(0) 编辑
Now、Date、Time、CurrentYear - 当前日期
摘要：SysUtils.Now;SysUtils.Date;SysUtils.Time;SysUtils.CurrentYear;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) ...
阅读全文
posted @
2009-05-21 17:50
万一
阅读(4226)
推荐(0) 编辑
SysUtils-Function
摘要：SysUtils.AbortSysUtils.AddExitProcSysUtils.AddTerminateProcSysUtils.AdjustLineBreaksSysUtils.AnsiCompareFileNameSysUtils.AnsiCompareStrSysUtils.AnsiCompareTextSysUtils.AnsiDequotedStrSysUtils.AnsiExtr...
阅读全文
SysErrorMessage 函数和系统错误信息表
摘要：在看 API 文档时, 我们经常见到 GetLastError; 它可以返回操作后系统给的提示. 但 GetLastError 返回的只是一个信息代码, 如何返回对应的具体信息呢? FormatMessage 可以, 但这个函数太复杂了; 可以用 SysErrorMessage 代替它. 举例: var err: string; begin err := SysErrorMessa...
阅读全文
posted @
2008-11-07 12:27
万一
阅读(13890)
推荐(0) 编辑
学习官方示例 - SysUtils.EncodeDate、EncodeTime、StrToDate、StrToTime、StrToDateTime
摘要：代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1...
阅读全文
posted @
2008-09-11 15:17
万一
阅读(10732)
推荐(0) 编辑
学习官方示例 - SysUtils.DecodeDate、DecodeTime
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button...
阅读全文
posted @
2008-09-11 14:31
万一
阅读(5778)
推荐(0) 编辑
一个没有了解透的简单函数: BoolToStr
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton...
阅读全文
posted @
2008-05-15 12:27
万一
阅读(7801)
推荐(2) 编辑
SysUtils.StrByteType - 获取字节类型
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate...
阅读全文
posted @
2008-05-13 14:07
万一
阅读(2621)
推荐(0) 编辑
SysUtils.StrAlloc、SysUtils.StrBufSize
摘要：StrAlloc : 给 PChar 指针分配空间, 并填充 #0; StrBufSize : PChar 缓冲区大小. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 =...
阅读全文
posted @
2008-05-13 13:43
万一
阅读(2816)
推荐(0) 编辑
SysUtils 中其他 PChar 函数: StrPas、StrNew、StrDispose、StrNextChar、StrFmt、StrLFmt、StrCharLength
摘要：//StrPas: 转换 PChar 为 string; 现在可以直接赋值, 很少用了. var p: PChar; s: string; begin p := 'Delphi'; s := StrPas(p); ShowMessage(s); {Delphi} end; //StrNew、StrDispose: 建立与销毁 PChar. var p: PChar; ...
阅读全文
posted @
2008-05-13 13:13
万一
阅读(8550)
推荐(0) 编辑
SysUtils.StrMove
摘要：其实这也是个 Copy 函数, 和 Move 没有关系. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreat...
阅读全文
posted @
2008-05-13 09:59
万一
阅读(2458)
推荐(0) 编辑
SysUtils.StrEnd、SysUtils.StrLen
摘要：StrEnd 获取 PChar 串未指针; StrLen 获取 PChar 串长度. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)...
阅读全文
posted @
2008-05-12 23:05
万一
阅读(2299)
推荐(0) 编辑
SysUtils.StrScan、SysUtils.StrRScan、SysUtils.StrPos
摘要：StrScan : 返回一个字符在一个 PChar 串中第一次出现的位置指针; StrRScan : 返回一个字符在一个 PChar 串中最后一次出现的位置指针; StrPos : 返回一个 PChar 串在另一个 PChar 串中第一次出现的位置指针. unit Unit1; interface uses Windows, Messages, SysUtils, Varia...
阅读全文
posted @
2008-05-12 22:52
万一
阅读(3365)
推荐(0) 编辑
SysUtils.StrLCat
摘要：StrLCat 与 StrCat 类似, StrLCat 多出的参数好像是限制结果的长度. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TFo...
阅读全文
posted @
2008-05-12 22:40
万一
阅读(1880)
推荐(0) 编辑
管理
