Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: Überprüfen von Edit

   
    by UliBru, 16. Feb 2012
  Was denn dazu führt, dass man dann zwangsweise etwas eingeben MUSS, ansonsten reagiert das Programm auch nicht mehr auf Buttons etc.
  Also dann vielleicht noch auf einen leeren String abfragen.
  procedure frmMain.edPortExit(Sender: TObject);
  var temp : Integer;
  begin
  if (edPort.Text <> '') and not TryStrToInt(edPort.Text, temp) then
  (sender as TEdit).setFocus;
  end;