заменить в файле + на -, заменить в файле + на - Опции

[gylayko]

Открыть файл я смогу, вот
assign(f,'C:\12.txt');
reset(f);
потом нужно поменять в нем + на - и наоборот
примерно что-то такое
while not eof(f) do
begin
for i:=1 to length(f) do
if f[i]='-' then
f[i]:='+' else
if f[i]='+' then
f[i]:='-';
writeln(f);
end;
но оно не работает, исправьте меня!

[sheka]

К файлу нельзя обращаться как к массиву.

CharSize := SizeOf(Char);
  AssignFile(f, 'file.txt');
  Reset(f, CharSize);
  while not Eof(f) do
  begin
    BlockRead(f, ch, 1);
    if ch = '+' then
    begin
      Seek(f, filepos(f) - 1);
      ch := '-';
      BlockWrite(f, ch, 1);
    end;
  end;
  CloseFile(f);

[Lapp]

Шека, все правильно, только можно немного упростить себе жизнь, использовав не просто file, а file of char.
+1

[sheka]

Так не интересно.