VPF::Ввод переменных с клавиатуры - Форум программистов

Веталька

Дата 9.11.2008, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

доброго времени суток, подскажите елементарщину, как сделать чтоб x,y,z вводились с клавиатуры через Memo или Edit?, а то получается только через константы smile

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const x=1;
      y=1;
      z=1;

var
  Form1: TForm1;
  a,b: real;




implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin

  a:= (2*cos(x-3.14/6)) / (0.5 +sin(sqr(y)));
  b:= 1 + (sqr(z)) / 3+ sqr(z) / 5;
  label1.caption := floattostr(a);

end;

end.

Это сообщение отредактировал(а) Веталька - 9.11.2008, 19:00

--------------------

Ради зачета студент идет на все, даже на лекции........................

Sanek123

Дата 9.11.2008, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет

может быть так:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;  //размешение на форме edit'ов
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);


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


var
  Form1: TForm1;
  a,b,x,y,z: real;  //вместо констант - переменные, на всякий пожарный вещ. типа

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

x:=StrToInt(Edit1.Text);  //считываем значения edit'ов 
y:=StrToInt(Edit2.Text);
z:=StrToInt(Edit3.Text);

  a:= (2*cos(x-3.14/6)) / (0.5 +sin(sqr(y)));
  b:= 1 + (sqr(z)) / 3+ sqr(z) / 5;
  label1.caption := floattostr(a);

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not ( Key in ['0'..'9',Char (vk_back) ] ) then Key:=#0;  // проверка, что во время ввода в edit'ы нажимаются только цифры
end;

procedure Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if not ( Key in ['0'..'9',Char (vk_back) ] ) then Key:=#0;
end;

procedure Edit3KeyPress(Sender: TObject; var Key: Char);
begin
 if not ( Key in ['0'..'9',Char (vk_back) ] ) then Key:=#0;
end;

end.

--------------------

Вас разыскивают бойцы 139-го порта...

THandle

Дата 9.11.2008, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Sanek123,

1) Зачем вещественный тип когда используется в любом случае преобразование к целому? (StrToInt)
2) Зачем 3 одинаковых процедуры? Назначить всем одно событие да и всех делов...
3) Я бы делал как нибудь так(писал здесь):

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;  //размешение на форме edit'ов
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a, b: Real; 
  x, y, z: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TryStrToInt(Edit1.Text, x) then
    if TryStrToInt(Edit2.Text, y) then
      if TryStrToInt(Edit3.Text, z) then
      begin 
        a := (2 *cos(x-3.14/6)) / (0.5 +sin(sqr(y)));
        b := 1 + (sqr(z)) / 3+ sqr(z) / 5;
        label1.caption := floattostr(a);
     end;
end;

end.

Веталька

Дата 9.11.2008, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

Sanek123, THandle большое спасибо

--------------------

Ради зачета студент идет на все, даже на лекции........................

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »