nuevo en delphi
 

hola a todos!!! soy nuevo en delphi y hace poco empece a programar nuevamente y hace largo rato que no programo :eek:
necesito la ayuda de quien/es puedan darmela con un proyecto que estoy haciendo que es asi:
1.- necesito obtener 5 números del 0 al 60.
2.- no deben ser consecutivos ej: 6-7-8-9-10-11 o 6-7-8-9-10-15 o 6-7-8-9-15-19 o 6-7-8-15-19-22
3.- que los resultados sean almacenados en un txt (sin que se vayan borrando los anteriores resultados)

mi idea seria hacerlo con varios "if" con un método tipo reloj, o sea, ir sumando de a 1 al último número, se cumpla o no la condición, hasta que llegue a 60 y luego que vuelva a 0 y así con el siguiente numero, hasta llegar al primero. para así abarcar todas las posibilidades.

ahora los 2 pedidos jajaja
1.- es un buen método o podría haber otro? ya que con tantas condiciones se haría largo no?
y 2.- como hago para que cada resultado sea puesto en un txt? ahí sí voy muerto porque eso ni idea :D

desde ya agradezco la ayuda de todos!!!!

Hola Kastore.

Te pongo un ejemplo, que seguramente me costará un tirón de orejas del amigo Caral... :D

Código Delphi [-]
...
implementation

function GetSerie: TStrings; // devuelve 5 números no consecutivos
var
  ts: TStrings;
  i: Integer;
begin
  Randomize;
  ts:= TStringList.Create;
  ts.Add(IntToStr(Random(10))); // valores de 0 al 10
  for i:= 2 to 5 do             // valores de 20 a 60
    ts.Add(IntToStr((Random(10))+i*10));
  Result:= ts;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Lines:= GetSerie;
  Memo1.Lines.SaveToFile('C:\NUMEROS.TXT'); // guarda los 5 números a un .txt
end;

Si decidís guardar varias series, tendrás que trabajar sobre las comprobaciones de igualdad...
Saludos. :)

buenissimo ecfisa!!! sí, una de las opciones que quería manejar era la de ramdomize, pero no estaba seguro por el tema del orden y la repetición de las series.
espero que no te den tirones de orejas je... pero porque te los darían??

Hola
Nada de tirón de orejas, mi amigo ecfisa sabe que lo unico que hago es tratar de aprender de lo que el hace:)
Por cierto, siempre muy bueno y el lo sabe.
Saludos

Yo no he visto nada :rolleyes:

ah vale vale, por un momento me asuste jajaja
estoy de a poco haciendo la apli, espero terminarlo rapido gracias al aporte de ecfisa!