Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

What Am I doing wrong?

kops147kops147 South AfricaPosts: 0Member

Hello,

I have created my own method which receives values from 2 spin edits but for some reason program is not compiling, when I am unable to call my procedure form the button.

Error messages I receive:
[dcc32 Error] Ass13.pas(50): E2066 Missing operator or semicolon
[dcc32 Error] Ass13.pas(50): E2003 Undeclared identifier: 'GramOff'
[dcc32 Error] Ass13.pas(51): E2003 Undeclared identifier: 'lblResults'
[dcc32 Error] Ass13.pas(51): E2066 Missing operator or semicolon
[dcc32 Hint] Ass13.pas(22): H2219 Private symbol 'GramsOff' declared but never used
[dcc32 Fatal Error] LstAss13.dpr(5): F2063 Could not compile used unit 'Ass13.pas'
Failed
Elapsed time: 00:00:02.2

Please see code below:

unit Ass13;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin,
Vcl.Buttons;

type
TfrmFee = class(TForm)
btnLoss: TButton;
sedCycle: TSpinEdit;
sedRun: TSpinEdit;
gpbLossResults: TGroupBox;
lblFee: TLabel;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
procedure btnLossClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure GramsOff(HourRun, HourCycle : Integer; var GramOff : String);
public
{ Public declarations }
end;

var
frmFee: TfrmFee;

implementation

{$R *.dfm}

procedure TfrmFee.FormCreate(Sender: TObject);
begin

end;

procedure TfrmFee.GramsOff(HourRun, HourCycle : Integer; var GramOff : String);
Var
TotalCal, GramsLost : Integer;
Begin
HourRun := (sedRun.Value * 475);
HourCycle := (sedCycle.Value * 200);
TotalCal := (HourRun + HourCycle);
GramsLost := (TotalCal * 10 DIV 77);
GramOff := 'Weight loss: ' + IntToStr(GramsLost) + ' grams';
end; //proc CalcFee

procedure TfrmFee.btnLossClick(Sender: TObject);
var
HourRun, HourCycle : integer;
GramsOff : string; //Declare a local varicable FeeStr
begin
GramsOff (HourRun, HourCycle, GramOff);
lblResults.Caption := GramOff;

end;
end.

Sign In or Register to comment.