Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 

Delphi (Pascal)

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> Delphi (Pascal)
Имя
Сообщение << Старые топики   Новые топики >>
Delphi (Pascal) - 2012-02-28 21:00:44.283333   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
Я новичок, токо 2 день занимаются программированием8|

такое вот хотел спросить
Как сделать чтобы при "клик" на кнопку виполналося 2 действия?
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(edit1.Text)

end;
тут токо 1 действие.

а мне нужно чтобы виполнялись 2
ClientSocket1.Socket.SendText(edit1.Text)вместе с
ClientSocket1.Socket.SendText(edit2.Text)

как оформить?
Post #: 1
RE: Delphi (Pascal) - 2012-02-28 21:43:52.506666   
unknownproject

Сообщений: 56
Оценки: 0
Присоединился: 2011-09-01 17:35:19.886666
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(edit1.Text);
ClientSocket1.Socket.SendText(edit2.Text);
end;

Если одновременно, то вот (=
Post #: 2
RE: Delphi (Pascal) - 2012-02-28 21:54:04.286666   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
Я так сразу же пробовал )
Ошибка,
Post #: 3
RE: Delphi (Pascal) - 2012-02-28 23:58:06.486666   
Surft

Сообщений: 252
Оценки: 5
Присоединился: 2010-08-25 07:23:20.633333
Все правильно тебе unknownproject написал, ошибка у тебя наверное потаму что ты в конце команды неставиш ; (точку с запятой)

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(edit1.Text);
ClientSocket1.Socket.SendText(edit2.Text);
end;
Post #: 4
RE: Delphi (Pascal) - 2012-02-29 17:22:27.336666   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
ага точно) чото я тупонув,
;
спасібки,
Post #: 5
RE: Delphi (Pascal) - 2012-02-29 18:15:15.486666   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
а как сделать чтобы текст с edit1 и edit2 передавались НЕ слитно.
а то получается так:
edit1edit2
а надо шобы было так:
edit1
edit2
Post #: 6
RE: Delphi (Pascal) - 2012-02-29 18:32:48.473333   
_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
Передавай между ними знак препинания.
Post #: 7
RE: Delphi (Pascal) - 2012-02-29 21:32:32.773333   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666

quote:

ORIGINAL: _SaZ_

Передавай между ними знак препинания.

как оформить?)
Post #: 8
RE: Delphi (Pascal) - 2012-02-29 22:05:17.933333   
Surft

Сообщений: 252
Оценки: 5
Присоединился: 2010-08-25 07:23:20.633333
Можно так..procedure TForm1.Button2Click(Sender: TObject); begin ClientSocket1.Socket.SendText(edit1.Text+' - '+edit2.Text); end;
Post #: 9
RE: Delphi (Pascal) - 2012-02-29 22:08:25.090000   
_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
Подумай….



бле, портите тут всю идеологическую работу своими готовыми решениями.
Post #: 10
RE: Delphi (Pascal) - 2012-02-29 22:36:42.236666   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
quote:

edit1.Text+' - '+edit2.Text

во спасібки,
Post #: 11
RE: Delphi (Pascal) - 2012-02-29 22:42:06.203333   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
и еще хотел спросить
как называются параметры которые отвицають
резиновое окно чи ни






——
да я знаю что нужно учить английский)
Post #: 12
RE: Delphi (Pascal) - 2012-03-01 09:17:02.540000   
Surft

Сообщений: 252
Оценки: 5
Присоединился: 2010-08-25 07:23:20.633333
quote:

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

_SaZ_ а зачем мучить человека. :)
Post #: 13
RE: Delphi (Pascal) - 2012-03-01 09:19:50.070000   
jekakarpec

Сообщений: 34
Оценки: 0
Присоединился: 2011-05-15 16:35:30.906666
ап
Post #: 14
RE: Delphi (Pascal) - 2012-03-01 12:51:58.006666   
_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
quote:

ORIGINAL: Surft

_SaZ_ а зачем мучить человека. :)

А зачем делать медвежьи услуги?
Чтобы этот человек, вместо того, чтобы попытаться хоть что-то освоить, лез на форум с очередным тупым вопросом?

ТС - типичный формошлёп, который даже не попытался открыть хоть какой-либо учебник или гугл. Посмотри его последний вопрос про формы. Он даже нормальным языком не может объяснить, чего хочет, не говоря про то, что у него даже не хватает способностей прочитать список свойств формы и найти там свойство Border.
Post #: 15
RE: Delphi (Pascal) - 2012-03-01 21:38:51.826666   
WhileplusS

Сообщений: 6
Оценки: 0
Присоединился: 2012-02-23 13:52:47.146666
quote:

ORIGINAL: jekakarpec

и еще хотел спросить
как называются параметры которые отвицають
резиновое окно чи ни






——
да я знаю что нужно учить английский)

quote:

и еще хотел спросить
как называются параметры которые отвицають
резиновое окно чи ни


Ты перед тем как спросить хоть сам прочитай что написал
Post #: 16
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> Delphi (Pascal)







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.