基本语法

Question

为什么定义的时候还要加上pScheduleTask =^ScheduleTask; 呢 这样有什么好处吗?
pScheduleTask =^ScheduleTask;
  ScheduleTask =record
    ScheduleID : string;
    ScheduleName : string;
    Sender : PTerminalUser;
    Receiver : PTerminalUser;
    TerminalType :Integer;
    SerialPort : string;
    ScriptName : string;
    Script   : string;
  end;

Answer 1

老大：你在学delphi5吗
运行一下看看会出什么结果，呵呵。
为什么Short的数组下限是0呢?想一想Byte和Char的关系我不想多说.2.AnsiString:标准的字符串,以Nil结尾。
Type
  TAnsiString=record
  allocSiz: LongWord;//分配的大小
  ReferencCount:LongWord; //引用次数
  Length:LongWord; //字符串长度
  Data:array[1..(Length+1)] of AnsiChar;
end;
有人要问为什么长度是1..(Length+1)而不是Length呢？
因为后面还要有一位NULL字符，表示结束。可见AnsiString和C\C++的兼容性也是很好的。
 如下代码：
var
k: AnsiString;
p:^LongWord;
begin
k := 'I am a Delphi fan!';
p:=@K[1];
Dec(p,1);
P^:=13; //k.Length被置为13
showmessage(k);
end;
由此我们会知道ANsiString的效率是很高的，他的信息存储于字符串头中。例如我们要取字符串的长度只须读出
TAnsiString.Length的内容即可。而其c\c++的字符串就不行，取字符串的长度要从头读起直到遇到NULL记录下
读过的字符个数就是长度。可是如果字符串很长效率的差异就显示出来了，比如一个很大的文件？
前面讲过动态数组赋值的问题，它并不为动态数组单独开辟一块空间，而是简单的把指针指向所赋的数组。只有被赋值的
数组在改变时才真正分配给他空间。这样做的好处是在赋值的时候会很快。如果被赋值的数组没有改变那就比直接分配空间
快上许多。另外如果被赋值数组发生改变重新分配空间，只是花费和直接分配空间相同的时间而已。
有些人会想那么如下代码:
var
k,j:AnsiString;
begin
k:'123';
j:='456';
k:=j;
end;
k的空间已经分配,既然k的指针指向了j,那么k原来的空间岂不是浪费,造成了内存垃圾?
前面说过AnsiString也是动态数组的一种，符合动态数组生存期自管理。
但实际的情况是:当把一个指针指向一个字符创空间时,他的引用次数位就加1,
当有指针指向从这个字符串离开时引用次数位就减1,所以当引用次数位为0是就意味着没有人使用了
就自动释放这段空间。这就是我们所说的生存期自管理技术。
Type
//实际分配大小对我们来说意义不大，所以这里我们先不取他
PAnsiString=^TAnsiString;
TAnsiString= record
ReferencCount:LongWord; //引用次数
Length:LongWord; //字符串长度
end;
var
k,j: AnsiString;
P:^LongWord;
MyAnsiString:PAnsiString;
begin
k:='I love Delphi!';计数器应该为1，因为刚刚分配内存，只有一个使用者
P:=@K[1];
Dec(P,2);
MyAnsiString:=@(p^);
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
j:=K;//计数器应该加1，因为j的指针指向了他，使用者又多了一个
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
j:='123';//计数器应该减1，因为j的指针指不再指向他，使用者少了一个
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
k:=j;//k的指针指向j的内容所在，那么这片数据的计数器再减去一个，即为0。
//然而因该该内存区域已经被自动释放所以这里再去读数的话就是一些随机数据
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
end;动态数组的回收机制原理相同，现在明白了为什么动态数组再回收时要给他赋成Nil了吧！变体型等生存期自管理的
类型都是用这种机制来实现的.
为什么说字符串是动态数组的一种呢？因为以上方法同样适用于动态数组。我们用动态数组自己实现一个
AnsiString看看行不行呢？
比如：
Type
PAnsiString=^TAnsiString;
TAnsiString= record
ReferencCount:LongWord; //引用次数
Length:LongWord; //字符串长度
end;
var
k,j: array of Integer;
P:^LongWord;
MyAnsiString:PAnsiString;
begin
SetLength(k,10);//计数器应该为1，因为刚刚分配内存，只有一个使用者k
SetLength(j,10);
P:=@K[0];
Dec(P,2);
MyAnsiString:=@(p^);
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
j:=K;//计数器应该加1，因为j的指针指向了他，使用者又多了一个
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
SetLength(j,100);//计数器应该减1，因为j的指针指不再指向他，使用者少了一个
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
SetLength(k,100);//k内存被重新分配，那么这片数据的计数器再减去一个，即为0。
//然而因没有使用者该内存区域已经被自动释放所以这里再去读数的话就是一些随机数据
showmessage('现在计数器：'+Inttostr(MyAnsiString^.ReferencCount));
showmessage('长度为：'+Inttostr(MyAnsiString^.Length));
end;
理论上来说能模拟实现AnsiString的一些功能,通过这些可以看到AnsiString不过是动态数组的一种形式。
3.WideString:宽字符串,由WideChar组成,以Nil结尾.
Type
TWideString=record
allocSiz: LongWord;//分配的大小
Length:LongWord; //字符串长度
Data:array[1..(Length+1)] of WideChar;
end;
有结构可以看出，WideString和AnsiString很类似，但是他没有回收机制。不能进行生存期自管理。
但是在处理上还是较C\C++效率高上许多。
4.Pchar:与其说成是字符串到不如说他是指针更准确一些。
Type
TPchar=^Char;
Pchar是为了和C\++兼容的实际上它是指向字符的指针。从这个字符开始到后面第一个NULL字符为止都是
Pchar字符串的内容，也就是说PChar是它内容的首地址，因为Pchar并非结构而是一种指针所以Pchar的
下限是0.
var
A:Pchar;
...
A:='1234567890';
A[0]:='a';//这一句是合法的看看如下代码就明白了：
var
k:array of char;
p:Pchar;
i:Integer;
begin
SetLength(k,20);
FillMemory(@k[0],Length(k),Byte('A'));
i:=3; //i只要比20小,大于等于0，随你调整看看不同的结果。
k[i]:=#0;
p:=@k[0];
showmessage(p);
end;其它：数组在所有的编程语言中都是一个很重要的数据类型(不过Java的数组使用类来实现的)。
是应用很广泛的一种技术。 如果你见过下列语法：TA=Class(TXXX)
...
public
procedure Exec; Overload;
procedure Exec(Value:Boolean); Overload;
end;
一定会知道这是应用了这是重载。但是有没有想过在对象的内部机制中重载是如何实现的呢？
在内部实际上它是一个函数的数组（内部由表来实现）。当调用时会根据参数的不同来决定调用哪一个。附：
几条数组常用的函数
High(),Low()取数组的上下界
----------------------------------------------------------------------自己看吗

Answer 2

使用指针效率会高一些，但是一定要注意安全不然麻烦多多pScheduleTask =^ScheduleTask;//定义结构体指针，不是必须的
ScheduleTask =record  //定义结构体
    ScheduleID : string;
    ScheduleName : string;
    Sender : PTerminalUser;
    Receiver : PTerminalUser;
    TerminalType :Integer;
    SerialPort : string;
    ScriptName : string;
    Script   : string;
end; 

Answer 3

可以不用pScheduleTask =^ScheduleTask;
这只是方便后边使用