hat sich erledigt danke ![Smile :) :)](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png)
aber jez hab ich n anderes problem ....
das ist mein quelltext :
procedure freizeit (f:string);
var zufall :integer;
begin
if f='Fruehling' then
randomize;
zufall:=random(11)+1;
if zufall=1 then form1.label1.caption := 'Spaziergang';
if zufall=2 then form1.Label1.Caption := 'Billard';
if zufall=3 then form1.Label1.Caption := 'Schwimmbad';
if zufall=4 then form1.Label1.Caption := 'Kuchen backen';
if zufall=5 then form1.Label1.Caption := 'Solarium';
if zufall=6 then form1.Label1.Caption := 'Bowling';
if zufall=7 then form1.Label1.Caption := 'Shoppen';
if zufall=8 then form1.Label1.Caption := 'Kino';
if zufall=9 then form1.Label1.Caption := 'Skaten';
if zufall=10 then form1.Label1.Caption := 'Sport';
if zufall=11 then form1.Label1.Caption := 'Eis essen';
if f='Sommer' then
randomize;
zufall:=random(13)+1;
if zufall=1 then form1.label1.caption := 'Im See schwimmen';
if zufall=2 then form1.Label1.Caption := 'Billard';
if zufall=3 then form1.Label1.Caption := 'Picknick';
if zufall=4 then form1.Label1.Caption := 'Kuchen backen';
if zufall=5 then form1.Label1.Caption := 'Solarium';
if zufall=6 then form1.Label1.Caption := 'Bowling';
if zufall=7 then form1.Label1.Caption := 'Shoppen';
if zufall=8 then form1.Label1.Caption := 'Kino';
if zufall=9 then form1.Label1.Caption := 'Skaten';
if zufall=10 then form1.Label1.Caption := 'Sport';
if zufall=11 then form1.Label1.Caption := 'Eis essen';
if zufall=12 then form1.Label1.Caption := 'Erdbeeren pluecken';
if zufall=13 then form1.Label1.Caption := 'Heissluftballonfahrt';
if f='Herbst' then
randomize;
zufall:=random(9)+1;
if zufall=1 then form1.label1.caption := 'Schwimmbad';
if zufall=2 then form1.Label1.Caption := 'Kino';
if zufall=3 then form1.Label1.Caption := 'Billard';
if zufall=4 then form1.Label1.Caption := 'Kuchen backen';
if zufall=5 then form1.Label1.Caption := 'Solarium';
if zufall=6 then form1.Label1.Caption := 'Bowling';
if zufall=7 then form1.Label1.Caption := 'Shoppen';
if zufall=8 then form1.Label1.Caption := 'Strasse kehren';
if zufall=9 then form1.Label1.Caption := 'Skaten';
if f='Winter' then
randomize;
zufall:=random(12)+1;
if zufall=1 then form1.label1.caption:= 'Schneemann bauen';
if zufall=2 then form1.label1.caption:= 'Billard';
if zufall=3 then form1.label1.caption:= 'Kino';
if zufall=4 then form1.label1.caption:= 'Kuchen backen';
if zufall=5 then form1.label1.caption:= 'Solarium';
if zufall=6 then form1.label1.caption:= 'Bowling';
if zufall=7 then form1.label1.caption:= 'Shoppen';
if zufall=8 then form1.label1.caption:= 'im Bett einbuddeln';
if zufall=9 then form1.label1.caption:= 'romantischen Abend';
if zufall=10 then form1.label1.caption:= 'rodeln';
if zufall=11 then form1.label1.caption:= 'Schlittschuh fahren';
if zufall=12 then form1.label1.caption:= 'Schwimmbad';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var activity:string;
begin
activity:=combobox1.Text;
freizeit(activity);
end;
procedure TForm1.Button2Click(Sender: TObject);
var zufall :integer;
f:string;
begin
f:=combobox1.Text;
if f='Fruehling' then
randomize;
zufall:=random(11)+1;
if zufall=1 then form1.label1.caption := 'Spaziergang';
if zufall=2 then form1.Label1.Caption := 'Billard';
if zufall=3 then form1.Label1.Caption := 'Schwimmbad';
if zufall=4 then form1.Label1.Caption := 'Kuchen backen';
if zufall=5 then form1.Label1.Caption := 'Solarium';
if zufall=6 then form1.Label1.Caption := 'Bowling';
if zufall=7 then form1.Label1.Caption := 'Shoppen';
if zufall=8 then form1.Label1.Caption := 'Kino';
if zufall=9 then form1.Label1.Caption := 'Skaten';
if zufall=10 then form1.Label1.Caption := 'Sport';
if zufall=11 then form1.Label1.Caption := 'Eis essen';
if f='Sommer' then
randomize;
zufall:=random(13)+1;
if zufall=1 then form1.label1.caption := 'Im See schwimmen';
if zufall=2 then form1.Label1.Caption := 'Billard';
if zufall=3 then form1.Label1.Caption := 'Picknick';
if zufall=4 then form1.Label1.Caption := 'Kuchen backen';
if zufall=5 then form1.Label1.Caption := 'Solarium';
if zufall=6 then form1.Label1.Caption := 'Bowling';
if zufall=7 then form1.Label1.Caption := 'Shoppen';
if zufall=8 then form1.Label1.Caption := 'Kino';
if zufall=9 then form1.Label1.Caption := 'Skaten';
if zufall=10 then form1.Label1.Caption := 'Sport';
if zufall=11 then form1.Label1.Caption := 'Eis essen';
if zufall=12 then form1.Label1.Caption := 'Erdbeeren pluecken';
if zufall=13 then form1.Label1.Caption := 'Heissluftballonfahrt';
if f='Herbst' then
randomize;
zufall:=random(9)+1;
if zufall=1 then form1.label1.caption := 'Schwimmbad';
if zufall=2 then form1.Label1.Caption := 'Kino';
if zufall=3 then form1.Label1.Caption := 'Billard';
if zufall=4 then form1.Label1.Caption := 'Kuchen backen';
if zufall=5 then form1.Label1.Caption := 'Solarium';
if zufall=6 then form1.Label1.Caption := 'Bowling';
if zufall=7 then form1.Label1.Caption := 'Shoppen';
if zufall=8 then form1.Label1.Caption := 'Strasse kehren';
if zufall=9 then form1.Label1.Caption := 'Skaten';
if f='Winter' then
randomize;
zufall:=random(12)+1;
if zufall=1 then form1.label1.caption:= 'Schneemann bauen';
if zufall=2 then form1.label1.caption:= 'Billard';
if zufall=3 then form1.label1.caption:= 'Kino';
if zufall=4 then form1.label1.caption:= 'Kuchen backen';
if zufall=5 then form1.label1.caption:= 'Solarium';
if zufall=6 then form1.label1.caption:= 'Bowling';
if zufall=7 then form1.label1.caption:= 'Shoppen';
if zufall=8 then form1.label1.caption:= 'im Bett einbuddeln';
if zufall=9 then form1.label1.caption:= 'romantischen Abend';
if zufall=10 then form1.label1.caption:= 'rodeln';
if zufall=11 then form1.label1.caption:= 'Schlittschuh fahren';
if zufall=12 then form1.label1.caption:= 'Schwimmbad';
end;
end.
wenn ich jez das programm starte zeigt mir mein programm nur die aktivitäten für den Winter
aber ich seh meinen Fehler nicht