Edit Felder

[Matze]

Falls du die EIngabe gleich mit überprüfen möchtest:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Erg: double;
begin
  Erg := 0;

  for i := 1 to 12 do
    Erg := Erg + StrToFloat((FindComponent('Edit' + IntToStr(i)) as TEdit).Text);

  if Erg <> 1 then
    if MessageDlg('Die Summe der 12 Monate muss 1 ergeben, aktuelle Summe: ' + FloatToStr(Erg) + '. Bitte korrigieren', mtWarning, [mbYes], 0) = mrYes then
      Button2.Enabled := false
end;

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  //Nur Ziffern, Backspace, Punkt und Komma zulassen
  if not (Key in [#48..#57, #8, '.', ',']) then
    key := #0;

  //Punkt durch Komma ersetzen
  if key = '.' then
    key := ',';
end;