[Кодер]

Помогите решить следующую проблему:

имеется файл (например file.txt)
содержание файла
-1
-2
#3
-4

Циклически проверяем каждую строчку файла. Если она равна #3 то заменяем эту строчку на другую например "&3"

по окончании процедурки файл должен принять вид

-1
-2
&3
-4

Реально ли это сделать если для считывания строк мы используем
readln(f,s)

Файл file.txt в программе присваивается как текстовый файл
assignfile(f,'путь')

Выручайте!

[Karsh]

Можно использовать тип TStrings:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure gg; var   List: TStrings;   i: Integer; begin   List:= TStringList.Create;   try     List.LoadFromFile('file.txt');     for i:= 0 to List.Count - 1 do     begin       if List.Strings[i] = '#3' then       begin         List.Strings[i]:= '&3';         break;       end;     end;     List.SaveToFile('file.txt');   finally     List.Free;   end; end;

[lmikle]

В общем, совет правильный. За искобчение того, что break не нужен (а вдруг там несколько вхождений, которые надо заменить все).

[Кодер]

В этом то и проблема что через Tstringlist нельзя..

вернее можно, но мне нельзя!

Так я и сам додумался..не глупый

[Karsh]

а если так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); var   myFile: TextFile;   s, buf: string; begin   AssignFile(myFile, 'file.txt');   Reset(myFile);   while not eof(myFile) do   begin     Readln(myFile, s);     if s = '#3' then s:= '&3';     buf:= buf + s + #13#10;   end;   CloseFile(myFile);   Rewrite(myFile);   Writeln(myFile, buf);   CloseFile(myFile); end;