Question

delphi编程：文本文件去掉重复数据

有一个文本，按下列样式保存了5万行数据：
14586
85476
14586
93024
47520
47520
……

其中，有些数据是重复的，现在需要把重复的数据去掉，变成下列效果，如何实现？需要最快捷的方法。

14586
85476
93024

47520
……

请高手赐教。。谢谢。。（分不多，还请大家谅解~~谢谢~~）

Answer 1

var a,b:array[1..50001]of longint;
i,j,k,s:longint;
function panduan(c,d:longint):boolean;
var n:longint;
begin
panduan:=true;
for n:=1 to c do
if b[n]=a[d] then begin
panduan:=false;
exit;
end;
end;
begin
for i:=1 to 50000 do read(a[i]);
k:=1;
for i:=1 to 50000 do begin
if panduan(k,i) then begin
b[k]:=a[i];
inc(k);
end;
end;
for i:=1 to k-1 do
writeln(b[i]);
end.
数据大小按50000而定
评测了一下是可以的
求采纳