• Registered: 2015-04-04
  • Posts: 262

Topic: Как изменить регистр букв

У меня на форме есть текстовое поле EdKod1. В таблице diagnoseThree имеется текстовый тип podCode. Там имеется данные подкоды диагнозы, например A00.0, А00.1, В00.0, В00.1 и т.д. В следующем скрипте все работает как надо, если я пищу например A00.0, а если писать а00.0 то выводится ошибка: Введенный код диагноза нет в списке!' + #13 + 'Выберите диагноз из списка!
Как сделать чтобы при вводе а00.0 она автоматически приобразавалось в А00.0, а дальше уже скрипт будет работать нормально.


procedure NovayaForma_EdKod1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
var
id: string;
begin
if Key=13 then
begin
if NovayaForma.EdKod1.Text = '' then
begin
ShowMessage('Поле не может быть пустым!' + #13 + 'Введите код диагноза!');
end else
begin
if SQLExecute ('SELECT COUNT(podCode) FROM diagnoseThree WHERE podcode= '''+ NovayaForma.EdKod1.Text +'''')> 0
then
begin
  id:= SQLExecute('SELECT diagnoseThree FROM diagnoseThree WHERE podCode IN (''' + NovayaForma.EdKod1.Text + ''')');
  NovayaForma.MemoKod1.Text := NovayaForma.EdKod1.Text + ' ' +id;
end else
begin
  ShowMessage('Введенный код диагноза нет в списке!' + #13 + 'Выберите диагноз из списка!');
  NovayaForma.EdKod1.Clear;
  NovayaForma_bVibrat_Kod1_OnClick ('',false);
end;
end;
end;
end;

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Как изменить регистр букв

CharCase - Определяет, необходимо ли текст преобразовывать к одному регистру.
пример: 

 Form1.Edit1.CharCase := ecNormal; // без преобразования регистра (по умолчанию)
 Form1.Edit1.CharCase := ecUpperCase; // преобразование текста в верхний регистр
 Form1.Edit1.CharCase := ecLowerCase; // преобразование текста в нижний регистр
Dmitry.
  • Registered: 2015-04-04
  • Posts: 262

Re: Как изменить регистр букв

спс. все работает.