тексовые файлы

← →
mika (2004-06-14 12:50) [0]

C помощью этого кода я нахожу строку в текстовом файле
c:=Edit1.Text;
s:=Edit2.Text;
v:=RichEdit1.Text;
Assignfile(infile,FileOpen1.Dialog.FileName);
{$i-}
Reset(InFile);
{$I+}
if IOResult<>0 then
begin
MessageBox(Application.Handle,PChar(" "+FileOpen1.Dialog.FileName),"??????", MB_ICONWARNING);
Exit;
end;

while not Eof(InFile) do
begin

Readln(InFile, g);

if g=c then begin {writeln(InFile,s);}
ShowMessage("Строка"+" "+c+" "+ "найдена")
подскажите как мне заменить ее на другую

← →
vidiv © (2004-06-14 13:02) [1]

var sl:TStringList;
i:integer;
s:string;

s:=Edit2.Text; // Ищем
c:=Edit1.text; // Меням на

sl := TStringList.create();
sl.loadfromfile(<откуда грузим>);
if sl.count>0 then
for i:=0 to sl.count-1 do
if sl[i]=s then
begin
showmessage("Строка S найдена");
sl[i] := c; // Поменяли
end;
sl.savetofile(<куда сохраняем, вообще тудаже откуда и грузим>);
sl.free;

тексовые файлы Найти похожие ветки