6 aus 49 will nicht so richtig

[Wolfgang Mix]

@funkuchn :

Wenn ich unfreundlich wäre, würde ich Dir gar nicht mehr antworten. ;-)
Der Meinung von Detlef schließe ich mich an.

Mit freundlichem Gruß ;-)

Wolfgang

[funkuchn]

seit nem jahr...haben noch nicht allzu viel gemacht und ich weiß dass delphi viel englisch hat, aber meins ist komplett auf englisch, auch die hilfe, und das bringt mich grad nicht weiter....wenn man es mir halt nicht gezeigt hat....

[Wolfgang Mix]

Hast Du Dir schon 'mal die Tutorials bei Delphi-Treff angeschaut?
Alles in Deutsch und prima erklärt, findest Du hier

Gruß

Wolfgang

[funkuchn]

was hat mein problem mit delphiversionen zu tun?????????????????

[sx2008]

Zitat:

Zitat von funkuchn

und Unterfunktionen, ja wie meinst das?

Na du kannst dir doch eigene Funktionen und Proceduren schreiben:

Delphi-Quellcode:

procedure TForm1.ErzeugeLottozahlen(liste:TStrings);
var
  i : integer;
  lottozahl : integer;
begin
  // theoretisch kann hier auch die gleiche Lottozahl zweimal gezogen werden
  // die Wahrscheinlichkeit ist klein, aber doch vorhanden
  for i := 1 to 6 do
  begin
    lottozahl := random(49)+1;
    liste.Add(IntToStr(lottozahl));
  end;
end;

und dann aufrufen:

Delphi-Quellcode:

...
  ErzeugeLottozahlen(Memo1.lines);
...

Um zu verhindern, dass die gleiche Lottozahl zweimal gezogen wird, muss man prüfen, ob sie schon in der Liste ist:

Delphi-Quellcode:

function TForm1.IstZahlInListe(zahl:integer; liste:TStrings):Boolean;
var i : integer;
begin
  result := False;
  for i := 0 to liste.Count-1 do
  begin
    if StrToInt(liste[i]) = zahl then
    begin
      result := True;
      break;
    end;
  end;
end;

Wenn du jetzt die Funktion IstZahlInListe() geschickt einsetzt, kannst du verhindern, dass Lottozahlen doppelt gezogen werden.

[funkuchn]

hmm okay danke...
ich nglaube, ich werde das ganze einfach lassen...
wird mir langsam alles zuviel....trotzdem danke, oki?

[DeddyH]

Das musst Du selbst wissen, aber ohne Grundlagen wird es nun einmal schwierig.

[Wolfgang Mix]

Sorry, verklicked ;-)

hier

Wolfgang

[funkuchn]

nagut, ich frag jetzt einfach, ich hab mir grad alles durchgelesen vonwegen tutorials und so...
ich hab das Tform1.formcreate offen....
es ist doch wirklich nur diese eine frage, sagt mir bite, wie ich eine nachricht beim öffnen des projekts erzeuge :cry: :cry: :cry: :cry:

[DeddyH]

Das schrieb ich doch bereits:

Delphi-Quellcode:

procedure TDeinForm.FormCreate(Sender: TObject);
begin
  ShowMessage('Bitte 6 unterschiedliche Zahlen eingeben');
end;