标题:pascal 使用
只看楼主
fkj_2008
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-12
 问题点数:0 回复次数:5 
pascal 使用
学delphi这前要先一些pascal基础.但是对pascal的基本用法如何在delphi环境下应用.如验证两整数交换.可如下:
uses
type point=^integer;
var
p:point;
a,b,c:integer;
begin
a:=100;
b:=50;
p:=@a;
c:=p^;
p^:=b;
b:=c;
end.
请问如何在delphi运行..

搜索更多相关主题的帖子: pascal delphi integer point 环境 
2007-11-07 01:14
sky_yang_sky
Rank: 3Rank: 3
等 级:论坛游民
威 望:8
帖 子:481
专家分:16
注 册:2007-5-30
得分:0 

看一下delphi就知道了。


你微笑的面對整個世界,整個世界也將會微笑的面對你。
2007-11-07 08:37
fkj_2008
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-12
得分:0 
能不能说一下怎样运行它.我才刚刚接触...谢过斑竹先.
2007-11-07 11:46
sky_yang_sky
Rank: 3Rank: 3
等 级:论坛游民
威 望:8
帖 子:481
专家分:16
注 册:2007-5-30
得分:0 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
point=^integer;
TForm1 = class(TForm)
Edit1: TEdit;
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
p:point;
a,b,c:integer;
begin
a:=100;
b:=50;
p:=@a;
c:=p^;
p^:=b;
b:=c;
edit1.text:=inttostr(b);
end;

end.
上面我在form中增加了一個edit1為你顯示數據,變量就看你是要它為全局變量還是局部變量,在這裡我是將它做局部變量用的


你微笑的面對整個世界,整個世界也將會微笑的面對你。
2007-11-07 15:25
城镇农民
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-11-12
得分:0 

2007-11-13 08:18
wangguyu
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2008-5-24
得分:0 
?
?????
uses
type point=^integer;
var
p:point;
a,b,c:integer;
begin
a:=100;
b:=50;
p:=@a;
c:=p^;
p^:=b;
b:=c;
end.
???
??????
2008-05-24 16:40



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-184096-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.575506 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved