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

[AlexandraGrey]

Помогите, пожалуйста! (я новичок) Нужно разработать программу в Lazarus, которая по заданному количеству и цене товара вычисляет общую стоимость. Предусмотреть, что на продажу товара может быть существующий или отсутствующий дополнительный налог в 20%. Учесть, что количество товара не может быть отрицательной ( в случае ввода таких данных необходимо вывести соответствующее сообщение об ошибке). Буду очень признательна)

[Stilet]

Безымянный.jpg

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
			ComCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						Button1: TButton;
						Edit1: TEdit;
						Edit2: TEdit;
						Edit3: TEdit;
						Edit4: TEdit;
						GroupBox1: TGroupBox;
						ListView1: TListView;
						procedure Button1Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Edit1 do begin Align:=alTop; Text:='Товар'; end;
  with Edit2 do begin Align:=alTop; Text:='Цена'; end;
  with Edit3 do begin Align:=alTop; Text:='Кол-во'; end;
  with Edit4 do begin Align:=alTop; Text:='%'; end;
  with GroupBox1 do begin
    Caption:='Карточка';
    Align:=alTop;
    AutoSize:=true;
	end;

  with Button1 do begin Align:=alTop; Caption:='Добавить'; end;

  with ListView1 do begin
    Align:=alClient;
    ViewStyle:=vsReport;
    with Columns.Add do begin AutoSize:=true; Caption:='Товар'end;
    with Columns.Add do begin AutoSize:=true; Caption:='Цена'end;
    with Columns.Add do begin AutoSize:=true; Caption:='Кол-во'end;
    with Columns.Add do begin AutoSize:=true; Caption:='%'end;
    with Columns.Add do begin AutoSize:=true; Caption:='Стоимость'end;
	end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var d:double;
begin
  d:=StrToFloatDef(Edit2.Text,0)*StrToFloatDef(Edit3.Text,0);
  if Edit4.Text<>'' then d:=d/100*StrToFloatDef(Edit4.Text,0);
  with ListView1.Items.Add do begin
    Caption:=Edit1.Text;
    SubItems.Append(Edit2.Text);
    SubItems.Append(Edit3.Text);
    SubItems.Append(Edit4.Text);
    SubItems.Append(format('%10.2f',[d]));
	end;
end;

end.

Я угадал?

[AlexandraGrey]

спасибо конечно) но.. сейчас будет очень глупый вопрос.. это на языке Паскаль? просто как то слишком сложно)

[Stilet]

Нужно разработать программу в Lazarus

Твои слова?
Да, это Паскаль. Free Pascal и Lazarus.

[AlexandraGrey]

сглупила..) да, все верно, еще раз спасибо большое, буду разбираться

[Stilet]

Пожалуйста )

[phomm]

Поправочка

 if Edit4.Text<>'' then d:=d + d/100*StrToFloatDef(Edit4.Text,0);

Офтоп: мисс, к такому нику надо бы фоточку соответствующую в профиль

[Stilet]

Поправочка

У нас на нептуне другие правила, так что уж звиняйте, земляне

к такому нику надо бы фоточку соответствующую в профиль

Хе ))
Шутник...

[AlexandraGrey]

извините, еще вопрос. Как и когда заполнять то что написано ниже "карточки" (т.е 80, пирожок, 1.5)? Прост никогда такого не делала, учусь всего вторую неделю

[Stilet]

Как и когда заполнять то что написано ниже "карточки"

Дык это... Вводишь в Эдиты и жмешь кнопку на форме...