файлы

[sven4ik]

ребят,кто может исправьте ошибку в коде,вот собственно условие
На диске С есть текст файл 1.txt.Определить каких знаков препинания в файле больше,точек или запятых,обработав исключительные ситуации

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
a:integer;
begin
try
Assignfile (f,'C:\Student\1.txt');
if (a<>',') or (a<>'.') then a:=a+1;
edit1.text:=inttostr(a);
closefile(f);
except
on EOutError do showmessage('Ошибка открытия файла');
on ECreateError do showmessage('Ошибка создания файла');
end



end.

end.

[Человек_Борща]

Что за бред?!

Почему число вдруг стало буквами? И с чего бы +1 что-то должно изменить?
Код вообще не выполняет поставленной задачи.

А вот синтаксические ошибки:

	
Восклицание файлы
ребят,кто может исправьте ошибку в коде,вот собственно условие
На диске С есть текст файл 1.txt.Определить каких знаков препинания в файле больше,точек или запятых,обработав исключительные ситуации

Код:


procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
a:integer;
begin
try
Assignfile (f,'C:\Student\1.txt');
if (a<>',') or (a<>'.') then a:=a+1;
edit1.text:=inttostr(a);
closefile(f);
except
on EOutError do showmessage('Ошибка открытия файла');
on ECreateError do showmessage('Ошибка создания файла');
end;



end;

end.