ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Создание простейшего калькулятора (на Delphi) - проблема с полем ввода |
29.05.2007, 17:55
|
|
Banned
Регистрация: 28.04.2007
Сообщений: 20
Провел на форуме:
301133
Репутация:
-44
|
|
Создание простейшего калькулятора (на Delphi) - проблема с полем ввода
Помогите люди добрые!!Вот решил написать калькулятор,и возник вопрос:Как сделать так чтобы в Edi1 можно было бы писать много цифр а не одно ток число. например 12345 т.е чтобы edit1 был бы дисплеем калькулятора и в нём ток в нём можно было бы производить все исчесления?? спс всем=)
|
|
|
29.05.2007, 19:25
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500
Репутация:
930
|
|
Ты хочешь писать: 4*1 в edit и получать в нем же ответ?=\
|
|
|
|
29.05.2007, 19:31
|
|
Познавший АНТИЧАТ
Регистрация: 07.05.2006
Сообщений: 1,031
Провел на форуме:
5885100
Репутация:
773
|
|
Ты хочешь писать: 4*1 в edit и получать в нем же ответ?=\
Тож так понял))
ozhjog, ты уже спрашивал про калькулятор недавно, там же те всё рассказали, купи книгу по дельфи...
|
|
|
|
29.05.2007, 19:34
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500
Репутация:
930
|
|
Поля edit предназначены для ввода информации, для вывода есть label'Ы
|
|
|
|
29.05.2007, 19:59
|
|
Постоянный
Регистрация: 10.10.2006
Сообщений: 316
Провел на форуме:
1572471
Репутация:
152
|
|
С такими вопросами тебе ответят на www.delphimaster.ru
|
|
|
|
29.05.2007, 20:10
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500
Репутация:
930
|
|
Просто надо учиться формулировать вопросы свои. И думать, прежде чем ты их задашь.
|
|
|
|
29.05.2007, 20:45
|
|
Новичок
Регистрация: 08.12.2006
Сообщений: 25
Провел на форуме:
173575
Репутация:
97
|
|
Да все просто, обрабатывай каждое нажатие клавиатуры на компоненте, как только будет нажата клавиша "=" распарсь введенный текст, выполни операцию и выведи в тот же едит введенное значение+результат
|
|
|
|
29.05.2007, 20:48
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500
Репутация:
930
|
|
А терь подумай как это геморно
|
|
|
|
30.05.2007, 13:36
|
|
Познающий
Регистрация: 10.03.2007
Сообщений: 49
Провел на форуме:
232747
Репутация:
45
|
|
я не вредный - в поизк посылать не буду,хотя вопрос тупой. Короч есть такие функции IntToStr и StrToInt. дальше сам подумай
|
|
|
|
30.05.2007, 15:42
|
|
Banned
Регистрация: 28.04.2007
Сообщений: 20
Провел на форуме:
301133
Репутация:
-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)
|
|
|
|
Комбинированный вид