Код:
procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
i:Integer;
s:string;
begin
AssignFile(f,'1.txt');
If not FileExists('1.txt') then //если файл не существует создаём его
begin
Rewrite(f);//создаём
Writeln(f,0);//записываем число ноль
Reset(f);
end
else
Reset(f);//если файл создан то просто открываем для считывания последнего значения
while not Eof(f) do //переходим в конец файла
Readln(f,s);
i:=StrToInt (Copy(s,Pos(' ',s)+1,length(s)-pos(' ',s)) );
inc(i);//увеличиваем считанное значение
Append(f);//открывает файл для записи
WriteLn(f,'номер '+i);
CloseFile(f);
end;
end.
выводит красным текст: WriteLn(f,'номер '+i);
и пишет ошибку:
[Error] Unit1.pas(45): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
что не так?