[nemesis]

grr estoy tratando y no se, esto delphi esta dificil pa mi hehehe. aqui esta el codigo por ahora. necesito estudiar mas

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Fbutton: TRadioButton;
    Cbutton: TRadioButton;
    DataInput: TEdit;
    DataPanel: TPanel;
    cmdclear: TBitBtn;
    CmdClose: TBitBtn;
    Cmdabout: TBitBtn;
    CmdHelp: TBitBtn;
    cmdcalc: TBitBtn;
    procedure cmdclearClick(Sender: TObject);
    procedure cmdcalcClick(Sender: TObject);
    procedure CmdAboutClick(Sender: TObject);
    procedure CmdHelpClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cmdclearClick(Sender: TObject);
begin
   DataInput.Clear;
end;

procedure TForm1.cmdcalcClick(Sender: TObject);
    function CelciusToFarenheit(Temperatura: real): real;
    begin
     result := (9/5) * Temperatura + 32;
    end;


    function FarenheitToCelcius(Temperatura: real): real;
    begin
     result := (5/9) * (Temperatura - 32);
    end;
begin
    If Fbutton.Checked = True Then
    Begin

    End;

End;

...


ni se si eso esta bien me esta volviendo loco, a ver si mañana pregunto en la uni. ahora voy a estudiar pa examen de c++, eso es mas facil