论坛 › Delphi交流 › 菜鸟一个，帮忙看一下第19课，我的代码哪里有问题，总是不对

海云 发表于 2013-7-12 23:11:04

菜鸟一个，帮忙看一下第19课，我的代码哪里有问题，总是不对

implementation
var
y : integer = 1;
num : Array of integer;


{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
str : string;
i: integer;
temp: string;
n : integer ;
k ,b ,c ,d:integer;
begin
str := Trim(edit1.Text);
i:=1;


while (i < length(str))   do
begin

   while ((str <> #32) And (str <> #0)) do
   begin
      temp:= temp + str;

      i:=i+1;
   end;

   num:=StrToInt(temp);
      y:=y+1;
    i:=i+1;
    temp:='';

end;

for n := 1 to y -1 Do
    begin
      k:=y-n;

       for b := 1 to kdo
       begin
          if (num<num) then
            c:=num;
            num:=num;
            num:=c;
      end;
   end;

    edit1.Text:='';
for b := (y-1) Downto 1 do
begin
    edit1.Text:= edit1.Text + (IntToStr(num)) + ' ';
end;
end;

end.

qiusuo 发表于 2013-7-13 10:17:56

继续顶{:1_1:}

11年__那些事儿 发表于 2013-7-20 15:42:59

c ：= num;             ?
num是个数组，c是integer，类型不兼容！。。
麻烦你下次提问时附上错误提示。

查看完整版本: 菜鸟一个，帮忙看一下第19课，我的代码哪里有问题，总是不对