如何判断一个Record可用？(50分)

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #1

Taa = Record
n,
b : string;
c : integer;
g : boolean;
......
end;
要求每一个属性都必须有内容。有什么方便的方法对该记录进行一次扫描，判断它
是否可用？

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #2

一个Record建立之后，每个属性都应该有个缺省值的吧，你逐一扫描也不能判断什么。

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #3

我是希望它的值是在接受的范围内。。。

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #4

那你试试把Record改成如下形式。
Taa = Record
n,b:String;
i:Set of 1..100;
c:Set of 'a'..'f';
g:Boolean;
end;
这样i和c的值就会受到一定的限制，但是n、b、g好象就没有办法了，或者你把Record改成
class，在class中检查这些值好了。

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #5

例。。。。。。。。。。。。。。如。。。。。。。。。。。。。。。。。。。。。

 

J

Jhdandcl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #6

那你写一个针对性的FUNCTION 就得啦。
例：有
Taa = Record
n, b : string

c : integer

g : boolean
......
end;

Var
MyRecor:Taa;
function Check(const MyRecord:Taa):boolean;
var
result1,result2....:boolean;
begin
if MyRecord.n ...
then result1:=..
else result1:=...
...
Result := result1 and result2 ....
end;

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #7

就是嫌他累我才来问的啊，兄弟

 

J

jame

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-19

• #8

您也太懒了点，如果大家都是您这么懒豆只好全部用控见写程序了，代码豆不用写
我看也只能一个一个判断，自己写个函数嘛。。。。要不有函数有什么用？

 

C

chenlh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-19

• #9

同意上面的所以兄弟，除了老吴
你就一个一个判断吧

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-19

• #10

多人接受答案了。