Ольга 1989
New member
Здравствуйте форумчане! Я - новенькая! Забрела сюда случайно через поиск. Хочу попросить помощи у настоящих спецов в области программирования на различных языках. Как правильно написать процедуру для кнопки 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.