论坛广场 › Delphi › 通过指针到结果

阿杰 发表于 2011-8-5 20:51:20

通过指针到结果

procedure TForm1.btn1Click(Sender: TObject);
var
pa:^Integer;
pstr:^string;

begin
    New(pa);
    New(pstr);
    pa^:=2011;
    pstr^:='阿杰说这是测试';

    ShowMessage(IntToStr(pa^));
    ShowMessage(pstr^);
end;

procedure TForm1.btn2Click(Sender: TObject);
var
pa:^Integer;
pstr:^string;

a:integer;
str:String;

begin
    a:=1978;
    pa:=@a;
    ShowMessage(IntToStr(pa^));

    str:='阿杰说这是测试';
    pstr:=@str;
    ShowMessage(pstr^);
end;

upring 发表于 2015-4-18 09:01:55

我来沙发

查看完整版本: 通过指针到结果