请教,数组指针 的初始化和使用?

Question

定义了3个数组
KeyWords:array[0..3]of string=('main','if','int','for');
operator:array[0..3]of string=('+','-','*','/');
separator:array[0..1]of string=(';',',');问题1.想定义并初始化一个数组指针alltype，用于存放3个数组的首地址，怎么操作？
问题2.怎么利用数组指针alltype,for语句对3个数组遍历
var i:integer
begin
    for i:=0 to 2 do
    begin
         search(alltype[i]);//前面定义好的过程
         i:=i+1;
    end;
end;
指针数组、数组指针没学好，大家帮帮忙,呵呵.

Answer 1

问题1.想定义并初始化一个数组指针alltype，用于存放3个数组的首地址，怎么操作？
----------------------type
  TAllType = array[0..2] of pointer;
  TKeyWords = array[0..3]of string;
  TSeparator = array[0..1]of string;
const
  KeyWords : TKeyWords = ('main','if','int','for');
  operator : TKeyWords =('+','-','*','/');
  separator: TSeparator =(';',',');var
  alltype : TAllType;procedure TForm1.Button1Click(Sender: TObject);
var
  P : ^TKeyWords;
begin
  allType[0] := @KeyWords[Low(KeyWords)];
  allType[1] := @operator[Low(operator)];
  allType[2] := @separator[Low(separator)];
  P := allType[0]; //下面两句是演示通过保存的数组首地址, 访问数组元素.
  showmessage(P^[1])
end;
问题2 :既然allType是指针数组, 那么恐怕Search过程只有一个参数还不够. 估计还需要传递数组类型 及数组大小吧, 要不, 怎么用. 没时间了, 你等别人回答问题二吧.

Answer 2

呵呵 谢谢lihuasoft(我业余，所说仅供参考)，连续帮我2次

Answer 3

var
  KeyWords:array[0..3]of string=('main','if','int','for');
  operator:array[0..3]of string=('+','-','*','/');
  separator:array[0..1]of string=(';',',');procedure TForm1.Button1Click(Sender: TObject);
var
  Alltype : array [0..2] of Pointer;
  p : Pointer;
  i : Integer;
begin
  //等价于Alltype[0] := @KeyWords
  Alltype[0] := @KeyWords[0];
  Alltype[1] := @operator[0];
  Alltype[2] := @separator[0];  //遍历KeyWords
  p := Alltype[0];
  for i:=Low(KeyWords) to High(KeyWords) do
  begin
    ShowMessage(PString(p)^);
    Inc(PString(p));
  end;  //遍历operator
  p := Alltype[1];
  for i:=Low(operator) to High(operator) do
  begin
    ShowMessage(PString(p)^);
    Inc(PString(p));
  end;  //遍历separator
  p := Alltype[2];
  for i:=Low(separator) to High(separator) do
  begin
    ShowMessage(PString(p)^);
    Inc(PString(p));
  end;end;