Looping , Help please!!!

Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.

My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
Here is my code

unit Unit2;

interface

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

type
TfrmLooping = class(TForm)
gpbFirstLoop: TGroupBox;
gpbSecondLoop: TGroupBox;
lblStart: TLabel;
lblEnd: TLabel;
lblStart2: TLabel;
lblEnd2: TLabel;
lblInitialString: TLabel;
edtStringInitial: TEdit;
lblFinalString: TLabel;
edtStringOutput: TEdit;
sedStartFirst: TSpinEdit;
sedEndFirst: TSpinEdit;
sedStartSecond: TSpinEdit;
sedEndSecond: TSpinEdit;
btnLoop: TButton;
procedure btnLoopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmLooping: TfrmLooping;

implementation

{$R *.dfm}

procedure TfrmLooping.btnLoopClick(Sender: TObject);
var
sString : String; //Will contain initial string and values of loops
after execution
jIndex : Integer;
iInsex : Integer;
begin

for iIndex // has to count up to a
begin
for jIndex downto x // has to count down to x
begin
sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
end;

end;

end.



Comments

  • : Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.
    :
    : My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
    : Here is my code
    :
    : unit Unit2;
    :
    : interface
    :
    : uses
    : Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    : Dialogs, StdCtrls, Spin;
    :
    : type
    : TfrmLooping = class(TForm)
    : gpbFirstLoop: TGroupBox;
    : gpbSecondLoop: TGroupBox;
    : lblStart: TLabel;
    : lblEnd: TLabel;
    : lblStart2: TLabel;
    : lblEnd2: TLabel;
    : lblInitialString: TLabel;
    : edtStringInitial: TEdit;
    : lblFinalString: TLabel;
    : edtStringOutput: TEdit;
    : sedStartFirst: TSpinEdit;
    : sedEndFirst: TSpinEdit;
    : sedStartSecond: TSpinEdit;
    : sedEndSecond: TSpinEdit;
    : btnLoop: TButton;
    : procedure btnLoopClick(Sender: TObject);
    : private
    : { Private declarations }
    : public
    : { Public declarations }
    : end;
    :
    : var
    : frmLooping: TfrmLooping;
    :
    : implementation
    :
    : {$R *.dfm}
    :
    : procedure TfrmLooping.btnLoopClick(Sender: TObject);
    : var
    : sString : String; //Will contain initial string and values of loops
    : after execution
    : jIndex : Integer;
    : iInsex : Integer;
    : begin
    :
    : for iIndex // has to count up to a
    : begin
    : for jIndex downto x // has to count down to x
    : begin
    : sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
    : end;
    :
    : end;
    :
    : end.
    :
    First of all Delphi doesn't know, from which control sString needs to get its initial value. You need to set that value before the two loops with a code like this:
    [code]
    sString := edtStringOutput.Text;
    [/code]
    The same goes for the output. Again Delphi has no knowledge of what you want the program to do. So you need to write a code (similar to the one above) to assign the sString to the control you want.
  • : : Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.
    : :
    : : My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
    : : Here is my code
    : :
    : : unit Unit2;
    : :
    : : interface
    : :
    : : uses
    : : Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    : : Dialogs, StdCtrls, Spin;
    : :
    : : type
    : : TfrmLooping = class(TForm)
    : : gpbFirstLoop: TGroupBox;
    : : gpbSecondLoop: TGroupBox;
    : : lblStart: TLabel;
    : : lblEnd: TLabel;
    : : lblStart2: TLabel;
    : : lblEnd2: TLabel;
    : : lblInitialString: TLabel;
    : : edtStringInitial: TEdit;
    : : lblFinalString: TLabel;
    : : edtStringOutput: TEdit;
    : : sedStartFirst: TSpinEdit;
    : : sedEndFirst: TSpinEdit;
    : : sedStartSecond: TSpinEdit;
    : : sedEndSecond: TSpinEdit;
    : : btnLoop: TButton;
    : : procedure btnLoopClick(Sender: TObject);
    : : private
    : : { Private declarations }
    : : public
    : : { Public declarations }
    : : end;
    : :
    : : var
    : : frmLooping: TfrmLooping;
    : :
    : : implementation
    : :
    : : {$R *.dfm}
    : :
    : : procedure TfrmLooping.btnLoopClick(Sender: TObject);
    : : var
    : : sString : String; //Will contain initial string and values of loops
    : : after execution
    : : jIndex : Integer;
    : : iInsex : Integer;
    : : begin
    : :
    : : for iIndex // has to count up to a
    : : begin
    : : for jIndex downto x // has to count down to x
    : : begin
    : : sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
    : : end;
    : :
    : : end;
    : :
    : : end.
    : :
    : First of all Delphi doesn't know, from which control sString needs to get its initial value. You need to set that value before the two loops with a code like this:
    : [code]
    : sString := edtStringOutput.Text;
    : [/code]
    : The same goes for the output. Again Delphi has no knowledge of what you want the program to do. So you need to write a code (similar to the one above) to assign the sString to the control you want.
    :
    There're also some syntax issue's
    like
    [code]
    for I [blue]:= 0[/blue] to X do
    [/code]


  • : : : Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.
    : : :
    : : : My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
    : : : Here is my code
    : : :
    : : : unit Unit2;
    : : :
    : : : interface
    : : :
    : : : uses
    : : : Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    : : : Dialogs, StdCtrls, Spin;
    : : :
    : : : type
    : : : TfrmLooping = class(TForm)
    : : : gpbFirstLoop: TGroupBox;
    : : : gpbSecondLoop: TGroupBox;
    : : : lblStart: TLabel;
    : : : lblEnd: TLabel;
    : : : lblStart2: TLabel;
    : : : lblEnd2: TLabel;
    : : : lblInitialString: TLabel;
    : : : edtStringInitial: TEdit;
    : : : lblFinalString: TLabel;
    : : : edtStringOutput: TEdit;
    : : : sedStartFirst: TSpinEdit;
    : : : sedEndFirst: TSpinEdit;
    : : : sedStartSecond: TSpinEdit;
    : : : sedEndSecond: TSpinEdit;
    : : : btnLoop: TButton;
    : : : procedure btnLoopClick(Sender: TObject);
    : : : private
    : : : { Private declarations }
    : : : public
    : : : { Public declarations }
    : : : end;
    : : :
    : : : var
    : : : frmLooping: TfrmLooping;
    : : :
    : : : implementation
    : : :
    : : : {$R *.dfm}
    : : :
    : : : procedure TfrmLooping.btnLoopClick(Sender: TObject);
    : : : var
    : : : sString : String; //Will contain initial string and values of loops
    : : : after execution
    : : : jIndex : Integer;
    : : : iInsex : Integer;
    : : : begin
    : : :
    : : : for iIndex // has to count up to a
    : : : begin
    : : : for jIndex downto x // has to count down to x
    : : : begin
    : : : sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
    : : : end;
    : : :
    : : : end;
    : : :
    : : : end.
    : : :
    : : First of all Delphi doesn't know, from which control sString needs to get its initial value. You need to set that value before the two loops with a code like this:
    : : [code]
    : : sString := edtStringOutput.Text;
    : : [/code]
    : : The same goes for the output. Again Delphi has no knowledge of what you want the program to do. So you need to write a code (similar to the one above) to assign the sString to the control you want.
    : :
    : There're also some syntax issue's
    : like
    : [code]
    : for I [blue]:= 0[/blue] to X do
    : [/code]
    :
    :
    :

  • : : : Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.
    : : :
    : : : My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
    : : : Here is my code
    : : :
    : : : unit Unit2;
    : : :
    : : : interface
    : : :
    : : : uses
    : : : Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    : : : Dialogs, StdCtrls, Spin;
    : : :
    : : : type
    : : : TfrmLooping = class(TForm)
    : : : gpbFirstLoop: TGroupBox;
    : : : gpbSecondLoop: TGroupBox;
    : : : lblStart: TLabel;
    : : : lblEnd: TLabel;
    : : : lblStart2: TLabel;
    : : : lblEnd2: TLabel;
    : : : lblInitialString: TLabel;
    : : : edtStringInitial: TEdit;
    : : : lblFinalString: TLabel;
    : : : edtStringOutput: TEdit;
    : : : sedStartFirst: TSpinEdit;
    : : : sedEndFirst: TSpinEdit;
    : : : sedStartSecond: TSpinEdit;
    : : : sedEndSecond: TSpinEdit;
    : : : btnLoop: TButton;
    : : : procedure btnLoopClick(Sender: TObject);
    : : : private
    : : : { Private declarations }
    : : : public
    : : : { Public declarations }
    : : : end;
    : : :
    : : : var
    : : : frmLooping: TfrmLooping;
    : : :
    : : : implementation
    : : :
    : : : {$R *.dfm}
    : : :
    : : : procedure TfrmLooping.btnLoopClick(Sender: TObject);
    : : : var
    : : : sString : String; //Will contain initial string and values of loops
    : : : after execution
    : : : jIndex : Integer;
    : : : iInsex : Integer;
    : : : begin
    : : :
    : : : for iIndex // has to count up to a
    : : : begin
    : : : for jIndex downto x // has to count down to x
    : : : begin
    : : : sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
    : : : end;
    : : :
    : : : end;
    : : :
    : : : end.
    : : :
    : : First of all Delphi doesn't know, from which control sString needs to get its initial value. You need to set that value before the two loops with a code like this:
    : : [code]
    : : sString := edtStringOutput.Text;
    : : [/code]
    : : The same goes for the output. Again Delphi has no knowledge of what you want the program to do. So you need to write a code (similar to the one above) to assign the sString to the control you want.
    : :
    : There're also some syntax issue's
    : like
    : [code]
    : for I [blue]:= 0[/blue] to X do
    : [/code]
    :
    :
    :

  • : : : : Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.
    : : : :
    : : : : My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
    : : : : Here is my code
    : : : :
    : : : : unit Unit2;
    : : : :
    : : : : interface
    : : : :
    : : : : uses
    : : : : Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    : : : : Dialogs, StdCtrls, Spin;
    : : : :
    : : : : type
    : : : : TfrmLooping = class(TForm)
    : : : : gpbFirstLoop: TGroupBox;
    : : : : gpbSecondLoop: TGroupBox;
    : : : : lblStart: TLabel;
    : : : : lblEnd: TLabel;
    : : : : lblStart2: TLabel;
    : : : : lblEnd2: TLabel;
    : : : : lblInitialString: TLabel;
    : : : : edtStringInitial: TEdit;
    : : : : lblFinalString: TLabel;
    : : : : edtStringOutput: TEdit;
    : : : : sedStartFirst: TSpinEdit;
    : : : : sedEndFirst: TSpinEdit;
    : : : : sedStartSecond: TSpinEdit;
    : : : : sedEndSecond: TSpinEdit;
    : : : : btnLoop: TButton;
    : : : : procedure btnLoopClick(Sender: TObject);
    : : : : private
    : : : : { Private declarations }
    : : : : public
    : : : : { Public declarations }
    : : : : end;
    : : : :
    : : : : var
    : : : : frmLooping: TfrmLooping;
    : : : :
    : : : : implementation
    : : : :
    : : : : {$R *.dfm}
    : : : :
    : : : : procedure TfrmLooping.btnLoopClick(Sender: TObject);
    : : : : var
    : : : : sString : String; //Will contain initial string and values of loops
    : : : : after execution
    : : : : jIndex : Integer;
    : : : : iInsex : Integer;
    : : : : begin
    : : : :
    : : : : for iIndex // has to count up to a
    : : : : begin
    : : : : for jIndex downto x // has to count down to x
    : : : : begin
    : : : : sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
    : : : : end;
    : : : :
    : : : : end;
    : : : :
    : : : : end.
    : : : :
    : : : First of all Delphi doesn't know, from which control sString needs to get its initial value. You need to set that value before the two loops with a code like this:
    : : : [code]
    : : : sString := edtStringOutput.Text;
    : : : [/code]
    : : : The same goes for the output. Again Delphi has no knowledge of what you want the program to do. So you need to write a code (similar to the one above) to assign the sString to the control you want.
    : : :
    : : There're also some syntax issue's
    : : like
    : : [code]
    : : for I [blue]:= 0[/blue] to X do
    : : [/code]
    : :
    : :
    : :
    :
    :

  • : : : : : Im trying to solve this problem but im still learning and im finding it hard , so please any help will be much appreciated...thanks.
    : : : : :
    : : : : : My user interface is used to enter control variable values for both my loops, and the initial string value.I want my string value after execution of the nested loop to present as output.But i just cant get it to work.Where am i going wrong.
    : : : : : Here is my code
    : : : : :
    : : : : : unit Unit2;
    : : : : :
    : : : : : interface
    : : : : :
    : : : : : uses
    : : : : : Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    : : : : : Dialogs, StdCtrls, Spin;
    : : : : :
    : : : : : type
    : : : : : TfrmLooping = class(TForm)
    : : : : : gpbFirstLoop: TGroupBox;
    : : : : : gpbSecondLoop: TGroupBox;
    : : : : : lblStart: TLabel;
    : : : : : lblEnd: TLabel;
    : : : : : lblStart2: TLabel;
    : : : : : lblEnd2: TLabel;
    : : : : : lblInitialString: TLabel;
    : : : : : edtStringInitial: TEdit;
    : : : : : lblFinalString: TLabel;
    : : : : : edtStringOutput: TEdit;
    : : : : : sedStartFirst: TSpinEdit;
    : : : : : sedEndFirst: TSpinEdit;
    : : : : : sedStartSecond: TSpinEdit;
    : : : : : sedEndSecond: TSpinEdit;
    : : : : : btnLoop: TButton;
    : : : : : procedure btnLoopClick(Sender: TObject);
    : : : : : private
    : : : : : { Private declarations }
    : : : : : public
    : : : : : { Public declarations }
    : : : : : end;
    : : : : :
    : : : : : var
    : : : : : frmLooping: TfrmLooping;
    : : : : :
    : : : : : implementation
    : : : : :
    : : : : : {$R *.dfm}
    : : : : :
    : : : : : procedure TfrmLooping.btnLoopClick(Sender: TObject);
    : : : : : var
    : : : : : sString : String; //Will contain initial string and values of loops
    : : : : : after execution
    : : : : : jIndex : Integer;
    : : : : : iInsex : Integer;
    : : : : : begin
    : : : : :
    : : : : : for iIndex // has to count up to a
    : : : : : begin
    : : : : : for jIndex downto x // has to count down to x
    : : : : : begin
    : : : : : sString := sString + IntToStr(iIndex) + IntToStr(jIndex);
    : : : : : end;
    : : : : :
    : : : : : end;
    : : : : :
    : : : : : end.
    : : : : :
    : : : : First of all Delphi doesn't know, from which control sString needs to get its initial value. You need to set that value before the two loops with a code like this:
    : : : : [code]
    : : : : sString := edtStringOutput.Text;
    : : : : [/code]
    : : : : The same goes for the output. Again Delphi has no knowledge of what you want the program to do. So you need to write a code (similar to the one above) to assign the sString to the control you want.
    : : : :
    : : : There're also some syntax issue's
    : : : like
    : : : [code]
    : : : for I [blue]:= 0[/blue] to X do
    : : : [/code]
    : : :
    : : :
    : : : Sorry I understand that i have to assign a value to the string so that it can add to my final string but my program has two loops one loop will loop in my first groupbox between the start and end loop spinedit buttons and the other one will loop in the second groupbox between the start and end spinbuttons.I then wanna add both the results obtained from the two different loops in the groupboxes and add it to my final string edit box.
    : :
    : :
    :
    :

Sign In or Register to comment.

Howdy, Stranger!

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

Categories