Bei mir klappt das irgendwie nicht
Random gibt keinen Wert zurück!!!
Delphi-Quellcode:
procedure GeschwTest;
var
i : Integer;
Anz_VKopf,Anz_VZeil:Integer;
begin
Anz_VKopf := StrToInt(FrmMain.EditAnzKopf.text);
Randomize;
Anz_VZeil := Random(StrToInt(FrmMain.EditAnzZeil.Text));
if (FrmMain.TabVKopf.Active = True) and
(FrmMain.TabVZeil.Active = True) then
begin
for i := 0 to Anz_VKopf do
begin
end;
end;
end;