Edit Felder

[Kroko1999]

oder so

Delphi-Quellcode:

procedure TForm1.CheckEdit;
var
  I: Word;
  Err: Boolean;
  S,V:  Real;
begin
  S := 0;
  Err := False;
  for I := 1 to  12 do
  begin
    try
      V := StrToFloat (TEdit(FindComponent('Edit'+IntToStr(I))).Text);
      S := S+V;
    except
      Err := True;
    end;
  end;
  if Err then ShowMessage ('balblabla')
         else ShowMessage (FloatToStr(S));
end;

Jetzt kannst Du notfalls die Summe auch nach außen transportieren!