Открыть файл я смогу, вот
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;
но оно не работает, исправьте меня!
К файлу нельзя обращаться как к массиву.
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);
Шека, все правильно, только можно немного упростить себе жизнь, использовав не просто file, а file of char.
+1
Так не интересно.