slj_win的专栏

Random()在Delphi中，有一随机函数，是这样定义的：function Random [ ( Range: Integer) ];其中，参数Range为一整数，该函数返回值也为整数，其范围为：00Random（）用来取得随机数，不过如果多运行几次会发现每次取得的随机数都是一样的。这是因为系统的随机种子没有改变，每次运行都是用同一个随机种子取的数。Ramd

（1）var修饰符添加var  是地址传递，会修改原有的变量var  s: string;begin  S := 'Hello';  ChangeSVar(s);  ShowMessage(S);end;// ChangeSVar 定义procedure TForm1.ChangeSVar(var A: string)

概述：  ^: 指针  @: 取址  #: 十进制符  $: 十六进制符@:取址运算符;var  int:integer;  p:^integer;begin  new(P);  int:=24;  p:=@int;  dispose(P);end;^:指针的引用解析

Delphi调试概述除非你的程序只有几行，否则几乎不可能一次写成，因此调试就非常必要。然而许多初学者不知道如何进行调试，写完程序就运行，发现结果不对再看代码，这样觉得非常吃力。这里，简单介绍一下Delphi所提供的调试功能。1. 语法检查（Syntax Check）Delphi提供了语法检查的功能，这个功能和正常编译很相似，同样也会给出各类错误和警告信息，但是不会生

需要引用strUtilsunit Unit1;interfaceuses  Windows, StrUtils,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Butt

var  s:string;  s:='aa:'+#13#10+'bb';  showmessage(s);

var s1,s2:^string; s3:string;begin new(s1); new(s2); s1^:='MingRiSoft'; s2^:='Kaihongliu'; s1:=s2; s2^:='Welcome You !'; s3:='New Memory'; s2:=@s3; s1^:=s2^; s3:='Is right';

Delphi调用VC动态库的Char指针返回问题VC动态库的Dll接口函数：char* Exec(int iLength, char* cXMLStr);Delphi调用申明：Exec：function(iLength: integer; cXMLStr: pchar): pchar;stdcall;具体调用var  sDllStr: string;  iDll

1、VC to DelphiDelphi源程序：library ExportChartData; uses   SysUtils,   Classes; {$R *.res} const   DLL_VER      : Word = $0001; function GetVer: Word; begin   Result

Delphi以其独特的面向控件的研发方式、强大的数据库功能、快速的编译技术及简单易学的编程特性,使得他自发布之日起即格外引人注目，许多程式员也因此将他作为最佳选择的研发工具。然而，Delphi在科学计算、低端编程等方面的功能不如VC++。VC++功能强大、齐全，不过整个系统比较复杂、庞大，尤其对于初学者来说比较难学，其用户界面的研发远不如Delphi那样方便、快捷。那么，我们能否将两者的好处结合起

关于delphi调用vc编写的dll中参数类型问题delphi调用vc编写的dll，一般是没问题的把， 如果dll中的函数类似 DWORD   WINAPI   NVNET_LogonServer(LPCSTR   lpszServerIP,WORD   wServerPort,LPCSTR   lpszUserName, LPCSTR   lpszPsw,TRANS_SERVER

VC中DLL声名格式：Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess);输出格式为：_ShowMess@8，“8”为函数参数字节数为了避免名称分裂，可采用以下方法解决：1.声明中不加__stdcall，采用VC默认格式__cdecl，但在Delphi中要注明调用格式为c

很简单...假设你的数组变量为 a，并且下标从 0 开始：var a: YourArrayType; p: PInteger;begin ... p := @a[1]; //指向第二个字节 if p^ = $01000080 then // Intel 处理器的整数高位在高地址区，所以要反过来 ...end;原理就是：4个字节是一个整数的空间，直接比较一个整数变量

今天使用blockRead读二进制数据块时发现，delphi中的数组地址和vc++中的数组地址是有区别的。    在vc中使用数组名或数组第一个元素的地址就是数组的首地址；而在delphi中使用@取地址符取数组首地址；如下有：    var A:array[0..2] of integer;则：    @A 或 @A[0] 都可取到数组A的元素首地址。两者是相等的。

