saludos! mi nombre es frank y, tengo un error en un programa que estaba haciendo usando los array, bueno el codigo es el siguiente:
Código Delphi
[-]
unit tvendedor_Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
txtcodigo: TEdit;
Label2: TLabel;
txtnombre: TEdit;
Label3: TLabel;
txtsueldo: TEdit;
Label4: TLabel;
txtcomision: TEdit;
Guardar: TButton;
Imprimir: TButton;
procedure txtcodigoKeyPress(Sender: TObject; var Key: Char);
procedure GuardarClick(Sender: TObject);
procedure txtsueldoChange(Sender: TObject);
procedure ImprimirClick(Sender: TObject);
private
public
end;
Tvendedor = Record
codigo:integer;
nombre:string;
sueldo:double;
comision:double;
end;
var
Form1: TForm1;
vendedores:array[1..3] of Tvendedor;
implementation
{$R *.dfm}
procedure TForm1.txtcodigoKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['1'..'3',#8]) then
key:=#0;
end;
procedure TForm1.GuardarClick(Sender: TObject);
begin
vendedores[strtoint(txtcodigo.text)].codigo:=strtoint(txtcodigo.text);
vendedores[strtoint(txtcodigo.text)].nombre:=txtnombre.text;
vendedores[strtoint(txtcodigo.text)].sueldo:=strtofloat(txtsueldo.text);
vendedores[strtoint(txtcodigo.text)].comision:=strtofloat(txtsueldo.text)*0.10;
txtcodigo.text:='';
txtnombre.text:='';
txtsueldo.text:='';
txtcomision.text:='';
end;
procedure TForm1.txtsueldoChange(Sender: TObject);
begin
if (txtsueldo.text<>'') then
txtcomision:=floattostr(strtofloat(txtsueldo.text)*0.10);
end;
procedure TForm1.ImprimirClick(Sender: TObject);
var
cont:integer;
begin
for cont:1 to 3 do
showmessage(inttostr(vendedores[cont].codigo+' '+vendedores[cont].nombre+' '+floattostr(vendedores[cont].sueldo)+' '+floattostr(vendedores[cont].comision));
End;
end;
End.
bueno gracias de antemano y espero me ayuden
.