Ayudad Con código delphi
 

buenas, hoy vengo por aqui porque estoy trabajando en una aplicaiones para generar numeros aleatorios y tengo 3 preguntas

primera?
como puedo hacer que en mi codigo auto complete el 0 en los numeros del 1 al 9

este es el codigo que e logrado hacer funcionar pero me faltan

segunda?

como puedo hacer que verifique si en unos de los memo, tedit o label salio el numero y siga busncando aleatorios hasta que no combine ninguna de las otross

ejemplo

1-2-3-4-5-6 en cada uno de los memo salga un numero diferente sin repetir y si se repite automaticamente vuelva a buscar otra secuencia.

tercera?
pueden ayudarme con este codigo convertirlo a delphi
tiene lo que busco
dejo el codigo y la pagina donde esta funcionado

uega.leidsa.com/frontend/game/play/loto-mas.app.cgi

se me olvidor
 

consegui este codigo que deberia hacer lo que deseo de la completar con 0 los numero del 1 al 9 ejemplo 01,02,03,04etc

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración :)


Y recuerda poner los tags correctos al código fuente, ejemplo:

A la pregunta 1:

Código Delphi [-]
var
  NumeroEntero : integer;
begin
  NumeroEntero := 1;
  Label1.Caption := Format('%.2d', [NumeroEntero]); // Label.Caption = '01'
  NumeroEntero := 42;
  Label2.Caption := Format('%.2d', [NumeroEntero]); // Label.Caption = '42'
end;

A la pregunta 2:

A la pregunta 2:

Deberías crear una función que rellene un array con los numeros que quieres y que vaya verificando que no exista.
Luego con ese array pones el primer elemento en el Memo.Text, el segundo en el Label1.Caption, el tercero en Label2.Caption y así sucesivamente.

Además de esto, te serviría mucho dividir cada parte en un procedimiento/funcion simple.

Se me ocurre un código como este:

Código Delphi [-]
type
  MiArray = Array[1..6] of integer;

function DameNumeroAleatorio: integer;
begin
  Result := Random(38) + 1;
end;

procedure InicializaArray(var A: MiArray);
var
  i : integer;
begin
  // Recorro el array poniendo 0
  for i := 1 to 6 do
  begin
     A[i] := 0;
  end;
end;

function ExisteEnArray(A: MiArray; Numero: integer): boolean;
var
  i : integer;
begin
  // Inicializo resultado
  Result := False;

  // Recorro Array
  for i := 1 to 6 do
  begin
     // Si en esta posicion existe este numero, devuelvo verdadero
     if A[i] = Numero then
        Result := True;
  end;
end;

procedure AgregarNumeroAArray(var A: MiArray; Posicion, Numero: integer);
begin
  A[Posicion] := Numero;
end;

var
  Contador, Posicion, Numero : integer;
  A: MiArray;

begin
  // Inicializo con 0
  InicializaArray(A);

  // Busco 6 numeros para rellenar las posiciones del Array
  for Posicion := 1 to 6 do
  begin
     // Obtengo un numero aleatorio
     Numero := DameNumeroAleatorio;

     // Sigo buscando mientras exista el numero en el array
     while (ExisteEnArray(A, Numero)) do
        Numero := DameNumeroAleatorio;

     AgregarNumeroAArray(A, Posicion, Numero);
  end;

  // Recorro los valores y los imprimo formateados en un Memo
  for Posicion := 1 to 6 do
     MTest.Lines.Add(Format('%.2d', [A[Posicion]]));
end;