C
chuwenyong
Unregistered / Unconfirmed
GUEST, unregistred user!
如题!
下面程序测试好象有区别?不知是不是方法不对?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TAA = record
sAAA :String[20];
sBBB :String[10];
sCCC :String[15];
end;
TBB = record
sAAA :array [0..19] of char;
sBBB :array [0..9] of char;
sCCC :array [0..14] of char;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
sa:TAA;
sb:^TBB;
begin
sa.sAAA := '01234567890123456789';
sa.sBBB := '0123456789';
sa.sCCC := '012345678901234';
sb := @sa;
showmessage(sa.sAAA);{显示为:01234567890123456789}
showmessage(sb.sAAA);{显示为:0123456789012345678}
end;
end.