ayuda con array

[marcoszorrilla]

Hola amigos
Eso si es una manera de presentarse.

Aquí tienes un pequeño ejemplo.

procedure TForm1.Button1Click(Sender: TObject);
Type
TdetalleRecibo = record
vrec_numero : integer;
vrec_tipo : string;
vcon_codigo : string;
vdet_valor : currency;
end;
var
MisRecibos: array[1..10] of TdetalleRecibo;
nCont:Integer;
Cr_lf:String;
begin
Cr_lf:=Chr(10)+Chr(13);

  for nCont:=1 to 10 do
  begin
  MisRecibos[nCont].vrec_numero:=nCont;
  Misrecibos[nCont].vrec_tipo:='Ejemplo'+IntToStr(nCont);
  MisRecibos[nCont].vcon_codigo:=IntToStr(ncont);
  MisRecibos[nCont].vdet_valor:=nCont;
  end;


  for nCont:=1 to 10 do
  begin
  ShowMessage(IntToStr( MisRecibos[nCont].vrec_numero)+ Cr_lf
  + Misrecibos[nCont].vrec_tipo+Cr_lf
  +MisRecibos[nCont].vcon_codigo+Cr_lf
  +FloatToStr(MisRecibos[nCont].vdet_valor));
  end;

end;

Un Saludo.