My Visual Database — How To edit Loop For Clear Multiple Edit Box ?

Re: How To edit Loop For Clear Multiple Edit Box ?

null@example.com (sparrow) — Fri, 28 Jun 2024 11:03:11 +0000

It's not entirely clear what you want to achieve?
Decide on your goal.
It all depends on your task.
1 For example, fields that need to be cleared constantly may have a different name, even with numbers.
You can search by the initial letters of the name on the form and clear them. For example ClrEdit2, ClrEdit11.
2 You can assign a unique TAG to such EDITs and then access them by searching for the value in the TAG.
3 If you want to use a parity check, select for such Edits, for example, the range Edit21...Edit39. Take the name, read 2 characters from the end, convert to an integer, check parity and clear.
But is all this worth replacing 10 lines of code Edit1.clear...Edit10.clear.
If you want to reduce the number of lines in the script, write this:

Form1.Edit1.Clear; Form1.Edit2.Clear; Form1.Edit3.Clear; Form1.Edit4.Clear; Form1.Edit5.Clear;
Form1.Edit6.Clear; Form1.Edit7.Clear; Form1.Edit8.Clear; Form1.Edit9.Clear; Form1.Edit10.Clear;

This is also possible and only two lines.

Re: How To edit Loop For Clear Multiple Edit Box ?

null@example.com (prahousefamily) — Fri, 28 Jun 2024 02:20:49 +0000

jean.brezhonek wrote:

Oups I've forgotten the snippet
JB

Thank JB Script It

procedure frmEmployee_OnClose (Sender: string; Action: string);
var     i,c: integer;
begin
    c := frmEmployee.ComponentCount-1;
    for i := 0 to c do
    begin
        if frmEmployee.Components[i] is TdbEdit then TdbEdit(frmEmployee.Components[i]).Clear;       //  Dans le cas d'un TEdit
        if frmEmployee.Components[i] is TdbMemo then TdbMemo(frmEmployee.Components[i]).Clear;       //  Dans le cas d'un TMemo
    end;
end;
JB

✓ Check IF TdbEdit >>> Clear Thank you JB

Um..... And IF
1. TdbEdit ✓
2. copy(Component_Name,5,Length(Component_Name)) MOD 2 = 0
How Do Edit Scipt ???

Form1.Edit1.Text
Form1.Edit2.Clear // Because (1. TdbEdit)+ (2. Component_Name MOD 2 = 0)
Form1.Edit3.Text
Form1.Edit4.Clear // Because (1. TdbEdit)+ (2. Component_Name MOD 2 = 0)

Re: How To edit Loop For Clear Multiple Edit Box ?

null@example.com (jean.brezhonek) — Thu, 27 Jun 2024 06:15:02 +0000

Oups I've forgotten the snippet
JB

Re: How To edit Loop For Clear Multiple Edit Box ?

null@example.com (jean.brezhonek) — Thu, 27 Jun 2024 06:13:41 +0000

Hello Prahousefamily
You could use this snippet.
often use it and it makes the job.
JB

How To edit Loop For Clear Multiple Edit Box ?

null@example.com (prahousefamily) — Thu, 27 Jun 2024 03:24:18 +0000

I want to clear multiple edit boxes using the Loop method to reduce the number of lines in scripting.
Normally I write

Form1.Edit1.Clear ;
Form1.Edit2.Clear ;
Form1.Edit3.Clear ;
Form1.Edit4.Clear ;
Form1.Edit5.Clear ;
Form1.Edit6.Clear ;
Form1.Edit7.Clear ;
Form1.Edit8.Clear ;
Form1.Edit9.Clear ;
Form1.Edit10.Clear;

But if I want to write a Loop?

For i := 1 To 10 do
  begin
    Form1.Edit[i].Clear ; // How To Edit Script 
  end;

Help Me Please ?