Конвертация кода

Ольга 1989

New member
Joined
Dec 11, 2011
Messages
3
Reaction score
0
Age
34
Location
Пермь
Здравствуйте форумчане! Я - новенькая! Забрела сюда случайно через поиск. Хочу попросить помощи у настоящих спецов в области программирования на различных языках. Как правильно написать процедуру для кнопки Button2 в моей программке. (Чтобы в поле Memo1 появился результат того, что написано на кнопке - сконвертированный код с Delphi на C++)

Начальный код:
Code:
unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
Label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)+ StrTofloat(Edit2.Text));
end;

end.
 

zashiki2009

Member
Joined
Aug 25, 2009
Messages
21
Reaction score
16
Location
Люберцы
Label1->Caption = FloatToStr(StrToFloat(Edit1->Text) + StrTofloat(Edit2->Text));
Memo1->Text = Label1->Caption;
или для кнопки
Button1->Caption = FloatToStr(StrToFloat(Edit1->Text) + StrTofloat(Edit2->Text));
Memo1->Text = Button1->Caption;
и т.д. и т.п.
 
Last edited by a moderator:

Ольга 1989

New member
Joined
Dec 11, 2011
Messages
3
Reaction score
0
Age
34
Location
Пермь
К сожалению это не то что мне надо. Ну это не и неудивительно, что вы меня неправильно поняли. Почему-то здесь не загружаются ни rar, ни zip, ни jpg в которых более наглядно всё объясняется.
Дело в том, что мне надо получить код на С++ в поле Мемо, сгенерированный автоматически (при нажатии кнопки)
 
Last edited by a moderator:
Top