"Length" auf mehrere Edit Felder festlegen!

sonic159 · Beiträge: 76 Windows XP BDS 2006 Professional

Hallo!

Ich habe hier einen Codel, der für das Edit Feld ist!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) >= 9 then
begin
  Button1.Enabled := True;
end
else
begin
  Button1.Enabled := False
end;
end;

Wenn ich nun 9 Zahlen in das Edit Feld eingebe wird der Button Freigeschaltet,
wie kann ich das auf mehrere Edit Felder festlegen? Z.B.:
In 4 Edit Felder eine Zahl eingeben, und dan wird der Button Freigeschaltet!

Ich hoffe ihr versteht was ich meine!

MFG: Sonic

Moderiert von raziel: Delphi-Tags hinzugefügt

>spEEd> · Beiträge: 62 Delphi 2005 Pers.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.Ueberpruefen;
begin
  if (Length(Edit1.Text) >= 9) AND (Length(Edit2.Text) >= 9) AND (Length(Edit3.Text) >= 9) AND (Length(Edit4.Text) >= 9) then
    Button1.Enabled := True
  else
    Button.Enabled := False; 
end;


procedure TForm1.Edit1Change(Sender: TObject); 
begin 
  Ueberpruefen;
end;

procedure TForm1.Edit2Change(Sender: TObject); 
begin 
  Ueberpruefen;
end;

procedure TForm1.Edit3Change(Sender: TObject); 
begin 
  Ueberpruefen;
end;

procedure TForm1.Edit4Change(Sender: TObject); 
begin 
  Ueberpruefen;
end;

Hoffe ich hab mich nicht verschrieben ...

>spEEd>

hansa · Beiträge: 3079 Erhaltene Danke: 9

Warum einfach, wenn es auch umständlich geht ? Anstatt für jedes einzelne Edit diesen Code zu schreiben, bietet sich an, eine zentrale Prozedur (protected) zu schreiben und diese den Edits zuzuweisen. Ganz davon abgesehen, daß ein Edit eine MaxLength-Eigenschaft hat.

_________________
Gruß
Hansa

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

sonic159 hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) >= 9 then
begin
  Button1.Enabled := True;
end
else
begin
  Button1.Enabled := False
end;
end;

Das geht auch kürzer:

markieren

Delphi-Quelltext

1:	Button1.Enabled := (Length(Edit1.Text) >= 9);

_________________
Ein Nutzer der Ecke ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme