Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.08.30;
Скачать: [xml.tar.bz2];

Вниз

Сравнить значение Мемо с заданым   Найти похожие ветки 

 
Guest___ ©   (2009-06-28 16:37) [0]

Как сделать чтобы при нажатии кнопки сравнивалось значение из мемо с заданым. К примеру задано чило 17. Если в мемо 17  или больше то выполня дальше если нет то выход?


 
Юрий Зотов ©   (2009-06-28 17:07) [1]

F1: Memo.Text и StrToInt


 
Guest___ ©   (2009-06-28 17:10) [2]


> Юрий Зотов ©   (28.06.09 17:07) [1]
> F1: Memo.Text и StrToInt


А можно пример кнопки от бегин до енд? Примерно.
Это пишеться в мемо
var
 lt: TSYSTEMTIME;
 st: TSYSTEMTIME;
begin
 GetLocalTime(lt);
 Memo1.Lines.Add("" +
   IntToStr(lt.wHour));
end;


 
Loginov Dmitry ©   (2009-06-28 23:45) [3]


> А можно пример кнопки от бегин до енд? Примерно.


Юрий дал все необходимое. Что здесь может быть непонятным?
Вас нужно учить, что есть оператор сравнения ">=", что есть оператор условного перехода "if ... then"? Для этого учебники нужно читать соответствующие. Форум не научит.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.08.30;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.005 c
9-1182001225
Li-ion
2007-06-16 17:40
2009.08.30
Насчет графики


1-1213600067
IntruderLab
2008-06-16 11:07
2009.08.30
Работа с BPL модулями


15-1246344627
Виктор85
2009-06-30 10:50
2009.08.30
Посоветуйте хостинг для WebBroker приложения


4-1212749135
Red_imp
2008-06-06 14:45
2009.08.30
Блокировка клавиатуры + мыши под Win XP


15-1246307568
Юрий
2009-06-30 00:32
2009.08.30
С днем рождения ! 30 июня 2009 вторник





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский