判断一字符串数组里是否有重复字符串如何做？(20分)

O

oldseven

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #1

var x:array of string;
i:integer;
begin
setlength(x,50);
//..................如何判断此数组里没有重复的字符串？
end;

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #2

var
i,j:integer;
for i:=0 to 48 do
begin
for j:=i+1 to 49 do
begin
if a=a[j] then
begin
showmessage('有重复字符串！');
break;
end else
showmessage('没有重复字符串！');
end;
end;

 

O

oldseven

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-03

• #3

接受答案了.