我有好幾筆資料如
dataSource[1]=ad.tmp'
dataSource[2]=ard.tmp'
dataSource[3]=ard.tmp'
dataSource[4]=ard.tmp'
dataSource[5]=aad.tmp'
dataSource[6]=agd.tmp'
dataSource[7]=a3d.tmp'
.
.
.
.
現在有個stringlist，裡面存有'gd'一筆資料
我要做的動作是何'gd'去比對所有dataSource資料，字串有部分相同則再加進'stringlist'，不須取得index位置。最後目的得到stringlist清單而已

我的程式碼

[code delphi]
for i:=1 to length(dataSource) then
begin
tmp_string:=UpperCase(dataSource[i]); //都轉成大寫
for j := 0 to sl.Count-1 do //比對所有sl裡的字串清單
begin
if Pos(sl.Strings[j], tmp_string)>0 then //有找到部分字串相同的話
begin
if sl.strings[j]<>tmp_string then //要不相同才加入sl裡，可能寫法也要改
sl.Add(tmp_string);
break;
end;
end;
end;
[/code]

但我覺得我方式好像不太好，改用stringList的find方式可以部分比對嗎，而且不用知道其位置在哪。請問改怎麼可以快速部問比對比較好??
PS:我是要不分大小寫的

編輯記錄

我不知道是否還有更快的, 如果是我的話, 大概也會採用這個做法
不過我唯一會考慮的是, for j 的迴圈我會看情況, 以最大數的為主
例如
datasoruce 有 7筆
sl 有20筆
for i:= 1 to 7
for j:= 1 to 20

因為我會假設 sl 不會每次都一定比對到 1 to 20 的次數, 有可能比對到一半符合就 break 出來了,
這樣放在 j 來run, 應該可以省略一些時間
當然這不是絶對的啦! 而且現在的硬體速度越來越快, 也幾乎差不了多少了!

剛剛試跑了一下..

我的寫法跟你差不多...

速度上應該ok..

可讀性應該比較重要...

我覺得ok啦