Zmienna za obiekt (zagmatwalem :))

// --- sprawdza czy wpisany ciąg znaków jest liczbą
function CheckString (s:string):boolean;
var v,code:integer;
begin
  Val(s,v,code);
    if code=0 then result:=true else result:=false;
end;

Napisalem taka funkcje po to zeby sprawdzic czy wpisywane znaki w EDIT'a sa cyframi, no i teraz chcialem tej funkcji uzyc, no i uzywam:

procedure TMainForm.Edit5Change(Sender: TObject);
begin
 if not CheckString(Edit5.Text) then ShowMessage('To nie jest liczba');
end;

i chcialem to jakos uproscic, poniewaz na formie jest takich editów sporo, zeby uzyc tego jakos ciekawiej, jakie mozliwosci???

I drugie, co oznacza zmienna Sender typu TObject. Jaki obiekt ona przechowuje w procedurze TMainForm.Edit5Change(Sender: TObject);

Dla każdego Edita wybierz w OI tą samą procedurę obsługującą zdarzenie Change, potem (Sender as TEdit).text

Wystarczy jedna procedurka dla wszystkich editów

procedure TMainForm.EditChange(Sender: TObject);
begin
 if not CheckString(TEdit(Sender).Text) then 
  ShowMessage('To nie jest liczba');
end;