2022-12-30 49 0

搜索字符串://--------------------------------------------------------------------------------var str: string; n: Integer;begin str := A1 A2 A3 A4; n := str.IndexOf(A); // 0 n := str.LastIndexOf(A); // 9 n := str.IndexOf

2022-12-30 132 0

是否包含:if pos(a,abcdef)>0 thenbegin//包含endeslebegin//不包含end;//--------------------------------------------------------------------------------var str: string; b: Boolean;begin str := Delphi XE4; b := str.Contains(X

2022-12-30 54 0

适宽处理:function PadLeft(TotalWidth: Integer): string;function PadLeft(TotalWidth: Integer; PaddingChar: Char): string;function PadRight(TotalWidth: Integer): string;function PadRight(TotalWidth: Integer; PaddingChar: Char): string;//-----------------------

2022-12-30 24 0

添加或解除引号:function QuotedString: string;function QuotedString(const QuoteChar: Char): string;function DeQuotedString: string;function DeQuotedString(const QuoteChar: Char): string;//--------------------------------------------------------------------------

2022-12-30 105 0

program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils, System.Generics.Collections;var{ Dictionary: TDictionary<LongWord, string>; aPair: TPair<LongWord, string>;} Dictionary: TDictionary<string, LongWord>; aPair: TPai

2022-12-30 91 0

function MoneyConvert2(mmje:real): WideString;const cNum: WideString = 零一二三四五六七八九-万仟佰拾亿仟佰拾万仟佰拾元角分; cCha: array[0..1, 0..11] of string = ((零仟,零佰,零拾,零零零,零零, 零亿,&

2022-12-30 83 0

家64位如何使用Delphi检查是否在64位Windows环境中运行？标签：64位，Delphi IAmIn64Bits，IsWow64Process，syswow64如何使用Delphi检查是否在64位Windows环境中运行？ 2017年5月24日 没意见 64位，代码，代码库，delphiWin32 API IsWow64Process确定运行的进程（进程处理程序）是否在WOW64上，如果进程是32位且OS是64位，则仅将其设置为TRUE。在64位Windows上，WOW64（Windows

2022-12-30 55 0

program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils; varstr1:string =a1232;str2:string =a1232;begin try if str1.Compare(str1, str2)=0 then begin write(相同); end else begin write(不相同); en