Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c