关于集合的问题,在FORMAT中的第二个参数是一个无所不包的集合,如果我要用程序生成该集合,应该定义一个什么样的变量呢?

[mrzho]

关于集合的问题,在FORMAT中的第二个参数是一个无所不包的集合,如果我要用程序生成该集合,应该定义一个什么样的变量呢?
如:format('there have %d %s.',[2,'dogs']);
现在我知道构成该集合的所有元素,如何用程序来生成该集合呢?

望高手指点一二.

3Q

[mrzho]

最好是第二个参数是一个集合变量,但是该集合变量应该如何定义呢?
var
theset : set of String;? 非排序类型不允许.

那我该如何定义呢?郁闷...

[mrzho]

????

[mrzho]

在DELPHI中format的定义
function Format(const Format: string; const Args: array of const): string;
第二个参数是常量数组,那要我如何才能动态定义一个参量数组呢?

[risingsoft]

TMySetType=byte;
TMySet=set of TMySetType;

procedure TForm1.BitBtn5Click(Sender: TObject);
var
MySet:TMySet;
i:integer;
begin
MySet := [];
for i := 0 to 255 do
MySet := MySet + [i];
end;

[risingsoft]

procedure TForm1.BitBtn5Click(Sender: TObject);
var
MySet:TMySet;
i:integer;
begin
MySet := [];
for i := 0 to 255 do
MySet := MySet + [i];

if 1 in MySet then
ShowMessage('1 in set')
else
ShowMessage('1 not in set');
end;

[mrzho]

是不是有点难?

[天涯倦客]

循环＋if ..格式化串

[天涯倦客]

format('there have %d %s.',[2,'dogs']);
和
format('there have %d .',[2])+
format('%s.',['dogs']);是一样的 加if判断

[mrzho]

问题是在format中第二个参数的集合里面有多种数据类型,实际上你在使用的时候可能是未知的,比如format('there have %d %s.',[2,'dogs']);集合中第一个是整数,第二个是字符串.

[mrzho]

我需要动态地设置第二个参数,有可能会得到如[2,'DOG']或者['HENS','DOGS','COWS']等等.

[mrzho]

不知是不是我的描述不清楚,现在各位写出来的都是常量形式,如果我要用程序生成该集合,应该定义一个什么样的变量呢?
我可能有一张格式串表,里面存放如
id str 在程序中可能的值
1 there have %d %s. [3,'apples']
2 my %s is %d ages. ['friend',5]
3 %s have %d %s. ['you',3,'dogs']
......
那我在程序中应该如何构造这个动态的集合,使得这个程序是通用的.而不是专门为了某个串写死的程序.

[zsr]

是否可以用Variant?然后根据其类型生成格式串并构造字符串。

[sdzeng]

array of const是一个可变开放数组，等价于array of TVarRec

var
v : array of TVarRec;
begin
Setlength(v,2);
v[0].VType := vtInteger;
v[0].VInteger := 0;
v[1].VType := vtInteger;
v[1].VInteger := 2;
ShowMessage(Format('%d > %d?',v));
end;

//还没搞清楚字符串如何写进去
//希望哪位达人有空研究一下

[sdzeng]

搞清楚字符串赋值的问题了：）

var
v : array of TVarRec;
begin
Setlength(v,2);
v[0].VType := vtInteger;
v[0].VInteger := 0;
v[1].VType := vtAnsiString;
string(v[1].VString) := 'aa';
ShowMessage(Format('%d > %s ?',v));
end;

[mrzho]

确实可行.高人啊.结贴,收藏