Problemer med if-sætning
JEg er i gang med et lille program i Delphi :DJeg har en buttonclick procedure som volder mig lidt problemer.
procedure TForm1.Button6Click(Sender: TObject);
var
i: Integer;
tilfældig: Integer;
Kort1: Integer;
Kort2: Integer;
begin
Kort1 := 0;
Kort2 := 0;
for i := 0 to 23 do
begin
Randomize;
tilfældig := Random(40);
if Odd(tilfældig) then
begin
if not Kort1 = 12 then
begin
Bunke1[Kort1]:= Biler[i];
Kort1:= Kort1+1;
Showmessage('Bunke 11'+','+IntToStr(tilfældig)+','+IntToStr(Kort1))
end
else
begin
Bunke2[Kort2]:= Biler[i];
Kort2:= Kort2+1;
Showmessage('Bunke 22'+','+IntToStr(tilfældig)+','+IntToStr(Kort2))
end;
end
else
begin
if not Kort2 = 12 then
begin
Bunke2[Kort2]:= Biler[i];
Kort2:= Kort2+1;
Showmessage('Bunke 21'+','+IntToStr(tilfældig)+','+IntToStr(Kort2))
end
else
begin
Bunke1[Kort1]:= Biler[i];
Kort1:= Kort1+1;
Showmessage('Bunke 12'+','+IntToStr(tilfældig)+','+IntToStr(Kort1))
end;
end;
end;
Showmessage(IntToStr(Kort1)+','+IntToStr(Kort2));
end;
Problemet er at når jeg kører proceduren hopper den over "then"-statementet. Jeg får derfor kun udskrevet at den smider kort i "Bunke 22" og "Bunke 12" men aldrig "11" eller "21".
Jeg er ikke så ferm til Delphi, så det ser måske meget simpelt ud for nogen af jer. Men hvis en af jer kunne hjælpe, ville det være dejligt :D
