Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 =
class(TForm)
Label1: TLabel;
lekwahl: TComboBox;
lektion: TButton;
procedure lektionClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm2.lektionClick(Sender: TObject);
begin
if
lekwahl.Text := '
30' <--- habs auch ohne :, ohne = und mit ; gemacht.
then
form3.ShowModal;
end;
end.
Ich möchte einen Vokabeltrainer machen. lekwahl ist eine combobox, aber wenn ich lekwahl.text eingebe steht in der Hilfe tCaption.
Aber beim starten kommt hinter dem then Ausdruckstyp muss Boolean sein.