Delphi比较两个字符串数组a和b,找出a有而b没有的元素数组c

Question

我是新手，求教：
比如： 
字符串数组   a,b,c; 
a里有   1,2,3,4,5
b里有   1,2,3
生成一个c,c里的元素有4，5。
谢谢！！！

Answer 1

var
  a:array[0..9]of char;
  b:array[0..9]of char;
  c:array[0..9]of char;
  i,x,z:integer;
begin
  for i:= 0 to 9 do
  begin
    for x:= 0 to 9 do
    begin
      if a[i]=b[x] then
      begin
        c[z]:=a[i];
        Inc(z);
      end;
    end;
  end;
end;
不知道对不对
如果数组为不知道大小，可以用for i := Low(a) to High(a) do

Answer 2

  type
    Ts = array of string;  procedure DoIt(const a,b: array of string;var c: Ts);
  var
    I, J: Integer;
  begin
    I := Low(a);
    while I <= High(a) do
    begin
      J := Low(b);
      while J <= High(b) do
        if a[I] = b[J] then
          Break
        else
          Inc(J);      if J = Length(b) then
      begin
        SetLength(c, Length(c) + 1);
        c[High(c)] := a[I]
      end;      Inc(I)
    end;
  end;var
  arr: Ts;
begin
  DoIt(['1','2','3','4','5'], ['1','2','3'], arr);
end;

Answer 3

请教如何把2楼的函数修改成可以处理如下类型的，谢谢！
DoIt([1,21,3,4,5], [14,12,2,3], arr);