摘要： private function Readxxx:Integer;static;public class property XXX:Integer read ReadXXx;Txxx =recordclass procedure test;Static;end 阅读全文

摘要： 1、类型常量是什么？与常量、变量有什么区别？const x=5; //常量{$J+}//允许对变量赋值const y:Integer=5;//类型常量{$J-} Delphi7下@x查看地址会提示：Variable required @y则正常浪费好多时间，没测试完全，下面全是猜的，x做为资源编译进... 阅读全文

摘要： using System;using System.Diagnostics;using System.Runtime.InteropServices;using System.Text; namespace Text{ public class Program { [Dll... 阅读全文

摘要： procedure TForm3.FormCreate(Sender: TObject);type AnsiStringForPage = type AnsiString(950);//代码页var AnsiStr: AnsiStringForPage; i: Integer; functi... 阅读全文

摘要： 今天群里有人问函数使用问题，我就自己测试一下，顺便学习一下。uses math;procedure TForm2.Button1Click(Sender: TObject);type TTArrayByte= array of Byte;var FSource: PAnsiChar; FArr... 阅读全文

摘要： function _PCharLen(P: _PAnsiChr): Longint;{$IFNDEF LEGACY_PCHARLEN}begin Result := 0; if P nil then while P[Result] #0 do Inc(Result);end;喜欢理由：简洁如果是... 阅读全文

摘要： unit Unit1;{$DEFINE USESGUIDHELP}interfaceimplementation{$IFDEF USESGUIDHELP}uses System.SysUtils;{$ENDIF}procedure test;var a:TGUID;//System单元begin ... 阅读全文

摘要： unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V... 阅读全文

摘要： procedure TForm2.Button1Click(Sender: TObject);var pDateTime:TDateTime;begin FormatSettings.DateSeparator:='-'; //System.SysUtils; //System.SysUtils.F... 阅读全文

摘要： uses System.TypInfo; // Sync with compiler internals TTypeKind = (tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat, tkString, tkSet, tkClass, tkMe... 阅读全文