, 04 2021 . 10:34
+
Kirilis2018: ,
.
?
var
f1: TextFile;
st: string;
s: TStringList;
begin
AssignFile(f1, '1.txt');
reset(f1);
s := TStringList.Create;
While not EOF(f1) do
begin
readln(f1, st);
If s.IndexOf(st) < 0 then
s.Add(st);
end;
s.SaveToFile('2.txt');
s.Free;
CloseFile(f1);
end;
123
123
4444
55555
123
:
123
123
123
https://forum.sources.ru/index.php?showtopic=421549&view=findpost&p=3848639
