这个函数的参数怎么定义?(50分)

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #1

自定义一个函数,
Function GetStr(aInt: integer):string;
begin
result:=inttostr(aInt);
end;
我想这个aInt取值在0,1,2,3这几个,这个aInt应该如何写?

 

G

gyj163nt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #2

Function GetStr(aInt: integer):string;
begin
result:=inttostr(aInt and $3);
end;

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #3

我原本想这样
Function GetStr(aInt: integer=[0,1,2,3]):string;

 

C

cpj7406

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #4

type
TInt1to3 = 1..3;

function GetStr(Value: TInt1to3):string;

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #5

function GetStr(Value: TInt1to3):string;
begin
result:=inttostr(Value);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//edit1.text:=getstr(4);这样编译通不过!
edit1.Text :=getstr(strtoint(edit2.Text));//经过编译后在edit2编辑框中输入4就可以,而这个4已经超过了Getstr函数中Value的值了.程序没报错.
end;

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #6

1.
function TForm1.GetStr(aInt: Integer): String;
begin
If aInt in [1..3] then
Result := IntToStr(aInt)
else
Result := '';
end;

2.
type
TInt1to3 = (xOne = 1,xTwo = 2,xThree = 3);

function TForm1.GetStr(aInt: TInt1to3): String;
begin
Result := IntToStr(Ord(aInt));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetStr(xOne);
end;

 

S

SP229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-12

• #7

多谢以上朋友!