Всем привет. Подскажите, пожалуйста, почему не ищет русскую букву а?

Question

Всем привет. Подскажите, пожалуйста, почему не ищет русскую букву а?

А английскую ищет. Полагаю что-то с кодировкой. Но как исправить это?

procedure TfrmMain.btnOpenFileClick(Sender: TObject);
var
f: TextFile;
lineCount: integer;
c: Char;
begin

AssignFile(f, 'test.txt');
Reset(f);
lineCount := 0;

while not Eof(f) do
begin
Read(f, c);
if c in ['a'] then Inc(lineCount);
end;

CloseFile(f);

Label1.Caption := lineCount.ToString;

end;

end.

#lazarus #programming #russian

0

18.06.2024

7 ответов

13 просмотров

Евгений Автор вопроса

Igor
это так не работает, Char недостаточно для размеще...

Понятно. Спасибо за наводку!

0

8 дней назад

Sergey Bodrov

Обычный Char это 1 байт. Русские буквы в один байт влезают только в старых кодировках, а в новых уникодных нужен совсем другой подход к чтению файла и поиску. Долго обьяснять, для начала грузи весь файл в строку и ищи внутри строки. А если файл очень большой, то читай его построчно.

0

8 дней назад

Евгений Автор вопроса

Sergey Bodrov
Обычный Char это 1 байт. Русские буквы в один байт...

Файл очень большой, да...

0

8 дней назад

Кокошник наголо

Sergey Bodrov
Обычный Char это 1 байт. Русские буквы в один байт...

А могут ли в одном файле быть разные кодировки?

0

8 дней назад