文本删除重复算法问题~~高手请指点下

yunshenxin

难道是我的DELPHI有问题

supperman

没有问题的。测试很多遍

yunshenxin

TmpStrings.Assign(TStrings(StringsList.Items[Pred(StringsList.Count)]));
运行到这里就出现了

supperman

你重新建个文本文件，把你的文本重新拷贝到新文本文件里面。 你的问题出在你原来的文本文件里面有带回车的空行

yunshenxin

好的,3Q

supperman

我把算法修改了一下：

..........
//把数据写入到List
    StringsList := TList.Create;
    for Idx := 0 to Pred(Memo.Lines.Count) do
    begin
      if Pos(',', Memo.Lines[Idx]) > 0 then //去掉空行
      begin
        Strings := TStringList.Create;
        Strings.Delimiter := ',';
        Strings.DelimitedText := Memo.Lines[Idx];
        StringsList.Add(Pointer(Strings));
      end;
    end;

..............

supperman

更严谨的算法应该是这样：

//把数据写入到List
    StringsList := TList.Create;
    for Idx := 0 to Pred(Memo.Lines.Count) do
    begin
      Strings := TStringList.Create;
      Strings.Delimiter := ',';
      Strings.DelimitedText := Memo.Lines[Idx];
      if Strings.Count = 5 then //只处理含5列的行
        StringsList.Add(Pointer(Strings));
    end;

yunshenxin

你真的是好厉害~~算法想的这么灵活~谢谢