Generar Series de numeros.

[JXJ]

una duda.

ando bien guey. estas semanas


¿como se puede hacer un generador de series
para loteria.?

digamos

tengo la serie XYZ-00000
hasta XYZ-30000

yo lo haria con un contador
que
seria

for i to 30000
contador := contador +1

¿ando bien o se puede hacer de otra forma?

[ecfisa]

Hola JXJ.

Yo haría:

Código Delphi [-]
procedure GenerarSerie(Serie: TStrings; Alpha: string; Desde, Hasta: Integer);
var
  i: Integer;
  s: string;
begin
  for i:= Desde to Hasta do
  begin
    s:= IntToStr(i);
    Serie.Add(Alpha + StringOfChar('0', 4 - Length(s)) + s);
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Serie: TStrings;
begin
  Serie:= TStringList.Create;
  try
    GenerarSerie(Serie, 'XYZ-', 0, 30000);
    Memo1.Lines:= Serie;  // mostrar, guardar o lo que desees
  finally
    Serie.Free;
  end;
end;

Saludos.

[[Caral]]

Hola
mmmmmmmm, ........
Muy bueno amigo.
Saludos

[JXJ]

que codigo tan eficiente.

ecfisa

[ecfisa]

Amigos, creo que están exagerando...

Saludos.