MA PETITE COMBINE

Commentaire de kopierreko le 29/10/2008 17:30:06

Juste un truc:
Si on sélectionne toutes les cases le log plante :)

Commentaire de kopierreko le 29/10/2008 19:15:56

ça se comprend ^^

Commentaire de cantador le 30/10/2008 14:57:38 administrateur CS

@ludodelphi :

pour les combins du LOTO : 1 minute !

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, k, l, m, n, nob, cpt: integer;
  sl: TStringList;
begin
  try
    Screen.Cursor := CrHourGlass;
    cpt := 0;
    nob := 49;
    sl := TStringList.Create;
    for i := 1 to nob do
      for j := i to nob do
        for k := j to nob do
          for l := k to nob do
            for m := l to nob do
              for n := m to nob do
                if ((i <> j) and (i <> k) and (i <> l) and (i <> m) and (i <> n))
                  and ((j <> i) and (j <> k) and (j <> l) and (j <> m) and (j <> n))
                  and ((k <> i) and (k <> j) and (k <> l) and (k <> m) and (k <> n))
                  and ((l <> i) and (l <> j) and (l <> k) and (l <> m) and (l <> n))
                  and ((m <> i) and (m <> j) and (m <> k) and (m <> l) and (m <> n)) then
                begin
                  inc(cpt);
                  sl.Add(IntToStr(i) + ';' + IntToStr(j) + ';' + IntToStr(k) + ';' +
                    IntToStr(l) + ';' + IntToStr(m) + ';' + IntToStr(n));
                end
                else
                  continue;
  finally
    Screen.Cursor := CrDefault;
    sl.Free;
    showMessage(IntToStr(cpt));
  end;
end;
tu peux les récupérer avant le sl.free par sl.SaveToFile

mais il me semble avoir fait mieux mais je ne trouve plus mon code..

cantador