循环遍历由chars索引的数组

Question

我的问题很简单。你如何在Pascal中循环这样的数组？

P : array[char] of list;

Here我发现了一些关于for-in循环的有希望的信息，但它们似乎没有用fpc编译。

谢谢！

Answer 1

我希望这会对你有所帮助。

type
   ch_array = array[char] of 1..26;
var
   alphabet: ch_array;
   c: char;
 begin
    ...
   for c:= 'A' to 'Z' do
    alphabet[c] := ord(c);  
   (* the ord() function returns the ordinal values *)

可以在此链接中查看更多信息。 http://www.tutorialspoint.com/pascal/pascal_arrays.htm

由于

Answer 2

如果要迭代整个范围，请尝试

var c : char;
for c:=low(P) to high(p) do
   OperationOn(P[c]);

或（更现代，需要2.6.x +）

var t: list
for t in P do
  writeln(t.count);