Could you tell me what is wrong or missing for my coding?

Question

turbomen 0 Junior Poster

14 Years Ago

Dear All,

Cheers,

unit Example3;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  sum, average: integer;
begin
  sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+StrToInt(Edit4.Text)+StrToInt(Edit5.Text);
  average:=sum div 5;
  Edit6.Text:=IntToStr(sum);
  Edit7.Text:=IntToStr(average);
end;

end.

pascal

6 Contributors
24 Replies
181 Views
1 Week Discussion Span
Latest Post 14 Years Ago Latest Post by finalist

All 24 Replies

PatrickSharp 3 Newbie Poster

14 Years Ago

Dear All,
Could you tell me what is wrong or missing for my coding?
Cheers,
...

Is there a specific problem that you are running into? The code works just fine with Lazarus and Delphi both.

finalist 1 Junior Poster in Training

14 Years Ago

The method:

procedure TForm1.Button1Click(Sender: TObject);
var
  sum, average: integer;
begin
  sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text)+StrToInt(Edit3.Text)
  +StrToInt(Edit4.Text)+StrToInt(Edit5.Text);
  average:=sum div 5;
  Edit6.Text:=IntToStr(sum);
  Edit7.Text:=IntToStr(average);
end;

must to be attached to the Button1's Event OnCLick, othrwise it does not work ....

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

Example3.zip (8.2 KB)

FlamingClaw 98 Posting Pro

14 Years Ago

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var sum,average:extended;
    s:string;
begin    sum:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit3.text)+strtofloat(edit4.text)+strtofloat(edit5.text);
    average:=sum / 5;
    s:=floattostr(sum);
    edit6.Text:=s;
    s:=floattostr(average);
    edit7.Text:=s;
end;

end.
(*created by FlamingClaw  2010.02.24.Hungary*)

Edited 14 Years Ago by FlamingClaw because: n/a

FlamingClaw 98 Posting Pro

14 Years Ago

I hope this helps

Edited 14 Years Ago by FlamingClaw because: n/a

FlamingClaw 98 Posting Pro

14 Years Ago

I made the solution, look at that:

(*

this is your sum button :

procedure TForm1.Button1Click(Sender: TObject);
var
  sum, average: integer;
begin
  sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+
  StrToInt(Edit4.Text)+StrToInt(Edit5.Text);
  average:=sum div 5;
  Edit6.Text:=IntToStr(sum);
  Edit7.Text:=IntToStr(average);
end;

average and sum are local variables,put them global,then all buttons can reach them
you can disable the average button so it will reachable when the sum button pressed.
*)
unit Example3;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sum, average: integer;   (*here are your variables,in the global section*)

implementation

{$R *.dfm}

(*the user must be press it first*)
procedure TForm1.Button1Click(Sender: TObject);
begin
  sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+
  StrToInt(Edit4.Text)+StrToInt(Edit5.Text);
  Edit6.Text:=IntToStr(sum);
  button2.Enabled:=true;
end;


(*counts the average of the sum,but it cannot be pressed while sum button set it enable*)
procedure TForm1.Button2Click(Sender: TObject);
begin
  average:=sum div 5;
  Edit7.Text:=IntToStr(average);
end;

(*here disable the button2,when the main form shows itself*)
procedure TForm1.FormShow(Sender: TObject);
begin
  edit6.Text:='';
  edit7.Text:='';
  button2.Enabled:=false;
end;

end.
(*fixed by FlamingClaw 2010.02.25.Hungary*)

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

turbomen 0 Junior Poster · Answer 1 · 2010-02-24T08:16:59+00:00

turbomen 0 Junior Poster

14 Years Ago

Is there a specific problem that you are running into? The code works just fine with Lazarus and Delphi both.

Sorry,

I forget to attach the document.

Cheers,

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

Example3.zip (216.39 KB)

turbomen 0 Junior Poster · Answer 2 · 2010-02-25T10:16:38+00:00

Hi FlamingClaw,

Long time no see, how are you?

Thank you for your help but it does not work as well.

Cheers,

turbomen 0 Junior Poster · Answer 3 · 2010-02-25T12:24:49+00:00

I hope this helps

Hi,

I found that Delphi6 is not suitable to work on these exercises. Could you tell me what software(s) is / are suitable?

Cheers,

turbomen 0 Junior Poster · Answer 4 · 2010-02-25T12:37:35+00:00

Sorry Sir,

The result is the same. It does not help.

Cheers,

FlamingClaw 98 Posting Pro · Answer 5 · 2010-02-25T13:35:41+00:00

I working under windows 7.Programming with borland Pascal 7.0 and delphi 7.My code is working well.

