Напрямую Lazarus не работает с русскими символами
- Код: Выделить всё
if not (Key in ['а'..'я', 'a'..'z', #32, #8]) then
Key := #0
Выдает ошибку, попробовал еще одно решение, но в ячейки вообще ничего не ввести (((
- Код: Выделить всё
if (DBGrid1.SelectedField.FieldNo=2) then
if not (key in [AnsiChar(224)..AnsiChar(255){Ascii 'а'..'я'},AnsiChar(192)..AnsiChar(223){Ascii 'А'..'Я'},AnsiChar(184){Ascii ё},AnsiChar(168){Ascii Ё}]) then
begin
key := #0;
end;
Что сможете посоветовать? Спасибо