Файлы

[Likan15]

type текст = file of char
Описать и проверить процедуру next(t) заменяющую в тексте t каждую цифру на следующую по велечине цифру ( 9 заменять на 0)


{$R *.dfm}
type
text=textfile;

var
f:text;
a:string;
procedure TForm1.N1Click(Sender: TObject);
var
i:integer;
begin
AssignFile(f,'file2.txt');
Rewrite(f);
for i:=0 to (Memo1.Lines.Count-1) do
begin
a:=memo1.lines[i];
write(f,a);
end;
CloseFile(f);


end;


procedure TForm1.N4Click(Sender: TObject);
begin
CloseFile(f);
close;
end;

procedure TForm1.N3Click(Sender: TObject);
var
b:string;

procedure next(var f:textfile);
var
i:integer;
b:string;
begin
reset(f);
read(f,b);
while not eof(f) do
begin
if a='0' then a:='1';
if a='1' then a:='2';
if a='2' then a:='3';
if a='3' then a:='4';
if a='4' then a:='5';
if a='5' then a:='6';
if a='6' then a:='7';
if a='7' then a:='8';
if a='8' then a:='9';
if a='9' then a:='0';

end;
end;

begin
next(f);
reset(f);
repeat
read(f,a);
memo3.lines.add(a);
until eof(f);

end;

[Likan15]

доделать надо, чтобы допустим вводишь a34zb а выводишь a45zb

[SERG1980]

допустим есть строка s:=a34zb

for i :=1 to Length(s) do
 if s[i] in ['0'..'9'] then
 if s[i]='9' then s[i]:='0' else
 s[i]:=IntToStr(StrToInt(s[i])+1);

в результате s:=a45zb. Это цикл для одной строки. А ещё нужно сделать цикл для всех строк. Удобней будет загрузить файл в TStringList и пробежаться по всем строкам. Пример здесь можно посмотреть работу с TStringList http://programmersforum.ru/showthread.php?t=97764