求最佳办法

Question

数据在memo中,格式如13,98,,,,
strsLimit(TStringList)中的数据如123,479,999,,,,
求123,479,989,,,,不含13,98的数据?符合要求的有479

Answer 1

一个办法，不是最佳。procedure TForm1.Button1Click(Sender: TObject);
var
    strsLimit:TStringList;
    strs:TStringLIst;
    i,j:integer;
begin
    strsLimit:=TStringList.Create;
    strs:=TStringLIst.Create;
    strs.Delimiter:=',';
    strs.DelimitedText:=Memo1.Lines.Text;
    strsLimit.Add('123');
    strsLimit.Add('479');
    strsLimit.Add('998');
    for i:=strsLimit.Count-1 downto 0 do
        for j:=0 to strs.Count-1 do
        begin
            if Pos(strs.Strings[j],strsLimit.Strings[i])>0 then
            begin
                strsLimit.Delete(i);
                break;
            end;
        end;
    Memo1.Lines.Assign(strsLimit);
    strs.Free;
    strsLimit.Free;
end;