object Form1: TForm1 Left = 292 Top = 144 BorderStyle = bsToolWindow Caption = 'Programm Beispiel' ClientHeight = 314 ClientWidth = 378 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 64 Top = 80 Width = 3 Height = 13 end object Ausgabe: TLabel Left = 64 Top = 192 Width = 3 Height = 13 end object Menu: TLabel Left = 64 Top = 160 Width = 3 Height = 13 end object Label2: TLabel Left = 64 Top = 56 Width = 21 Height = 13 Caption = 'Zahl' end object Button1: TButton Left = 248 Top = 104 Width = 75 Height = 25 Caption = 'Start' TabOrder = 0 OnClick = Button1Click end object MainMenu1: TMainMenu object OrdinaleDatentypen1: TMenuItem Caption = 'Ordinale Routinen' object Dec1: TMenuItem Caption = 'Dec' OnClick = Dec1Click end object Inc1: TMenuItem Caption = 'Inc' OnClick = Inc1Click end object Pred1: TMenuItem Caption = 'Pred' OnClick = Pred1Click end object Succ1: TMenuItem Caption = 'Succ' OnClick = Succ1Click end end object ArithmetischeRoutinen1: TMenuItem Caption = 'Arithmetische Routinen' object runc1: TMenuItem Caption = 'Trunc' OnClick = runc1Click end object Odd1: TMenuItem Caption = 'Odd' OnClick = Odd1Click end object Frac1: TMenuItem Caption = 'Frac' OnClick = Frac1Click end end object Konvertierungsroutinen1: TMenuItem Caption = 'Konvertierung' object StrToIntDef1: TMenuItem Caption = 'StrToIntDef' OnClick = StrToIntDef1Click end object FloatToDecimal1: TMenuItem Caption = 'FloatToDecimal' OnClick = FloatToDecimal1Click end object FloatToStrF1: TMenuItem Caption = 'FloatToStrF' OnClick = FloatToStrF1Click end object FormatFloat1: TMenuItem Caption = 'FormatFloat' OnClick = FormatFloat1Click end object Str1: TMenuItem Caption = 'Str' end object Val1: TMenuItem Caption = 'Val' end end end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 80 Top = 8 end end