去重复数据

Question

在TMome中，怎么把行与行重复的数据去掉。
123456
456789
123456
456123
456789
我要得到的结果是
123456
456789
456123

Answer 1

select distinct 字段名 from tablename

Answer 2

这不是数据库里的字段，是在TMome里面

Answer 3

先排序，在利用index逐个比较，碰到重复的就删除

Answer 4

var buffer:Tstringlist;
    i:integer;
begin
  buffer:=Tstringlist.Create;
  buffer.AddStrings(memo1.Lines);
  buffer.Sorted:=true;
  buffer.Sort;
  i:=0;
  while i<buffer.Count-1 do
  begin
    if buffer[i]=buffer[i+1] then
      buffer.Delete(i+1)
    else
      inc(i)
  end;
  memo1.Lines:=buffer;
end;

Answer 5

var
   ss:double;
begin 
for i:=0 to memo.line.count-1 do
beign
   try
      ss:=strtofloat(memo.line.string[i])
   Except
     memo.Lines.Delete;
   End;
end;
end;

Answer 6

更正：
var
   ss:double;
begin 
for i:=0 to memo.line.count-1 do
beign
   try
      ss:=strtofloat(memo.line.string[i])
   Except
     memo.Lines.Delete[i];
   End;
end;
end;

Answer 7

while i<buffer.Count-1 do
  begin
    if (buffer[i]=buffer[i+1]) or ((buffer[i]>='a') and (buffer[i]<='z')) then
      buffer.Delete(i+1)
    else
      inc(i)
  end;谢到不必了,注意结帖子

Answer 8

不行
((buffer[i]>='a') and (buffer[i]<='z'))
？？？？？？？？？？这样行吗xiaolei_418() ( )也错了