TCheckBox und Integer - Fehler

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • TCheckBox und Integer - Fehler

    Hallo,

    ich habe ein Problem. Immer wenn ich compilieren will, kommt folgende Fehler meldung : "Inkompatible Typen : 'TCheckBox' und 'Integer' "
    Das is ja auch erstmal nicht ungwöhnlich, jedoch habe den gleichen Code in einer vorherigen Datei verwendet und in der gleichen Datei nochmal und da war es kein Fehler.

    Hier sind die beiden Quellcodes:

    Fehlerhafte:

    Quellcode

    1. unit Rechner;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, StdCtrls, ExtCtrls;
    9. type
    10. TForm1 = class(TForm)
    11. ueberschrift: TLabel;
    12. orte_label: TLabel;
    13. gelberkreis: TCheckBox;
    14. rote_bruecke: TCheckBox;
    15. gelbe_bruecke: TCheckBox;
    16. Label1: TLabel;
    17. puffereinheiten: TComboBox;
    18. schlingen: TComboBox;
    19. beschriftung_puffereinheiten: TLabel;
    20. beschriftung_schlingen: TLabel;
    21. ueberstehen_label: TLabel;
    22. vermeiden_label: TLabel;
    23. warnlichter: TComboBox;
    24. warnlichter_label: TLabel;
    25. sensorwaende: TComboBox;
    26. sensorwaende_label: TLabel;
    27. sensorwaende_liegen: TCheckBox;
    28. truck: TCheckBox;
    29. mitfahrer: TCheckBox;
    30. mehrere_mitfahrer: TCheckBox;
    31. Panel1: TPanel;
    32. ergebnislabel: TLabel;
    33. punkte_label: TLabel;
    34. rechnen: TButton;
    35. beenden: TButton;
    36. procedure gelberkreisClick(Sender: TObject);
    37. procedure rote_brueckeClick(Sender: TObject);
    38. procedure gelbe_brueckeClick(Sender: TObject);
    39. procedure rechnenClick(Sender: TObject);
    40. procedure beendenClick(Sender: TObject);
    41. procedure truckClick(Sender: TObject);
    42. private
    43. { Private-Deklarationen }
    44. public
    45. { Public-Deklarationen }
    46. end;
    48. var
    49. Form1: TForm1;
    50. kreis, rot, gelb, wand_liegen, truck, dummy, mitfahrer : integer;
    51. puffer, schlingen, warnlichter, waende : integer;
    52. ergebnis : integer;
    54. implementation
    56. {$R *.dfm}
    59. procedure TForm1.beendenClick(Sender: TObject);
    60. begin
    61. close;
    62. end;
    64. procedure TForm1.rechnenClick(Sender: TObject);
    65. begin
    66. ergebnis := kreis+rot+gelb;
    67. ergebnislabel.Caption := IntToStr (ergebnis);
    68. end;
    70. procedure TForm1.gelberkreisClick(Sender: TObject);
    71. begin
    72. if gelberkreis.Checked = True then
    73. kreis := 25
    74. else kreis := 0;
    75. end;
    77. procedure TForm1.rote_brueckeClick(Sender: TObject);
    78. begin
    79. if rote_bruecke.Checked = True then
    80. rot := 25
    81. else rot := 0;
    82. end;
    84. procedure TForm1.gelbe_brueckeClick(Sender: TObject);
    85. begin
    86. if gelbe_bruecke.Checked = True then
    87. gelb := 20
    88. else gelb :=0;
    89. end;
    91. procedure TForm1.truckClick(Sender: TObject);
    92. begin
    93. if truck.Checked = True then
    94. truck := 20
    95. =========================================> else truck := 0; <======================= Inkompatible Typen : 'TCheckBox' und 'Integer'
    96. end;
    98. end.
    Alles anzeigen


    Funktionierender Code:

    Quellcode

    1. unit checkbox;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, StdCtrls;
    9. type
    10. TForm1 = class(TForm)
    11. CheckBox1: TCheckBox;
    12. Button1: TButton;
    13. Label1: TLabel;
    14. CheckBox2: TCheckBox;
    15. beenden: TButton;
    16. Button2: TButton;
    17. test: TComboBox;
    18. procedure CheckBox1Click(Sender: TObject);
    19. procedure CheckBox2Click(Sender: TObject);
    20. procedure Button1Click(Sender: TObject);
    21. procedure Button2Click(Sender: TObject);
    22. procedure beendenClick(Sender: TObject);
    23. procedure testChange(Sender: TObject);
    24. private
    25. { Private-Deklarationen }
    26. public
    27. { Public-Deklarationen }
    28. end;
    30. var
    31. Form1: TForm1;
    32. ergebnis1,ergebnis2,ergebnis3,ergebnis,dropdown : integer;
    34. implementation
    36. {$R *.dfm}
    39. procedure TForm1.CheckBox1Click(Sender: TObject);
    40. begin
    41. if CheckBox1.Checked = True then
    42. ergebnis1 := ergebnis1 + 20
    43. else ergebnis1 := 0;
    44. end;
    46. procedure TForm1.CheckBox2Click(Sender: TObject);
    47. begin
    48. if Checkbox2.Checked = True then
    49. ergebnis2 := ergebnis2 + 50
    50. else
    51. ergebnis2 := 0;
    52. end;
    55. procedure TForm1.Button1Click(Sender: TObject);
    56. begin
    57. ergebnis := ergebnis1 + ergebnis2 + ergebnis3;
    58. Label1.Caption := IntToStr (ergebnis);
    59. end;
    61. procedure TForm1.Button2Click(Sender: TObject);
    62. begin
    63. Label1.Caption := IntToStr (0);
    64. end;
    68. procedure TForm1.beendenClick(Sender: TObject);
    69. begin
    70. close;
    71. end;
    73. procedure TForm1.testChange(Sender: TObject);
    74. begin
    75. if test.itemindex=1 then dropdown := 200;
    76. if test.itemindex=2 then dropdown := 500;
    77. if test.itemindex=0 then dropdown := 700;
    78. ergebnis3 := dropdown;
    79. end;
    81. end.
    Alles anzeigen


    Thx

    Nexor
    Zitat von "Elbert Hubbard"

    Eine Maschine kann die Arbeit von fünfzig gewöhnlichen Menschen leisten, aber sie kann nicht einen einzigen außergewöhnlichen ersetzen.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von Nexor ()