ой...А он мне и большие буквы считывает как за отдельные символы.Как сделать,чтобы и большая и маленькая буква были одинаковы???
Надо приводить все буквы к одному регистру, например с помощью такой функции:
Function UpCase(Ch: Char): Char;
begin
case Ch of
'a'..'z': UpCase := Chr(ord('A')+ord(Ch)-ord('a'));
'a'..'n': UpCase := Chr(ord('A')+ord(Ch)-ord('a'));
'p'..'я': UpCase := Chr(ord('P')+ord(Ch)-ord('p'));
else
UpCase:= Ch
end
end;
да,ещё вопрос.ЧТо значит fillchar (b,sizeof (b),0); ???
Обнуление массива b.