HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 30.05.2007, 13:36
-n00by-
Познающий
Регистрация: 10.03.2007
Сообщений: 49
С нами: 10089815

Репутация: 45
По умолчанию

я не вредный - в поизк посылать не буду,хотя вопрос тупой. Короч есть такие функции IntToStr и StrToInt. дальше сам подумай
 
Ответить с цитированием

  #12  
Старый 30.05.2007, 15:42
ozhjog
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.
 
Ответить с цитированием

  #13  
Старый 30.05.2007, 15:43
ozhjog
Banned
Регистрация: 28.04.2007
Сообщений: 20
С нами: 10020434

Репутация: -44
По умолчанию

Если кто нить знает как так сделать напишите пж либо в асю либо здесь заранее признателен=)
 
Ответить с цитированием

  #14  
Старый 30.05.2007, 15:55
Exile1985
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами: 10395573

Репутация: 94
По умолчанию

так:


Код:
procedure TForm1.Button1Click(Sender: TObject);
begin

ResultEdit.Text:=ResultEdit.Text+IntToStr(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ResultEdit.Text:=ResultEdit.Text+IntToStr(2);
end;

end.
желательно поставь запрет редактирования ResultEdit на прямую, найди в свойствах ResultEdit свойство Enabled и поставь false.

остальным: лучшеб помогли и ответили чем тупить и флудить

Последний раз редактировалось Exile1985; 30.05.2007 в 15:58..
 
Ответить с цитированием

  #15  
Старый 30.05.2007, 15:55
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами: 10393869

Репутация: 2032


По умолчанию

ozhjog, ты весь код напиши, а то не понятно, к чему это:

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin

ResultEdit.Text:=IntToStr(1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ResultEdit.Text:=IntToStr(2);
end;
ЗЫ пиши в тегах [CODЕ][/CODE]
 
Ответить с цитированием

  #16  
Старый 30.05.2007, 17:52
mari00
Участник форума
Регистрация: 27.10.2006
Сообщений: 115
С нами: 10282757

Репутация: 119
По умолчанию

А можно вопрос...В мемо выводить не дано??=\
 
Ответить с цитированием

  #17  
Старый 30.05.2007, 17:55
ozhjog
Banned
Регистрация: 28.04.2007
Сообщений: 20
С нами: 10020434

Репутация: -44
По умолчанию

Цитата:
Сообщение от mari00  
А можно вопрос...В мемо выводить не дано??=\
неа в мемо не катит хочу калькулятор в Edit чтоб выводилось=)как виндовский стандартный=)ток пока мой мозг не готов к етому да и зык я ещё плохо знаю!мож вы мне ещё литературу какую нить стоящую посоветуети???спс =)
 
Ответить с цитированием

  #18  
Старый 30.05.2007, 18:04
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами: 10393869

Репутация: 2032


По умолчанию

Цитата:
Сообщение от ozhjog  
чувак не нервничай всё ты можешь если захочешь=)
я знаю. хватит оффтопить.

ЗЫ Фленов, Библия Delphi
 
Ответить с цитированием

  #19  
Старый 30.05.2007, 18:09
Fata1ex
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами: 10216668

Репутация: 930


По умолчанию

Цитата:
Сообщение от Piflit  
ЗЫ Фленов, Библия Delphi
Это зло которое разрушает мозг! Культина читай
 
Ответить с цитированием

  #20  
Старый 30.05.2007, 18:12
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами: 10393869

Репутация: 2032


По умолчанию

Цитата:
Сообщение от Fata1ex  
Это зло которое разрушает мозг!
обоснуй
 
Ответить с цитированием
Ответ





Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.