Hallo Leute,
Ich hab eine Frage zu Delphi.
Ich habe an die 40 Editfelder, nun wollte ich um nicht bei jedem Editfeld den selben Quelltext zu machen, eine
Prozedur erstellen, welche auf das Aktuelle Editfeld zugreift (Bei OnChange) und dann eben den Befehl ausführt.
Also anstatt
if ELK1.Text = 0 Then...
sondern
if {aktuelles Editfeld}.Text = 0 Then...
Also ist meine Frage nun wie ich es schreiben muss das er wenn er die Prozedur für ien Editfeld ausführt das aktuelle erkennt.
mfg Sudrow
Mein aktueller Quelltext für 1 Editfeld sieht so aus:
Delphi-Quellcode:
procedure THaupt.ELK1Change(Sender: TObject);
begin
try
if ELK1.Text = ''
then
Begin
Km0 := Km0 - 1;
E0K.Text := inttostr(Km0);
End
else
try
If (strtoint(ELK1.Text) >= 0) and (strtoint(ELK1.Text) <= 15)
then
Begin
If strtoint(ELK1.Text) < 5
then
Begin
ELK1.Font.Color := clred;
End
else
ELK1.Font.Color := clblack;
if (strtoint(ELK1.Text) = 0) or (ELK1.Text = '')
then
Begin
ELK1.MaxLength := 1;
Km0 := Km0 + 1;
E0K.Text := inttostr(Km0);
End
else
Begin
Km0 := Km0 - 1;
E0K.Text := inttostr(Km0);
ELK1.MaxLength := 2;
End;
End
Else
Begin
MessageDlg('Der Wert muss zwischen 0 und 15 Punkten liegen.', mtError, [mbOK], 0);
ELK1.Clear;
End;
except
MessageDlg('Bitte einen gültigen Wert eingeben.', mtError, [mbOK], 0);
ELK1.Clear;
end;
except
end;
end;
Programmierung allgemein
Zitat
Baum-Darstellung
