Forum: Programmieren allgemein
by Monday,
13. Mär 2016
Hast du auch überall Begin und End vervollständigt? Falls nicht, rattert er sonst durch und nimmt dann eben die letzten Antworten.
(Wenn du das begin/end bei if weglässt, berücksichtigt er genau nur den nächsten Befehl für die Abfrage. Den rest sieht er wieder als normalen Ablauf an, was hier nicht sein sollte)
procedure Frage1(i:longint);
begin
if i = 1 then begin
Forum: Programmieren allgemein
by Monday,
13. Mär 2016
Zwei Sachen:
1. If Abfragen sollten so aussehen: if .. then BEGIN ... END; Begin/End fehlt bei dir
2. Random + i gehört eher hier hin
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:longint;
begin
randomize;