Создание простейшего калькулятора (на Delphi) - проблема с полем ввода |
29.05.2007, 17:55
|
|
Banned
Регистрация: 28.04.2007
Сообщений: 20
С нами:
10020434
Репутация:
-44
|
|
Создание простейшего калькулятора (на Delphi) - проблема с полем ввода
Помогите люди добрые!!Вот решил написать калькулятор,и возник вопрос:Как сделать так чтобы в Edi1 можно было бы писать много цифр а не одно ток число. например 12345 т.е чтобы edit1 был бы дисплеем калькулятора и в нём ток в нём можно было бы производить все исчесления?? спс всем=)
|
|
|
29.05.2007, 19:25
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Ты хочешь писать: 4*1 в edit и получать в нем же ответ?=\
|
|
|
|
29.05.2007, 19:31
|
|
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
С нами:
10533245
Репутация:
773
|
|
Ты хочешь писать: 4*1 в edit и получать в нем же ответ?=\
Тож так понял))
ozhjog, ты уже спрашивал про калькулятор недавно, там же те всё рассказали, купи книгу по дельфи...
|
|
|
|
29.05.2007, 19:34
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Поля edit предназначены для ввода информации, для вывода есть label'Ы
|
|
|
|
29.05.2007, 19:59
|
|
Постоянный
Регистрация: 10.10.2006
Сообщений: 316
С нами:
10307684
Репутация:
152
|
|
С такими вопросами тебе ответят на www.delphimaster.ru
|
|
|
|
29.05.2007, 20:10
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Просто надо учиться формулировать вопросы свои. И думать, прежде чем ты их задашь.
|
|
|
|
29.05.2007, 20:45
|
|
Новичок
Регистрация: 08.12.2006
Сообщений: 25
С нами:
10223659
Репутация:
97
|
|
Да все просто, обрабатывай каждое нажатие клавиатуры на компоненте, как только будет нажата клавиша "=" распарсь введенный текст, выполни операцию и выведи в тот же едит введенное значение+результат
|
|
|
|
29.05.2007, 20:48
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
А терь подумай как это геморно
|
|
|
|
30.05.2007, 13:36
|
|
Познающий
Регистрация: 10.03.2007
Сообщений: 49
С нами:
10089815
Репутация:
45
|
|
я не вредный - в поизк посылать не буду,хотя вопрос тупой. Короч есть такие функции IntToStr и StrToInt. дальше сам подумай
|
|
|
|
30.05.2007, 15:42
|
|
Banned
Регистрация: 28.04.2007
Сообщений: 20
С нами:
10020434
Репутация:
-44
|
|
Сообщение от -n00by-
я не вредный - в поизк посылать не буду,хотя вопрос тупой. Короч есть такие функции IntToStr и StrToInt. дальше сам подумай
Короче вот посмарите исходник:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;
type
TForm1 = class(TForm)
Button1: TButton;
ResultEdit: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
DeleteButton: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ResultEdit.Text:=IntToStr(1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ResultEdit.Text:=IntToStr(2);
end;
end.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид
