一个自定义函数的小问题(20分)

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #1

function TForm1.Myudf(xxx:string):integer;
begin
try
.....
.....
myudf := 0;
finally
xxxxxx.free;
end;
end;
我需要这样，如果这段程序执行无误，则函数根据需要返回数值,如果有问题则返回0,
(执行无误时，不可能会有0的返回值)。请教该如何写？

 

Z

zjok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #2

try
.....
.....
myudf := 0;
except
xxxxxx.free;
result=0;
end;

 

陈

陈锡震

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #3

retval:bool;
retval = true;
try
try
....
myudf :=0;
except
retval = false;
end;
finally
...
end;
if rerval
result := 1;
else
result := 0;

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #4

樓上的若不出異常，則xxxxxx.free;不會執行。
建議改為：
try
try
.....
.....
myudf := 0;
except
result=0;
end;
finally
xxxxxx.free;
end;

 

赤

赤狼风云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #5

function TForm1.Myudf(xxx:string):integer;
begin
result := 0
//加上这句
try
.....
.....
myudf := 0;
finally
xxxxxx.free;
end;
end;

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #6

呵呵，楼上两位最OK，给分