Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 270
  • Last Modified:

Howto: Updating a TEdit component?

Hi experts,

I have a program with these components: 1 form, 1 Tedit and 3 TCheckboxes

I connected the three checkboxes with the figures "5" ,"3" and "7" .

Now I want to achieve that the Tedit displays the status (selected/not selected)
of the checkboxes.

For example if the checkbox with the "1" and the checkbox with the "3" are clicked",
the TEdit should display the figure "4", because 1+3 = 4.

The TEdit should be always updated, whenever I make a mouse-click on one of the 3
checkboxes.

Has anyone of you an idea, how this could be accomplished?

With kind regards

Mathes
0
mathes
Asked:
mathes
  • 4
  • 2
1 Solution
 
kretzschmarCommented:
hi mathes,

what about this?

const Multipler : Array[False..True] of Integer = (0,1);

//this procedure is assigned to all checkbox.Onclick-event
procedure TForm1.CheckBox1Click(Sender: TObject);
var I : Integer;
begin
  I := (1 * Multipler[Checkbox1.checked]) +
       (2 * Multipler[Checkbox2.checked]) +
       (3 * Multipler[Checkbox3.checked]) +
       (4 * Multipler[Checkbox4.checked]);
  edit1.text := IntToStr(I);
end;

meikl
0
 
ITugayCommented:

set onClick event for all checkboxes to CheckBox1Clik1
{
CheckBox1.onClick = CheckBox1Click
CheckBox2.onClick = CheckBox1Click
CheckBox3.onClick = CheckBox1Click
}

procedure TForm1.CheckBox1Click(Sender: TObject);
var SUM : integer;
begin
     SUM:=0;
     if CheckBox1.Checked then SUM:=StrToInt(CheckBox1.Caption);    
     if CheckBox2.Checked then SUM:=SUM+StrToInt(CheckBox2.Caption);    
     if CheckBox3.Checked then SUM:=SUM+StrToInt(CheckBox3.Caption);    
     Edit1.Text:=IntToStr(SUM);
end;

Cheers,
Igor.

PS: Captions (figures) on checkbox must be able to convert to numeric value.
0
 
ITugayCommented:

set onClick event for all checkboxes to CheckBox1Clik1
{
CheckBox1.onClick = CheckBox1Click
CheckBox2.onClick = CheckBox1Click
CheckBox3.onClick = CheckBox1Click
}

procedure TForm1.CheckBox1Click(Sender: TObject);
var SUM : integer;
begin
     SUM:=0;
     if CheckBox1.Checked then SUM:=StrToInt(CheckBox1.Caption);    
     if CheckBox2.Checked then SUM:=SUM+StrToInt(CheckBox1.Caption);    
     if CheckBox3.Checked then SUM:=SUM+StrToInt(CheckBox1.Caption);    
     Edit1.Text:=IntToStr(SUM);
end;

Cheers,
Igor.

PS: Captions (figures) on checkbox must be able to convert to numeric value.
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
ITugayCommented:
Good morning, Meikl!
0
 
kretzschmarCommented:
hi igor ;-)
where are you from?


hi mathes,

more independent, based on my first sample

const Multipler : Array[False..True] of Integer = (0,1);

//all checkboxes now on a panel for better iterating
//and the Checkbox-Caption holds the value, which should added
//this procedure is assigned to all checkbox.Onclick-event
procedure TForm1.CheckBox1Click(Sender: TObject);
var I,J : Integer;
begin
  I := 0;
  for j := 0 to panel1.ControlCount - 1 do
    if (panel1.Controls[J] is TCheckBox) then
      I := I + (StrToInt(TCheckBox(panel1.Controls[J]).Caption) *
                Multipler[TCheckBox(panel1.Controls[J]).Checked]);
  edit1.text := IntToStr(I);
end;

meikl
0
 
ITugayCommented:
Hi Meikl,
I'm from Almaty (GMT+6).
You can mail me igor@novell.kz
or call (7) 300-711-6527 (cell ;-)

0
 
mathesAuthor Commented:
Hi experts,

thank you for your help. This is exactly what I was looking for.

With kind regards

Mathes
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now