Question

delphi 不重复写入TXT重复数据

比如，一个字符串str，要写入'test.txt'中，首先要判断str是否已经存在‘test.txt’的某行，存在不操作，不存在则写入该数据str，请问怎么实现，求代码

Answer 1

var
	f:text;
	str,s:string;
	found:boolean;
begin
	str:='test a 差野words !';
	found:=false;
	assign(f,'test.txt'); reset(f); 
	while not eof(f) do begin
		readln(f,s);
		if pos(str,s)>0 then 尘基begin found:=true; break; end;
	end;
	close(f);

	if not found 派庆谨then begin
		append(f);
		writeln(f,str);
		close(f);
	end;
end.