Por que me aparece siempre este error !! ???

[llSnakell]

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 :/

[[Caral]]

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

[llSnakell]

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

[[Caral]]

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

[llSnakell]

Sorry Si te Molesto demasiado
Muchas Gracias !!!

[[Caral]]

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

[llSnakell]

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.