这个错误是什么原因啊~~~~~~~~~~~~
本帖最后由 roots127 于 2013-3-17 12:27 编辑unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edt: TEdit;
But: TButton;
procedure ButClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButClick(Sender: TObject);
var
Arr_s:array of Integer;
s,temp:string;
x,y:Integer;
begin
s:=Trim(Edt.Text);
//ShowMessage(IntToStr(Length(s)));
x:=1;
y:=0;
while (x<Length(s)) do
begin
while(s<>#32)and(s<>#0)do
begin
temp:=temp+s;
// ShowMessage(temp);
x:=x+1;
end;
Arr_s:=StrToInt(temp);
temp:='';
ShowMessage(IntToStr(Arr_s));
y:=y+1;
x:=x+1;
//ShowMessage(IntToStr(x));
end;
end;
end.
页:
[1]