鱼C论坛

 找回密码
 立即注册
查看: 3017|回复: 3

delphi数据地址的传送改怎么定义?

[复制链接]
发表于 2012-5-17 14:44:46 | 显示全部楼层 |阅读模式
5鱼币
delphi数据地址的传送改怎么定义?我看到了第20课的时候小甲鱼老师说把冒泡的过程封装起来,我是把原始接受的数据存入数组的,然后把数组地址传送到封包的函数过程中,但是数组地址的定义我还是朦朦胧胧。
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure Maopao(var numb:array); //?这样子对吗?求指点求调教啊。procedure Maopao(var numb:array of integer);都不行。我试着希望能详细点,攒了几个鱼币奉献出来,还是学习交流为主哈。
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  var
   
    n:integer=0;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
     edt1.Width:=334;
     edt1.Height:=30;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
  temp,str:string;
  x,y,z:integer;
  num: array[1..1000] of integer;
begin
  str:=trim(edt1.Text);
  i:=1;
  while (i < length(str))do
  begin
    while((str[i]<> #32) and (str[i]<>#0))do
    begin
      temp:=temp+str[i];
      i:=i+1;
    end;
    n:=n+1;
    num[n]:=strtoint(temp);
    temp:='';
    i:=i+1;
  end;
  for x:=1 to n do
  begin
    z:=n-x;
    for y:=1 to z do
    begin
      if(num[y]<num[y+1])then
      begin
          i:=num[y];
          num[y]:=num[y+1];
          num[y+1]:=i;
      end;
    end;
  end;

edt1.text:='';
  for i:=n downto 1 do
  begin
    edt1.text:=edt1.text+inttostr(num[i])+' ';
  end;

end;
end.

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-5-17 15:38:46 | 显示全部楼层
不用加Var
procedure Maopao(num:array of integer);
应该是这样吧,我也记不清了~~
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

 楼主| 发表于 2012-5-17 15:54:50 | 显示全部楼层
好像不行啊。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2012-6-11 18:18:37 | 显示全部楼层
同样求解啊!!!!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-12-23 14:00

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表