Главная страница
    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.45 MB
Время: 0.005 c
8-1182333180
SunriseGirl
2007-06-20 13:53
2009.08.30
работа с изображениями .bmp


15-1246469626
dmk
2009-07-01 21:33
2009.08.30
Бесперебойники


3-1226317055
ssa
2008-11-10 14:37
2009.08.30
перенос текстовых данных с Дельфи формы в таблицу Oracle


15-1246132501
Loginov Dmitry
2009-06-27 23:55
2009.08.30
DBF


2-1246642332
Dr. Genius
2009-07-03 21:32
2009.08.30
Окно, всплывающее над панелью системного трея





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский