Entwickler-Ecke
Sonstiges (Delphi) - "Length" auf mehrere Edit Felder festlegen!
sonic159 - Sa 13.05.06 17:20
Titel: "Length" auf mehrere Edit Felder festlegen!
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> - Sa 13.05.06 17:58
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 - So 14.05.06 12:30
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.
Martin1966 - Mo 15.05.06 08:43
Titel: Re: "Length" auf mehrere Edit Felder festlegen!
| sonic159 hat folgendes geschrieben: |
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:
Delphi-Quelltext
1:
| Button1.Enabled := (Length(Edit1.Text) >= 9); |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!