finalist 1 Junior Poster in Training · Answer 6 · 2010-02-27T17:53:49+00:00

turbomen,
Could you explain, why in your Example3.zip the method procedure TForm1.Button1Click(Sender: TObject); is not assigned with the Event of Button1 OnClick ?
This is the reason your example does not work at all ....
I did upload here my example which works fine some days ago ....
May be you did not try it ?
Gud luck :!:

turbomen 0 Junior Poster · Answer 7 · 2010-03-01T07:56:47+00:00

turbomen,
Could you explain, why in your Example3.zip the method procedure TForm1.Button1Click(Sender: TObject); is not assigned with the Event of Button1 OnClick ?
This is the reason your example does not work at all ....
I did upload here my example which works fine some days ago ....
May be you did not try it ?
Gud luck :!:

Dear Sir,

How can I use a For loop and a TImage components to produce the animation?

I need your help,

Cheers,

finalist 1 Junior Poster in Training · Answer 8 · 2010-03-01T14:19:56+00:00

finalist 1 Junior Poster in Training

14 Years Ago

Your project works fine after I did remove a line from TonyProject1.dpr

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

ProjectsSprite.zip (29.7 KB)

turbomen 0 Junior Poster · Answer 9 · 2010-03-01T14:30:56+00:00

Your project works fine after I did remove a line from TonyProject1.dpr

Thank you for your kind reply but could you tell me how can I change to For Loop?

Cheers,

finalist 1 Junior Poster in Training · Answer 10 · 2010-03-01T14:40:29+00:00

finalist 1 Junior Poster in Training

14 Years Ago

Download the project below, it works using a For Loop:

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

ProjectSprite2.zip (27.19 KB)

Edited 14 Years Ago by finalist because: n/a

hosamath 0 Newbie Poster · Answer 11 · 2010-03-01T15:25:51+00:00

TO show the result better use TLabel than using TEdit... It will work...

hosamath 0 Newbie Poster · Answer 12 · 2010-03-01T15:36:39+00:00

Use TLabel to display the result than using TEdit...
TLabel.caption:=inttostr(sum);

finalist 1 Junior Poster in Training · Answer 13 · 2010-03-01T16:45:08+00:00

Use TLabel to display the result than using TEdit...
TLabel.caption:=inttostr(sum);

Do you mean about another project, different from project about animation ?

finalist 1 Junior Poster in Training · Answer 14 · 2010-03-01T23:31:11+00:00

finalist 1 Junior Poster in Training

14 Years Ago

Below is an example ProjectSum about For loop using Edits and Labels:

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

ProjectSum.zip (6.82 KB)

turbomen 0 Junior Poster · Answer 15 · 2010-03-04T14:26:07+00:00

Below is an example ProjectSum about For loop using Edits and Labels:

Thank you for your help at the last time. I have tried to re-do the question by myself. Could you tell me what is wrong or missing for the attached document?

Cheers,

finalist 1 Junior Poster in Training · Answer 16 · 2010-03-05T00:13:07+00:00

Thank you for your help at the last time. I have tried to re-do the question by myself. Could you tell me what is wrong or missing for the attached document?
Cheers,

The following code is from your attached document:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  count: integer; { this variable is declared on a wrong place }

procedure TForm1.Button1Click(Sender: TObject);
{ Here is missing a declaration about variable count: integer; }
begin
  { Here is missing a FOR loop using the variable count }
  Image1.Picture.LoadFromFile('T'+ IntToStr(count)+'.bmp');
  sleep(100);
  update;
  { Here is missing an end about FOR loop }
end;

{ Here is missing a method Button2Click }

end.

turbomen 0 Junior Poster · Answer 17 · 2010-03-05T11:30:38+00:00

turbomen 0 Junior Poster

14 Years Ago

Dear Sir,

Thank you for your kind help and I have a new question. I have followed the demo to do the same thing but it does not work.

Please help me to have a look.

Cheers,

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

Demo.zip (325.49 KB)

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

MyAssignment.zip (42.66 KB)

ZGURU 0 Newbie Poster · Answer 18 · 2010-03-05T14:24:42+00:00

You can not use "sum" as a variable, as it is a Delphi assigned procedure, just change the name of your variable and it should work.

finalist 1 Junior Poster in Training · Answer 19 · 2010-03-05T16:00:48+00:00

Soryy,
but it is not fair to answer so many different questions in one thread.
Every diffrerent question must to be asked in a new thread.

Could you tell me what is wrong or missing for my coding?

Recommended Answers Collapse Answers

All 24 Replies

Recommended Answers