Delphi比较两个字符串数组a跟b,找出a有而b没有的元素数组c
Delphi比较两个字符串数组a和b,找出a有而b没有的元素数组c
我是新手，求教：
比如：
字符串数组 a,b,c;
a里有 1,2,3,4,5
b里有 1,2,3
生成一个c,c里的元素有4，5。
谢谢！！！
------解决方案--------------------
不知道对不对
如果数组为不知道大小，可以用for i := Low(a) to High(a) do
------解决方案--------------------
我是新手，求教：
比如：
字符串数组 a,b,c;
a里有 1,2,3,4,5
b里有 1,2,3
生成一个c,c里的元素有4，5。
谢谢！！！
------解决方案--------------------
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
------解决方案--------------------
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;