тексовые файлы [D7, Win2k]
mika © (2004-06-14 12:50:00)
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
