Generar Series de numeros.

[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.