知道文件的路径，如何将字符串写道文件？同时要判断文件中是否已存在该字符串，存在则不插入，不存在则插入

Question

知道文件的路径，如何将字符串写道文件？同时要判断文件中是否已存在该字符串，存在则不插入，不存在则插入;
path2:=path1+'\'+'network\admin\tnsnames.ora';    OpenDialog1.FileName:=path2;
    if OpenDialog1.Execute then
    begin
        AssignFile(f,OpenDialog1.FileName);
        Reset(f);    end;

Answer 1

AssignFile(f,OpenDialog1.FileName);
ReWrite(f);写：
Write(f,<变量>)
Writeln(f,<变量>)
读:
Read(f,<变量>);
Readln(f,<变量>);

Answer 2

还要判断我要写的字符串是否已经存在呢？比如将s写到tnsnames.ora里
 var ip,sid,port,PATH1,path2 :string;
    reg :TRegistry;
    f: file of TMethod;
    s:string;
begin
    try
    ip:='127.0.0.1';
    sid:='sid';
    port:='1521';
    
    s =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = ip)(PORT = port))
    )
    (CONNECT_DATA =
      (SERVICE_NAME = sid)
    )
  )
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE\ORACLE\ALL_HOMES\ID0',true);
    
    path1:=reg.ReadString('PATH');
    path2:=path1+'\'+'network\admin\tnsnames.ora';    OpenDialog1.FileName:=path2;
    if OpenDialog1.Execute then
    begin
        AssignFile(f,OpenDialog1.FileName);
        Reset(f);    end;    reg.CloseKey;
    reg.Free;
    except
    on exception do
    end;end;