Ayuda por favor...

[BuRtOn]

, hola amigos, soy nuevo en cuanto al lengua delphi, solo llevo 2 dias programado en el, y necesito saber lo siguiente, tengo un programa con esta estructura:


Operaciones salir
suma
rest
mul
div


Inserta 1 numero: |________________|
Inserta 2 numero: |________________|

resultado
|conocer resltado|



trabaje menu, y statictext. edit, y botton, entonces inserto el primero y segundo numero le doy click en la operacion deseada, a la cual los submenus ya estan programados para que ejecuten las operaciones pertinentes, pero no logro imprimir el resultado en el boton, que es conocer resultado, como hago amigos ???, en cada operacion que realice tengo una variable llamada r, que es el reultado de cada operacion r=resultado...entonces como hago eso ????? coloque en el botton ShowMessage(floattostr(r)); y no me funciona, que mas le tengo que agregar ??por favor espero pronta respuesta, muchas gracias y comprendamen que soy pollo en esto...

[[poliburro]]

Amigo, por favor lee la guiá de estilo.

http://www.clubdelphi.com/foros/guiaestilo.php

[Neftali [Germán.Estévez]]

Te recomiendo al igual que poliburro que revises la Guía de estilo.
También que coloques títulos descriptivos los hilos; El texto "ayuda por favor..." no da mucha información de tu problema.

Ah, bienvenido al Club.

En cuanto al problema, estaría bien que colocaras algo de código que estás utilizando, porque no queda muy clara la explicación (al menos a mi no).
Intenta concretar el problema. Pregunta algo concreto, y si obtienes errores (como dices) es bueno que coloques qué error exactamente te está apareciendo; De otra forma es difícil ayudarte.

Un saludo.

[PeterPunk]

Yo tampoco he entendido muy bien el problema, pero si tienes funciones que devuelven el resultado y quieres que éste se muestre como el texto de un botón, sería así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  r: double;
begin
  r := 1/4;
  button1.Caption := FloatToStr(r);
end;

[BuRtOn]

Saludos amigo, gracias punk por tu respuesta, pero lo que trato de hacer es tratar de insertar determinados datos para que se impriman en un botton, osea que inserte los numeros, el primero y el segundo voy al menu y selecciono la operacion deseada, ya sea suma,resta,division,multiplicacion, despues de seleccionar la operacion voy hacia el botton de resultado doy click sobre el y que me imprima el resultado....recordar que en el menu tengo programado cada operacion, por ejemplo asi tengo el de la suma:

procedure Tfrmsegundo.icoSumaClick(Sender: TObject);
var x,y,r1:real;
begin
x := strtofloat(lblEdit1.text);
y := strtofloat(lblEdit2.text);
r1 := (x+y);
end;

asi es con todas las otras operaciones solo que cambia el r1,por r2, asi sucesivamente, ahora lo que nesecito es que el botton me arroje el resultado amigo, eso es lo que no puedo hacer,mira como tengo el botton:

procedure Tfrmsegundo.Button1Click(Sender: TObject);
var r1,r2,r3,r4 :real;
begin
Button1.Caption := FloatToStr(r1);
Button1.Caption := FloatToStr(r2);
Button1.Caption := FloatToStr(r3);
Button1.Caption := FloatToStr(r4);
end;
end.

Gracias.

[PeterPunk]

BuRtOn así lo que estás haciendo es que en cada procedimiento use su propia variable "r1" cuando éstas variables deberían ser globales para poder acceder desde distintos procedimientos. O sea que se deberían declarar en

Código Delphi [-]
implementation
{$R *.dfm}
var
  r1, r2, r3, r4: double;

cambié real por double, porque la primera está obsoleta.

De todas formas sería más lógico que cada operación que quieras realizar se ejecute como una función que ya devuelva el resultado, por ejemplo:

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    function Suma: string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
function Tform1.Suma: string;
begin
  Result := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption:= Suma; //con esto se muestra el resultado en una etiqueta
  ShowMessage(Suma); //con esto se muestra el resultado en un mensaje
end;
end.

Ésto mostraría la suma de las cajas de texto tanto en una etiqueta como en un mensaje.