Pint:^string;在这里将^放在数据类型之前,说明是声明的字符串指针类型!如果想取出指针引用的值的话,就将^放在声明的类型后就可以了,比如:Pint^想取Pint类型的所引用地址的话,就将@放在之前就可以了,比如:@Pint

任意进制转十进制会吗，参考算法（按权值展开计算）：变量说明：i：循环变量m：转化后的十进制s：R进制（字符串类型）a：权值a:=1;for i:=length(s) downto 1 do begin if s[i] in ['0'..'9'] then m:=m+(ord(s[i])-48)*a else m:=m+(ord

这是一篇非常精彩的文章，无意中在网上发现，比起原来《程序员》发表的开发工具大比拼更专业。可惜不知道作者是谁，如果作者看到或者有谁知道作者，请一定和我联系。（mail:jiangtao@youkuaiyun.com）偶然来找一个文件，却发现这里关于vc++和delphi的讨论很是激烈。看了大家写的一些文章，觉得有些看法正确，有些就很偏颇甚至错误(也许无知？很抱歉我这样说:-)

delete 是删除一个 字符串中的 某部分字符用法是 delete(str,//被删除的字符串               index,//从第几个字符开始删除              count //删除几个              );Delete(S, 2, 2); 就是从S中的第二个开始删除，删除2个字符即2、3.所以结果是145.Delphi

copy举个例子：str := “123456”;str1 := Copy(Str,2,3);结果就是 str1 等于 234。Copy有3个参数，第一个是你要处理的字符串，第二个是你要截取的开始位置，第3个是截取位数。当你的第3个参数大于字符长度，那么效果就是取 开始位置 后的所有字符。str1 := Copy(Str,2,10); 结果就是str1 等于 23456。

有些函数返回一个True或False的布尔量，用户的程序可以根据返回值来决定跳转。下文的例程讲述了函数返回值为Boolean的判断用法：        在窗体中加入一个ColorDialog对象和一个Name属性为ChangeColor的按钮。为按钮的OnClick事件建立事件处理过程如下：　procedure TForm1.ChangeColorClick(Sender: TOb

一、先说delphi7下，spcomm的安装。    安装完了，出现在system下，最后一个空间，蓝红黄； 二、delphi 2010下，控件的安装：先点击file->new->package-delphi 在右侧找到CONTAINS选项 右击出现菜单，选择AD

枚举类型　　Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。  1、枚举类型的定义   格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)2、枚举类型数据特点① 枚举元素只能是标识符；例如，下列类型定义是合法的：　　    type  days=(sun,mon,tue,we

批处理和汇编中倒是都用过goto，delphi这类结构很强的语言N多人不推荐使用goto，对我这样的菜鸟来说无所谓，能用就行。procedure TForm1.Button1Click(Sender: TObject); var   x: Integer;   label n1,n2,n3,4;  //goto的标签可以是标识符, 也可以是0..9999的数字 begin   x :

Exit退出过程或函数abort程序终止执行比如function test():integer;begin abort;//end;function call():integer;begin  test();//这里调用Test,将不会执行SHOWMESSAGE这个对话框  showmessage('abc');end;-----------

read为读入，参数为read(a,b,c……);意为将变量a,b,c……读入（注意：输入的数据一定要与设定一致，否测会出错误）。 readln也是读入，参数相同，但多一个功能，就是在a,b,c……读入完毕以后，再读入一个回车。例如，现有数据1 3 5 7，执行口令为readln(a,b,c); 那么，在读入1 3 5之后，光标折行了，7不能再被利用。 write和writeln的区别与此相

本文的内容取自网络，并重新加以整理，在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。多线程应该是编程工作者的基础技能, 但这个基础我从来没学过，所以仅仅是看上去会一些，明白了2+2的时候，其实我还不知道1+1。开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.先试试这个:procedure TF

请教Delphi调用VC写的dll，有传入和传出参数都是unsigned char*，运行中有问题VC写的dll的定义 extern   "C "_declspec(dllexport)   unsigned   char*   GenAuthenNO(unsigned   char   *MachineNO,   unsigned   char   *AuthenNO) Delphi