Delphi: Дан файл, содержащий текст. Подсчитать, каких букв в тексте больше – русских или латинских

[Bom1234]

Здравствуйте, напишите код пожалуйста :

Дан файл, содержащий текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше – русских или латинских.

[Dvoishnik]

Сообщение от Bom1234

Здравствуйте, напишите код пожалуйста :

КОД

[Аватар]

Название темы не соответствует правилам

[Serge_Bliznykov]

Дан файл, содержащий текст

кому дан? Вам? А нам?

А файл в какой кодировке?
и Delphi какая? (в "простой", не-уникодной, версия < 2009) можно использовать проверку на вхождение символа в множество

if s[i] in ['a'..'z','A'..'Z'] then // латиница

if s[i] in ['А'..'Я','а'..'я','ё','Ё'] then // кириллица

а для загрузки файла в память используйте TStringList (метод LoadFromFile)

Сообщение от Аватар

Название темы не соответствует правилам

Угу. я исправил...

[Bom1234]

Спасибо большое)

[Bom1234]

Delphi 7

[Serge_Bliznykov]

Сообщение от Bom1234

Delphi 7

так я же написал Вам уже как решать!
Нужно разжевать и в рот положить?!

var ts:TStringList;
  r, i, cntLat, cntRus : integer;
  s : string;
begin
   try
     ts := TStringList.Create;
     ts.LoadFromFile('Путь к текстовому файлу');
     cntLat := 0; cntRus := 0;
     for r:=0 to ts.Count-1 do begin
        s:=ts.Strings[r];
        for i:=1 to Length(s) do
           if s[i] in ['a'..'z','A'..'Z'] then Inc(cntLat)
           else
               if s[i] in ['А'..'Я','а'..'я','ё','Ё'] then Inc(cntRus);
     end;
     ShowMessage('В тексте латиницы: '+IntToStr(cntLat)+' кириллицы: '+IntToStr(cntRus));
   finally
     ts.Free
   end;
end;

[Bom1234]

Спасибо)