• Registered: 2015-09-05
  • Posts: 14

Topic: Выборка из штрихкода

Доброго дня.
При вводе в поле  Edit1 данных со сканера штрихкодов нужно присвоить переменной выборку от 7 до 12 числа (из 13 т.к. используется EAN13) и вывести в это же поле это значение.
А также сразу проверить 7 число. Если значение 0 то вывести только 5 чисел без 0, а если значение 1 то полное из 6 чисел.

Заранее спасибо.

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

Re: Выборка из штрихкода

Приветствую.


procedure Form1_Edit1_OnChange (Sender: TObject);
var
    s: string;
begin
    if Length(Form1.Edit1.Text)=13 then
    begin
        s := Form1.Edit1.Text;
        s := s[7]+s[8]+s[9]+s[10]+s[11]+s[12];
        if s[1]='0' then Delete(s, 1, 1);
        Form1.Edit1.Text := s;
    end;
end;
Dmitry.
  • Registered: 2015-09-05
  • Posts: 14

Re: Выборка из штрихкода

То что надо.
Спасибо большое.