Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 14
llSnakell Va por buen camino
Question Por que me aparece siempre este error !! ???

Este mensaje me aparece en toodos los programas que he tratado de hacer
EN programas simples:
[Pascal Error] Unit1.pas(1): Unable to invoke Code Parameters due to errors in source code

siempre cuando toi transformando las variable de entrada a valores numericos
Espero que me ayuden .
Atte Snake//

Disculpen las molestias y Gracias
Responder Con Cita
  #2  
Antiguo 24-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Bien, y el codigo que haces para que de ese error nos lo imaginamos o mejor lo pones para ver como lo haces?.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 24-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 14
llSnakell Va por buen camino
en un programa simple como suma :
Código Delphi [-]
var

SUM,SUM1,RES:word;
begin
SUM:=strtoint(Edit1.text);  // aqui es en donde me aparece el error :S
si es un error simple disculpenme soy aprendiz y me cuesta aprender leyendo :/

Última edición por ecfisa fecha: 24-01-2011 a las 22:35:43. Razón: Etiquetas
Responder Con Cita
  #4  
Antiguo 24-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Empecemos:
Clase basica de programacion #2:

Suma, resta, etc de variables:

La variables pueden ser de varios tipos, string, integer, real (float) etc.....

Ejemplo de suma con variable:
Colocamos tres edit y un boton:
En el evento Onclick del boton ponemos esto:


Código Delphi [-]
var
Num1, num2, Total : Integer;
begin
 Num1:= StrToInt(Edit1.Text);
 Num2:= StrToInt(Edit2.Text);
 Total:= Num1 + Num2;
 Edit3.Text:= IntToStr(Total);

Listo, las variables adquieren el valor de los edit 1 y 2 y el resultado de la suma se coloca en el edit 3.
Saludos
__________________
Siempre Novato

Última edición por Caral fecha: 24-01-2011 a las 22:16:56.
Responder Con Cita
  #5  
Antiguo 24-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 14
llSnakell Va por buen camino
Estaba Guiandome en ejercicios de internet pero que pasa con los Label ?
porque incluyen los Label dentro del codigo!!
eso esta mal entonces ????
Los label nunca se Ingresan dentro del codigo?
ademas he visto Ejercicios como tu ejemplo y aparecen solo 2 edit (las variables de entrada ) y un Label muestra el Resultado :S

¿Que Opinan ?
Gracias Por La Atencion
Responder Con Cita
  #6  
Antiguo 24-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Con un hermoso label:

Dos Edit y un label:

Código Delphi [-]
var
Num1, num2, Total : Integer;
begin
 Num1:= StrToInt(Edit1.Text);
 Num2:= StrToInt(Edit2.Text);
 Total:= Num1 + Num2;
 Label1.Caption:= IntToStr(Total);

Feliz?????.
Saludos
__________________
Siempre Novato

Última edición por Caral fecha: 24-01-2011 a las 22:23:28.
Responder Con Cita
  #7  
Antiguo 24-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 14
llSnakell Va por buen camino
Sorry Si te Molesto demasiado
Muchas Gracias !!!
Responder Con Cita
  #8  
Antiguo 24-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Ahora lo vamos a hacer mas bonito:
Coloca dos edit, un label, un combobox y un boton.

La propiedad Text del combobox la dejamos en blanco (borrala).
Dale click a la propiedad Items (tString), siempre del combobox, en la pantalla que te sale coloca, uno debajo del otro:
+
-
/
*

Ahora en el boton:

Código Delphi [-]
var
Num1, num2, total : Integer;
begin
 Num1:= StrToInt(Edit1.Text);
 Num2:= StrToInt(Edit2.Text);
 case ComboBox1.ItemIndex of
     0 : begin
         Total:= Num1 + Num2;
         end;
     1 : Begin
         Total:= Num1 - Num2;
         end;
     2 : Begin
         Total:= Num1 Div Num2;
         end;
     3 : Begin
         Total:= Num1 * Num2;
         end;
         end;
  Label1.Caption:= IntToStr(Total);
 end;
Listo.
Esto es para numeros enteros si se quieren decimales las variables tienen que ser REAL y en vez de StrToIn, StrToFloat, ademas de FloatToStr en el caption.
Saludos
__________________
Siempre Novato

Última edición por Caral fecha: 03-02-2011 a las 02:07:39.
Responder Con Cita
  #9  
Antiguo 25-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 14
llSnakell Va por buen camino
Hola Caral
Sabes que utilize Numeros Decimales, Con variables Real y utilize StrToFloat Pero Igual Me Aparece Error Puedes Revisarlo ???

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  N1,N2,Total:Real;
begin
  N1:=StrToFloat(Edit1.text);
  N2:=StrToFloat(Edit2.Text);
  Total:=N1+N2;
  Label4.Caption:=FloatToStr(Total);// ¿Como Puedo Hacer Para Colocar Un comentario? Solo Aparece el Numero
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

end.

Última edición por ecfisa fecha: 25-01-2011 a las 05:13:30. Razón: Etiquetas, identado
Responder Con Cita
  #10  
Antiguo 25-01-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
El codigo esta bien, que error te da?, donde?.

Por otro lado acerca de tu duda de poner un comentario con el total de la suma:
Código Delphi [-]
var
N1,N2,Total:Real;
begin
N1:=StrToFloat(Edit1.text);
N2:=StrToFloat(Edit2.Text);
Total:=N1+N2;
Label4.Caption:= 'El Total de la suma es = ' +FloatToStr(Total);
Saludos
__________________
Siempre Novato
Responder Con Cita
  #11  
Antiguo 25-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Poder: 14
llSnakell Va por buen camino
Ya se no sale error XD
lo que pasaba que ingresaba numeros decimales como el las calculadoras
con puntos
y lo correcto es con comas
gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Me aparece el error "Insufficient memory for this operation." ilichhernandez Varios 5 23-07-2010 19:48:16
Error en este código. FF funciona/IE da error papulo HTML, Javascript y otros 7 14-11-2007 10:44:23
I. Explorer 7 abre siempre una ventana adicional que da error y se situa al frente Wonni Windows 4 14-06-2007 01:27:37
No me aparece este collate ES_ES_CI_AI en FireBird versión 2.0 calogero Firebird e Interbase 3 03-04-2007 21:54:07
¿Por qué me da este error?Error creating cursor manejador nuri SQL 2 01-08-2005 18:30:28


La franja horaria es GMT +2. Ahora son las 10:07:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi