калькулятор калорий на Delphi

[xamka]

Помогите пожалуйста создать калькулятор калорий на Delphi 7 очень очень нужно и очень очень срочно((((

[Streletz]

Сообщение от xamka

Помогите пожалуйста создать калькулятор калорий на Delphi 7 очень очень нужно и очень очень срочно((((

ИМХО:Простите, я искренне не хочу Вас обидеть, но Вам лучше обратиться в раздел "Фриланс".

[BDA]

В общем так:
Кидаете на форму memo
Кидаете на форму label с текстом "Напишите в столбик употребленные за день продукты"
Кидаете на форму кнопку
Два раза тыкаете мышкой по ней и вписываете код:

case Memo.Lines.Count of
  0: showmessage("Не ври мне, не мог(ла) ты ничего не есть");
  1..5: showmessage("Нормально");
  6..10: showmessage( "Воу-воу, не объедайся");
  11..50: showmessage("Жирдяй (жируха) - быстро в спортзал сжигать лишние калории");
else showmessage("Откуда столько денег на такое количество еды?");

[type_Oleg]

А можно сделать два списка - еда и её калории соответственно. И вводить только номера. Например

const
 EDA:array[1..4]of string =('№1 стакан минералки','№2 йогурт','№3 пирожное Эклер','№4 шашлык');
 KALOR:array[1..4]of Integer=(0,100,500,10000);

Если съели 1 стакан воды, и 7 шашлыков, надо ввести :
1
4
4
4
4
4
4
4
Так проще считать.