Проверка ввода на Кириллицу в DBGrid

[Лекс Айрин]

maksmkv, почему не занимается -- Alexs занимается. Даже свои компоненты точит во всю. Обычно он выступает экспертом.

[Vadim]

такое ощущение, что на Lazarus БД никто не делает и проверкой не заморачивается

Как раз всё с точностью до наоборот - БД тут совершенно не при чём, никто не заморачивается отсеиванием русских букв...
Если конкретно по вопросу - как Вы относитесь к функции Pos()? Она Вам сильно не нравится?

[Снег Север]

и проверкой не заморачивается

Вообще-то у меня за два десятка лет работы с БД никогда не было задачи не допускать ввода символов в грид. Наоборот, проблемы всегда были с обеспечением беспрепятственного ввода в любой кодировке. А очистка данных от лишнего делается в AfterEdit или вообще на стороне сервера, триггером и встроенной процедурой.

[iskander]

Вот такой номер должен прокатить:

Код: Выделить всё

procedure TForm1.DBGrid1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
var
  Key: AnsiChar;
const
  RuLetters: TSysCharSet = [#168, #184, #192..#223];
begin
  //здесь можно вставить проверку системной кодовой страницы
  Key := UTF8ToAnsi(UTF8Key)[1];
  if Key in RuLetters then
    UTF8Key := '';    

[zoltanleo]

Если конкретно по вопросу - как Вы относитесь к функции Pos()? Она Вам сильно не нравится?

Учитывая, что это второй топик с упоминанием этой функции, которая 100% решила бы проблему TC, вопрошающий еще к ее изучению не приступал

[Vadim]

вопрошающий еще к ее изучению не приступал

Ай, и не говорите... Всё-таки серьёзно нынешнее образование задолжало перед нашим молодым поколением... Ох уж мне этот бурундучок Фурсенко, который заявил, что высшая математика убивает креативность...

[Лекс Айрин]

Vadim, это математика? Видимо, это личная месть.

[maksmkv]

По поводу функции Pos() , не хватает логики как реализовать правильно. Делаем простую БД с хранением только в полях латинских букв, русских при вводе не должно быть (БД паролей для внутреннего пользования). Основная деятельность не программирование, но писать ПО хоть криво-косо , но очень нравится. В свое время прочитал книгу по DELPHI Фленова, Культина Delphi в задачах и примерах и другие. По БД специально не сталкивался и вот впервые) По поводу образования - только Pascal на листке был.

[zoltanleo]

По поводу функции Pos() , не хватает логики как реализовать правильно

Пишу с телефона, поэтому только тезисно. В uses добавить LazUTF8, в OnKeyPress:

Код: Выделить всё

const rus_char = 'АаБб';//тут можно вообще любые проверяемые символы написать
begin
  if Utf8Pos(key, rus_char) > 0 then key=#0;
end;

Ну и почитать, для чего эта функция нужна
https://lazarus-ccr.sourceforge.io/docs ... f8pos.html

[maksmkv]

Всем спасибо - тему можно закрывать.