Shorting code lines within one loop

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 455,969 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,760 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Pascal and Delphi advertiser: Programming Forums

Thread Tools Display Modes

Views: 709 | Replies: 2

•

Join Date: Nov 2007

Posts: 29

Reputation: ferhatkuskaya is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

ferhatkuskaya ferhatkuskaya is offline

Offline

Light Poster

Shorting code lines within one loop

Nov 26th, 2007

Again hi. I want to learn about how I will write these two components :Label and Memo using one loop such as "for" loop in delphi. For example: I have 50 memo and I m transferring the strings in line 1 to labels. Can you help me about how I will short the these code lines within one loops
As if :

DisplayForm.Label7.Caption:=Anaform.Memo1.Lines[0];
DisplayForm.Label8.Caption:=Anaform.Memo2.Lines[0];
DisplayForm.Label9.Caption:=Anaform.Memo3.Lines[0];
DisplayForm.Label10.Caption:=Anaform.Memo4.Lines[0];
DisplayForm.Label11.Caption:=Anaform.Memo5.Lines[0];
-------------------------------------------------------------------
-------------------------------------------------------------------
--------------------------------------------------------------------
DisplayForm.Label70.Caption:=Anaform.Memo50.Lines[0];
I want to short in the for loop like that:
for i:=1 to 70 do
begin
displayForm.label[i].Caption:=Anaform.Memo[i].Lines[0]
end; thus I will be able to pass values to labels within only one code line instead 50 or 100 code lines.
Regards Ferhat .....

•

Join Date: Oct 2007

Location: Cherry Hill, NJ

Posts: 1,878

Reputation: Duoas is a splendid one to behold

Rep Power: 13

Solved Threads: 193

Duoas

Offline

Posting Virtuoso

Re: Shorting code lines within one loop

Nov 26th, 2007

Look in your documentation for TComponent.FindComponent.

You can say something like:

 Help with Code Tags 
 Delphi Syntax (Toggle Plain Text) 
for i := 1 to 50 do
  tLabel(DisplayForm.findComponent('Label' +intToStr(i))).caption :=
  tMemo(AnaForm.findComponent('Memo' +intToStr(i))).lines[0];
for i := 1 to 50 do
  tLabel(DisplayForm.findComponent('Label' +intToStr(i))).caption :=
  tMemo(AnaForm.findComponent('Memo' +intToStr(i))).lines[0];

Untested!