Ver Mensaje Individual
  #6  
Antiguo 19-03-2009
DasGrun DasGrun is offline
Miembro
 
Registrado: abr 2008
Posts: 109
Reputación: 16
DasGrun Va por buen camino
siempre me da error sobre el begin. lo tengo asi como esta:
Cita:
private
{ Private declarations }
public

DBEdit7: TDBEdit;
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
{ Public declarations }

end;

var
FrmCrearCheques: TFrmCrearCheques;

function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;

aqui cuando lo llamo esta bien:


procedure TFrmCrearCheques.SpeedButton2Click(Sender: TObject);
var
n: String;
begin
n:= Deletrear(StrToFloat(Edit5.Text) );
Edit7.Text:= (n);
end;
Responder Con Cita