摘要: 大小写转换: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 万一 阅读(7643) 评论(4) 推荐(2) 编辑
摘要: procedure TForm1.FormCreate(Sender: TObject);var str: string; n1, n2, n3: Integer;begin str := 'ABC'; n1 := Low(string); // 1 n2 := Low(str); // 1 n3 := High(str); // 3// ShowMessageFmt('%d, %d, %d', [n1, n2, n3]);end; 阅读全文
posted @ 2013-06-14 22:09 万一 阅读(2415) 评论(0) 推荐(0) 编辑