tengo un error con un programa usando array
 

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
    { Private declarations }
  public
    { Public declarations }
  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); //aqui es que me da error

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 :) .

Y el error es....................... :confused:

donde esta en rojo es donde esta el error nose porque
me dice
[Error] tvendedor_Unit1.pas(67): Incompatible types: 'TEdit' and 'String'
[Error] tvendedor_Unit1.pas(74): ':=' expected but ':' found
[Error] tvendedor_Unit1.pas(75): Incompatible types: 'String' and 'Integer'
[Error] tvendedor_Unit1.pas(75): ')' expected but ';' found
[Error] tvendedor_Unit1.pas(78): '.' expected but ';' found
[Fatal Error] tvendedor_Project1.dpr(5): Could not compile used unit 'tvendedor_Unit1.pas'

todo eso me dice T-T saludos!

Hola frankmanuel06.

El código donde comentaste el error debería ser:

Código Delphi [-]
procedure TForm1.txtSueldoChange(Sender: TObject);
begin
  if (txtsueldo.text<>'') then
   txtcomision.Text := floattostr(strtofloat(txtsueldo.text)*0.10);
end;

Aunque mas seguro sería:

Código Delphi [-]
procedure TForm1.txtSueldoChange(Sender: TObject);
var
  v: Double;
begin
  if TryStrToFloat(txtSueldo.Text,v) then
    txtComision.Text := FloatToStr(v * 0.10);
end;

Saludos :)

muchas gracias ecfisa, pero ahora me da error en el showmessage en donde esta marcado en rojo.

Código Delphi [-]
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.

saludos cordiales!

Hola.

Código Delphi [-]
                                                          
  showmessage(inttostr( vendedores[cont].codigo ) +'    '+
              vendedores[cont].nombre +'   '+
              floattostr(vendedores[cont].sueldo) +'   '+
              floattostr(vendedores[cont].comision));

Saludos. :)

Gracias por toda la ayuda ecfisa me sirvio de mucho.

Saludos! :D

No será mucha comodidad...:mad::mad::mad:

Creo que algunas veces se sobrepasan los límites...

muchas gracias pero ya lo habia echo pero como quiera graciassssss :D :)

saludos!