Duplicate Identifier Error

[lvvova]

Доброго времени суток!
Я учусь по книге "Песни о паскале" и столкнулся с ошибкой: Duplicate Identifier Error
Вот сам код:

Код: Выделить всё

function
Count(const str : string; ch: char): integer;
var N, i: integer;
begin   
  N:=0;     
for i:=1 to Length(str) do         
if str[i]=ch then N:= N+1;     
Count:= N;
end; 
var S: string;
begin   
S:='PASCAL';   
Writeln( Count(S, 'A'));   
Writeln( Count('BANAN', 'N') + Count('BANAN', 'B'));   
Readln;
end.


Использую IDE Free pascal for win32
Ver 1.0.12 2015/11/16

[Снег Север]

Измените название своей функции Count на какое-нибудь другое.

[скалогрыз]

где-то кто-то что-то не досказывает (например номер строки на которую ругается компилятор).
т.к. компилируется без проблем.

есть мнение, что над функцией Count затился ещё один var S: String;

[lvvova]

Спасибо за ответ, только что проверил ещё раз код, написало без ошибок, я в недоумении

[скалогрыз]

Спасибо за ответ, только что проверил ещё раз код, написало без ошибок, я в недоумении

если видишь ошибку и не понимаешь откуда она, всегда указывай ту строчку на которую компилятор ругается!

[Снег Север]

Использую IDE Free pascal

Вообще-то все, в один голос говорят, что эта IDE - древний глюкавый монстр. Переходите на IDE Lasarus, он несравненно качественнее.

[Vadim]

Вообще-то все, в один голос говорят, что эта IDE - древний глюкавый монстр.

Если енту самую IDE использовать в винде, то ничего страшного. Тем более, если программирование студентам (школьникам) паскальное программирование преподают старые заслуженные работники образования. Другое дело, что текстовый интерфейс для большинства - это экзотика.