Thema: Delphi Problem mit Randomize

Einzelnen Beitrag anzeigen

Benutzerbild von Nalincah
Nalincah

Registriert seit: 18. Jul 2003
898 Beiträge
 
Delphi 6 Professional
 
#1

Problem mit Randomize

  Alt 22. Jan 2004, 15:59
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;
Sebastian
Ehemals bekannt als General2004
  Mit Zitat antworten Zitat