como iniciar un consecutivo 00,01,02 ect

[fidel]

Hola:

Esto te convierte los 50 primeros números en una cadena formada por los números consecutivos del 1 al 50 con formato de 2 caracteres cada uno (y separados con coma y un espacio).

Código Delphi [-]
uses
  ..... StrUtils;

...

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  cadena: string;
begin
  cadena := '';
  for i := 1 to 50 do
    begin
      cadena := cadena + RightStr('00' + IntToStr(i),2) + ', ';
    end;
    ShowMessage(cadena);
end;

Un saludo.

[ronalg]

Bueno una sería así:

Código Delphi [-]
function convertir_n(valor:integer;const cant_dig:byte=3):string;
var val_txt,ceros:string;
    i,leng_val:integer;
begin
     val_txt:=inttostr(valor);
     leng_val:=length(val_txt);
     if leng_val>=Cant_dig then
     begin
          result:=val_txt;
     end
     else
     begin
          ceros:='';
          for i:=1 to (cant_dig-leng_val) do
          begin
               ceros:=ceros+'0';
          end;
          result:=ceros+val_txt;
     end;
end;

esto es para convertir un valor entero en la cantidad de digitos que quieras, y este resultado sera una cadena string.

PERO... (siempre hay un pero), si el valor a mostrar es un campo de una tabla como el codigo autogenerado o algo asi, lo unico que tienes que hacer es modificar el valor de la propiedad DISPLAYFORMAT del campo:

DisplayFormat=####00

Esto te mostrara cualquie valor menor a 10 con dos digitos obligatorios y si e mayo no se hara problema igual te los muestra completos, es lago asi como un maskedit directo para el campo.

ESpero te sirva.

[Neftali [Germán.Estévez]]

Abriendo nuevos hilos referentes a la misma pregunta, lo único que haces es liar a quien te está respondiendo, hacer perder el tiempo a los demás y dejar sin parte de la información a los que están leyendo el segundo hilo...

Se te han propuesto algunas cosas en el hilo original y te han preguntado otras cuantas (a la mayoría no has respondido????).

http://www.clubdelphi.com/foros/showthread.php?t=28475