Непонятки с задачей (Delphi)

[geranton]

Здравствуйте уважаемые форумчане.
В универе мне задали сделать программу, которая будет рассчитывать количество нужных ингредиентов на различное печенье. То есть в программе должно быть несколько наименований печенья, после ввода количества порций каждого из печений должно рассчитывается количество ингредиентов для каждого печенья.(расчеты там очень простые проблема возникла в другом) Я набросал на бумаге, как должна выглядеть программа, но из-за отсутствия хорошего фотоаппарата, там практически ничего не видно.
http://php-studia.ru/?v=imag0106.jpg
Поэтому постараюсь объяснить так. Сверху на фотографии видно 4 квадрата, а рядом с ними текст и прямоугольник. Так вот квадраты это картинки, текст это наименование, а прямоугольники это, то куда вводить текст. Ну с этим все понятно нужно использовать Label и Edit.
А дальше идет все сложнее. После нажатия на кнопку расчет ингредиентов для печенья где введено кол-во порций должно рассчитаться кол-во нужных ингредиентов, и вывестись ниже, но если в форму Edit ничего не введено, то ничего не должно рассчитываться и ничего не должно выводится. Например, в программе есть Песочное печенье, Овсяное, Кокосовое, и Печенье с орехами и мне нужно 5 порций песочного и 3 овсяного. В таком случае ниже должно вывестись:
Песочное печенье
Список ингредиентов
Овсяное печенье
Список ингредиентов
Но если я укажу 4 порчий песочного и 3 кокосового. То результат должен выглядеть так:
Песочное печенье
Список ингредиентов
Кокосовое печенье
Список ингредиентов
С помощью if (условие) else (действия) такого выполнить я думаю не получится. А собственно я по другому и неумею)
Может быть дадите несколько советов, или может быть у вас есть проекты чем-то похожие на это.

[weech]

В обработчике нажатия можно сделать примерно так:

if Edit1.Text<>'' then
рассчитать список

Соответственно, чтобы проверить все эдиты на введенную информацию, предлагаю вам организовать из них массив и в цикле использовать вышеописанный алгоритм.

[GreenWizard]

geranton, могу немного поконсультировать по icq (314-206-671)
безвозмездно, если без запар)

[geranton]

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

Соответственно, чтобы проверить все эдиты на введенную информацию, предлагаю вам организовать из них массив и в цикле использовать вышеописанный алгоритм.

Что-то я не совсем Вас понял. Можно пример?

[geranton]

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

geranton, могу немного поконсультировать по icq (314-206-671)
безвозмездно, если без запар)

Спасибо, буду обращатся)

[weech]

Сначала инициализируете массив:

Edit: array [1..n] of TEdit;

Затем в обработчике создания формы заполняете:

Edit[1]:=Edit1;
...

И в OnClick начинаете рассчитывать ингридиенты только для тех эдитов, в которых что-либо написано:

for i:=1 to n do
    if Edit[i]<>'' then
         {А сюда нужно вставить либо процедуру нахождения кол-ва ингридиентов, либо в ручную рассчитывать.}

[geranton]

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

Сначала инициализируете массив:

Edit: array [1..n] of TEdit;

Затем в обработчике создания формы заполняете:

Edit[1]:=Edit1;
...

Если я привльно вас понял то

Edit: array [1..n] of TEdit;

задается один раз, а

Edit[1]:=Edit1;
...

для каждого присутствующего Edit, я не совсем понимаю значение квадратных скобок в данном случае, и нужно ли менять цифру в них в сообтветствии номеру Edit

[weech]

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

Если я привльно вас понял то

Edit: array [1..n] of TEdit;

задается один раз, а

Edit[1]:=Edit1;
...

для каждого присутствующего Edit, я не совсем понимаю значение квадратных скобок в данном случае, и нужно ли менять цифру в них в сообтветствии номеру Edit

Квадратные скобки означают обращение к соответствующему элементу массива; да, цифру менять нужно, это делается для того, чтобы можно было в цикле обращаться к каждому отдельному эдиту и проверять его на наличие введенного текста.

[geranton]

Можно сказать не начал ещ ничего делать,а уже ошибки.

Edit: array [1..n] of TEdit;

число n это число которое задается в Edit?
Исправте мои ощибки пожалуйста

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Math,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x,y,z,c,v,b:real;

implementation
       const
    Edit[1]:=Edit1;
{$R *.dfm}
           var
 Edit: array [1..n] of TEdit;
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
for i:=1 to n do
    if Edit[1]<>'' then
    begin
    z:=x*5;
    c:=x*2;
    Label1:='Ïå÷åíüå ïåñî÷íîå'+#13+ 'Ìóêà' + z
    +#13+ 'Ñàõàð' + c;
    end;
     if Edit[2]<>'' then
     begin
    v:=x*4;
    b:=x*3;
    Label1:='Ïå÷åíüå îâñÿíîå'+#13+ 'Ìóêà' + v
    +#13+ 'Ñàõàð' + b;
    end;



end;

[weech]

Вот, гляньте:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Math,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x,y,z,c,v,b:real;

implementation
       const
    n=2; //это количество ваших эдитов, исправьте, если нужно больше
{$R *.dfm}
           var
array [1..n] of TEdit;

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
for i:=1 to n do
    if Edit[i]<>'' then
    begin
    z:=x*5;
    c:=x*2;
    Label1:='Ia?aiua iani?iia'+#13+ 'Ioea' + z
    +#13+ 'Naoa?' + c;
    end;
end;