9 / 9 / 4
Регистрация: 13.05.2011
Сообщений: 72
1

Помогите плиз, а то мозг взрываеться

01.11.2011, 19:04. Показов 916. Ответов 1
Метки нет (Все метки)

помогите плиз разобраться с процедуркой...
Надо в текстовые поля edt4 и edt5 вставить значения dolx и eurox соотвественно
Вот полный текст програмки

unit Unit1;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
btn1: TButton;
lbl6: TLabel;
lbl7: TLabel;
edt4: TEdit;
edt5: TEdit;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
dol:integer;
euro:Integer;
dolx:Integer;
eurox:Integer;
rub:Integer;
begin
dol:=StrToInt(edt1.Text);
rub:=StrToInt(edt3.Text);
euro:=StrToInt(edt2.Text);
eurox:=(euro)*(rub);
dolx:=(dol)*(rub);
edt4:=IntToStr(dolx);
edt5:=IntTostr(eurox);
lbl7.Caption :=IntToStr(eurox);
lbl6.Caption :=IntToStr(dolx);
end;

end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2011, 19:04
Ответы с готовыми решениями:

Помогите с прогой плиз
Составить программу для вывода на печать строки до первой встретившейся точки

Помогите плиз с датами в Delphi.
Вообщем суть проблемы такова- есть блокнот с записями дней рождений.Допустим 100 дат. Нужно...

Текстовый файл, помогите плиз
Есть txt файл, есть 24 поля edit, как каждому полю присвоить свое значение(число) из файла txt,...

Помогите плиз написать програмный код!

1
873 / 544 / 117
Регистрация: 24.11.2009
Сообщений: 1,329
01.11.2011, 20:32 2
Лучший ответ Сообщение было отмечено MurkovichBogdan как решение

Решение

Delphi
1
2
edt4.Text:=IntToStr(dolx);
 edt5.Text:=IntTostr(eurox);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2011, 20:32
Помогаю со студенческими работами здесь

Помогите с двумя задачами для экзамена плиз
Помогите с двумя задачами для экзамена плиз, 13 сделал осталось ещё две: 1. Создайте приложение,...

Сломал мозг (помогите с алгоритмом)
Собственно прошу помощи. Задача: Есть 16-ти битное число, есть список 16-битных значений. Надо...

помогите, плиз!
Здрассте. Я, честно говоря, плохо представляю себе задачу. Нужно выгрузить физическую таблицу...

помогите плиз
поменяли дизайн на сайте но яндекс почему то все время выдает старый сайт, точнее дизайн и страницы...

помогите плиз
Добрый день участники форума. У меня возникла след. проблема. Есть сайт фирмы, ранее он был в...

Помогите плиз
Тут у меня вышла такая ситуация я в паскале чуть чуть разбираюсь,непосредственно в ABC делал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru