摘要：function Calc(s: string): string;var vScript: Variant;begin vScript := CreateOleObject('ScriptControl'); vScript.Language := 'VBScript'; Result := vScript.Eval(s);end;//调用var s:string;begin s:=C...
阅读全文
摘要：var st: TStrings;begin st := TStringList.Create; st.StrictDelimiter := True;//这个多少人用过？ st.Delimiter := ' '; st.DelimitedText := '0 1 2';//用语言描述就是 [0][空格][1][TAB键][2] ShowMessage(st.Text); st.Fr...
阅读全文
摘要：必须补充说明的是：这个例子是 delphi7 + indy 9.00.10 的，不保证其他版本 delphi/indy 例子能够使用。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, IdTh
阅读全文
摘要：uses comobj, shlobj;function GetShellFolderFromPath(owner: IShellFolder; path: string): IShellFolder;var P: PWideChar; folder: IShellFolder; NewPIDL: PItemIDList; NumChars, Flags, HR: LongWord;be...
阅读全文
摘要：const s = 'hello world';begin ShowMessage(s);end;
阅读全文
浙公网安备 33010602011771号