Forum: Object-Pascal / Delphi-Language
Delphi
by Chemiker,
5. Apr 2009
Hallo JumpFrog,
procedure TfrmLotto.btMeineVersionClick(Sender: TObject);
var
i, intTip: integer;
LottoArr: Array of Boolean;
begin
for I := 1 to high(LottoArr) do
begin
LottoArr:= FALSE;
Forum: Object-Pascal / Delphi-Language
Delphi
by Chemiker,
5. Apr 2009
Hallo JumpFrog,
normalerweise sind die Lottozahlen bei dem Lotto, beidem ich mitspiele immer verschieden.
while c<=5 do
begin
while Feld= LoZahl do
LoZahl:=random(48)+1;
c:=c+1;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Chemiker,
5. Apr 2009
Hallo JumpFrog,
randomize musst Du nicht verstehen nur mit F1 die Funktionsweise nachsehen.
Des Weiteren macht es sich gut Variable mit einem definierten Zustand einzusetzen.
procedure TfrmLotto.FormCreate(Sender: TObject);
var
i: integer;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Chemiker,
5. Apr 2009
Hallo JumpFrog,
procedure TForm1.BtnAnzClick(Sender: TObject);
var
i:integer;
begin
for i := 0 to 5 do
begin
Edit1.Text:=inttostr(Feld);
Edit2.Text:=inttostr(Feld);
Forum: Object-Pascal / Delphi-Language
Delphi
by Chemiker,
5. Apr 2009
Hallo JumpFrog,
ohne jetzt auf die Logik des Programms einzugehen, mir schein, dass Du Probleme mit der Formatierung des Quelltextes hast. Versuche Deine Anweisungen in Begin/End - Blöcke zu setzen.
Bis bald Chemiker