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:

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:

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, ........http://www.delphiaccess.com/forum/Smileys/MSN/07.gif
Muy bueno amigo.http://www.delphiaccess.com/forum/Smileys/MSN/17.gif
Saludos

[JXJ]

que codigo tan eficiente.

ecfisa

[ecfisa]

Amigos, creo que están exagerando... :)

Saludos.