Главная страница
    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
15-1245082595
DillerXX
2009-06-15 20:16
2009.08.30
Советский усилитель


15-1246221005
Юрий
2009-06-29 00:30
2009.08.30
С днем рождения ! 29 июня 2009 понедельник


15-1245954371
Kerk
2009-06-25 22:26
2009.08.30
ICFP


15-1246470296
@!!ex
2009-07-01 21:44
2009.08.30
Сколько стоит интернет?


3-1226570266
Alex sh
2008-11-13 12:57
2009.08.30
DELPHI MS SQL Oracle





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