易截截图软件、单文件、免安装、纯绿色、仅160KB

DELPHI参数几个概念上的区别 收藏

DELPHI参数几个概念上的区别 收藏
 引用参数:
引用参数用var关键字标示
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;在这种情况下,参数既把一个值传递给过程,又把新值返回给调用过程的代码。当你执行完以下代码时:
var
  X: Integer;
begin
  X := 10;
  DoubleTheValue (X);x变量的值变成了20,因为过程通过引用访问了X的原始存储单元,由此改变了X的初始值 在C++中, 引用用&表示
值得注意的是:
Delphi 3增加了一种新的参数:out。out参数没有初始值,只是用来返回一个值。out参数应只用于COM过程和函数,一般情况下最好使用更有效的var参数。除了没有初始值这一点之外,out参数与var参数相同。
常量参数
和C++一样,用CONST关键字表示
function DoubleTheValue (const Value: Integer): Integer
编译器会选用一种与引用参数相似的方法编译常参(C++术语中的常量引用),但是从表面上看常参又与值参相似,因为常参初始值不受例程的影响。
开放数组参数
与C语言不同,Pascal 函数及过程的参数个数是预定的。如果参数个数预先没有确定,则需要通过开放数组来实现参数传递。
一个开放数组参数就是一个固定类型开放数组的元素。 也就是说,参数类型已定义,但是数组中的元素个数是未知数。
function Sum (const A: array of Integer): Integer;类型变化的开放数组参数
除了类型固定的开放数组外,Delphi 还允许定义类型变化的甚至无类型的开放数组。这种特殊类型的数组元素可随意变化,能很方便地用作传递参数。
技术上,array of const 类型的数组就能实现把不同类型、不同个数元素组成的数组一下子传递给例程
function Format (const Format: string; const Args: array of const): string;N := 20;
S := 'Total:';
Label1.Caption := Format ('Total: %d', [N]);
Label2.Caption := Format ('Int: %d, Float: %f', [N, 12.4]);
Label3.Caption := Format ('%s %d', [S, N * 2]);
但我们往往会遇到这样的问题:
在FUN()中传入 var a: array of integer 参数之后
不能在函数里SetLength(a,num);
所以我们把参数设为动态数组类型
type
tarrayofinteger = array of integer;
procedure grow( var data: tarrayofinteger );
begin
setlength( data, length(data) ,   新长度 );
// 动态数组作为参数可以改变数组大小。


相关文档:

delphi 控件安装


由于组件提供的方式不同,所以安装的方法也是不一样的,下面就目前常见的各种形式的组件的安装方法介绍一下。
1、只有一个dcu文件的组件。dcu文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合delphi的哪种版本,如果版本不对,在安装时就会出现错误。也正是因为没有源码,给� ......

Delphi 类与对象内存结构浅析(附件2)

*类的公开属性(代码)
示例:访问类的published属性
说明:vmtFieldTable(Published Field表)指向Published Field表有序排列,只存储当前类的PublishedField表,得到父类的Published Field表需要往上遍历。
注意:只有类型是类或接口的数据成员才可定义为published的访问级别
代码:
type
    TMyO ......

delphi 读取txt文件


1、 放一下memo控件、一个button、opendialog
在button的click事件中
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);  
2、滥简单的事啊
var
   Mytxt : TStringList;
begin
   MyText :=
TStringList('你的文本文件及路径');
 
&nbs ......

DELPHI TListBox (TStrings类)删除空行的方法

    之前做一个程序,用ListBox读入一个文本文件,但文本中有空行,为了删除其中的空行,折腾了好长时间。
    先给出一段代码给大家看
var
  i:Integer;
begin
  ListBox1.Items.LoadfromFile('data.txt');
  for i:=0 to ListBox1.Count - 1 do
  begin
  ......

Delphi使用ini配置文件连接MS SQL数据库

很早做过的一个delphi项目,把里面用到的技术总结一下,主要是针对象我这样的delphi新手,技术上做个积累吧!
假设我们的数据库配置文件ServerInfo.ini内容如下:
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
我们定义一个连接数据库的过 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号