nuevo en delphi

[Kastore]

hola a todos!!! soy nuevo en delphi y hace poco empece a programar nuevamente y hace largo rato que no programo
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

desde ya agradezco la ayuda de todos!!!!

[ecfisa]

Hola Kastore.

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

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.

[Kastore]

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??

[[Caral]]

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

[Casimiro Notevi]

Yo no he visto nada

[Kastore]

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