TComponent <> TEdit

[Jakunar]

Wunder schoenes Wochenende an Euch alle!

Ich hab folgendes Problem und spontan keine Ahnung wie ich das umschiffe...

Code:

procedure TForm1.MoveChange(Edit: TEdit);
begin
  if not Ord(Edit.Text[Edit.SelStart-1]) in [Ord('0')..Ord('9')] then
    Edit.Undo;
  if Length(Edit.Text) >= 2 then
    SelectNext(ActiveControl as TWinControl, true, true);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  MyEdit: TEdit;
begin
  for i:=0 to Form1.ComponentCount-1 do
    if Form1.Components[i] is TEdit then
      begin
        MyEdit := Form1.Components[i]; //[Error]: Incompatible types: 'TEdit' and 'TComponent'
        MyEdit.OnChange := MoveChange(Form1.Components[i]);
      end;
end;

Hat rgendwer von Euch vielleicht eine??

Gruss
Jakunar

[mkinzler]

Du musst das Objekt Casten
MyEdit := TEdit(Form1.Components[i]);

[Jakunar]

Alles klar!

Waermsten Dank funktioniert super!

[himitsu]

Hier hattest du ja schon über IS geprüft, ob es ein TEdit ist, weswegen ein harter Cast ala TEdit(Components[i]) ohne Probleme möglich ist.

Wenn es vorher mal nicht geprüft werden sollte, dann besser einen weichen Cast ala (Components[i] as TEdit) verwenden.

PS: Da dieses eh innerhalb der TForm1 steht, ist das Form1. unnötig.
Abgesehn davon solltest du möglichst auf diese globalen Variablen verzichten, da sie eigentlich mehr Schaden, als Nutzen anrichten können.

[Sir Rufo]

Zitat von himitsu:

PS: Da dieses eh innerhalb der TForm1 steht, ist das Form1. unnötig.
Abgesehn davon solltest du möglichst auf diese globalen Variablen verzichten, da sie eigentlich mehr Schaden, als Nutzen anrichten können.

Und wenn man unbedingt da etwas stehen haben möchte, weil dann die Codevervollständigung schöner ist, dann nimmt man Self