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 использовать в винде, то ничего страшного. Тем более, если программирование студентам (школьникам) паскальное программирование преподают старые заслуженные работники образования. Другое дело, что текстовый интерфейс для большинства - это экзотика.