有关集合元素的问题

显示全部楼层 · 2021-1-27 07:04:29

大家好，我问一个有关集合的问题：
我很少用集合，多用枚举。我现在需要用集合，但有些问题不清楚。
1.如何知道集合中有多少个元素。
2.如何能列出集合中的所有元素值。
比如集合：
varse:setofChar;
或
typeca=(One,Two,Three);
varnum:setofca;
那如何列出集合se或num中的所有值呢？
需要写一个函数。
分 -->

千问 · 2021-1-27 07:04:29

var
cs:setofChar;
c:Char;
num:Integer;
begin
num:=0;
cs:=['a'..'z','A'..'Z','0'..'9'];
forc:=Low(Char)toHigh(Char)do
ifcincsthen
begin
Inc(num);
ShowMessage(Format('第%d个元素=%s',[num,c]));
end;
ShowMessage(Format('共%d个元素',[num]));
end;

千问 · 2021-1-27 07:04:29

“如何能列出集合中的所有元素值。”
这问题有点怪里怪气的，要搞清楚这个set就是数学中的集合

千问 · 2021-1-27 07:04:29

新版本（2005开始？）有个for[c]in[char]do的遍历用法

千问 · 2021-1-27 07:04:29

谢谢。关键是我的集合是什么样子完全不知道。要写一个通用的方法才成。

千问 · 2021-1-27 07:04:29

用猥琐的办法：读RTTI！。。不过这很难办到。。