Hola amigos
Eso si es una manera de presentarse.
Aquí tienes un pequeño ejemplo.
Código:
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.