Lazarus и ввод букв...

Тема в разделе "Флудилка", создана пользователем Mestniy, 21 сен 2015.

Метки:
  1. Mestniy

    Mestniy Гуру

    Здравсвтуйте! Пишу программу на платформе Free paskal(программа Lazarus).
    Подскажите пожалуйста как сделать такое условие?
    Если введено 'A', то SdpoSerial1.WriteData('K3'+'.')
     
    Viquis нравится это.
  2. Unixon

    Unixon Оракул Модератор

    Что у вас в программе означает "введено"? В рамках GUI вы должны либо считать содержимое элемента управления, либо обработать какое-либо событие от клавиатуры. Как именно поступаете?
     
  3. Mestniy

    Mestniy Гуру

    Нужно считать содержимое с TEdit и если оно равно A, то отправить на ком порт команду, о которой я говорил раньше...
     
    Viquis нравится это.
  4. Unixon

    Unixon Оракул Модератор

    Код (Pascal):
    if Edit1.Text='A' then begin
    // ...
    end;
     
    robokop и Mestniy нравится это.
  5. Mestniy

    Mestniy Гуру

    Спасибо Вам за помощь. Тема закрыта...
     
    Viquis нравится это.