Edit soll nur Zahlen enthalten dürfen

[Armageddon]

Hi,

ist zwar schon ein paar Tage alt der Thread hier aber ich hab da mal sowas in der Art gemacht. Wollte das man in meinem Programm nur Zahlen einfügen kann. Ohne Vorzeichen und nur mit Komma als Nachkommastellentrenner.

Delphi-Quellcode:

procedure TForm1.Einfuegen1Click(Sender: TObject);
var
  Eingabe: String;
  i, i2: Integer;
begin
  begin
    if not Clipboard.HasFormat(CF_Text) then
    begin
      Application.MessageBox('Zwischenablage enthält Bilder oder sonstige ' +
      'Daten aber keinen Text!', 'Meldung',48);
      Exit;
    end;
    if Clipboard.HasFormat(CF_Text) then
    begin
      Eingabe := Clipboard.AsText;
      i := Length(Eingabe);
      for i2 := 1 to i do
      begin
        if not (Eingabe[i2] in [#44, #48..#57]) then
        begin
          Application.MessageBox('Kein gültiges Zahlenformt in der ' +
          'Zwischenablage vorhanden!', 'Meldung',48);
          Exit;
        end;
      end;
      if Pos(',', Eingabe) > 0 then
      begin
        for i2 := Pos(',', Eingabe) +1 to i do
        begin
          if Eingabe[i2] = ',' then
          begin
            Application.MessageBox('Kein gültiges Zahlenformt in der ' +
            'Zwischenablage vorhanden!', 'Meldung',48);
            Exit;
          end;
        end;
      end;
    end;
  end;
  (PopupMenu1.PopupComponent as TEdit).Text := Eingabe;
end;

Gruß Arma.