关于for...in...还有其他吗？
Delphi新语法 For ..In
首先我们要知道哪些类型可以用For In吧,下面就是:
for Element in ArrayExpr do Stmt; 数组
for Element in StringExpr do Stmt; 字符串
for Element in SetExpr do Stmt; 集合
for Element in CollectionExpr do Stmt; 集合
for Element in Record do Stmt; 结构体
====================================================================
一、遍历 TStrings
var
List: TStrings;
s: string;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc';
for s in List do
ShowMessage(s);
List.Free;
end;
二、遍历数组
var
Arr: array of Byte;
i: Integer;
b: Byte;
begin
for i := Low(Arr) to High(Arr) do
Arr := Random(MAXBYTE);
for b in Arr do
ShowMessage(IntToStr(b));
end;
三、遍历子界
{例1}
var
sub: 0..9;
str: string;
begin
str := '';
for sub in do
str := str + IntToStr(sub);
ShowMessage(str); {0123456789}
end;
{例2}
type
TSub = 'A'..'G';
var
sub: TSub;
str: string;
begin
str := '';
for sub in do
str := str + sub;
ShowMessage(str); {ABCDEFG}
end;
{例3}
var
sub: Byte; {Byte 应该算是个 0..255 的子界}
num: Cardinal;
begin
num := 0;
for sub in do
Inc(num, sub);
ShowMessage(IntToStr(num)); {32640}
end;
四、遍历枚举
type
TEnum = (Red,Green,Blue);
var
enum: TEnum;
count: Integer;
begin
count := 0;
for enum in do
Inc(count);
ShowMessage(IntToStr(count)); {3}
end;
五、遍历集合
type
TEnum = (Red,Green,Blue,Yellow);
TSet = set of TEnum;
var
set1: set of TEnum;
set2: TSet;
elem: Tenum;
count: Integer;
begin
set1 := ;
count := 0;
for elem in set1 do Inc(count);
ShowMessage(IntToStr(count)); {2}
set2 := ;
count := 0;
for elem in set2 do Inc(count);
ShowMessage(IntToStr(count)); {4}
end;
六、遍历字符串
var
str: string;
c: Char;
begin
str := 'ABCD';
for c in str do
ShowMessage(c);
end; 不用问了，帮助总纲找到了，就这些。 德尔菲高手 delpin 语法看着像脚本语言 感觉和JS大差不差啊 其实你要理解底层，比你找到哪些可以用for...in 更重要。
for...in 和 普通for的区别。
可迭代对象 和 普通数组的区别 编程语言太多了，用了几种语言编程啦，delpin本来想学，但没时间，后来学了python,才发现对对齐格式要求太严格，差一个空格都不行，调试时还不好找错，怎么看也没错，结果把整行代码抹掉，重新写一遍就没问题了，感觉无语。差错不容易 hsgzr_sj7 发表于 2023-2-14 00:36
编程语言太多了，用了几种语言编程啦，delpin本来想学，但没时间，后来学了python,才发现对对齐格式要求太 ...
@hsgzr_sj7
编辑器很多，我最喜欢用的是wing ide for python
界面简约，超省资源，我喜欢。可代码一键整理对齐。 我找找这个编辑器 最好有中文的
页:
[1]