ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
16.03.2010, 14:53
|
|
Новичок
Регистрация: 07.01.2010
Сообщений: 11
Провел на форуме:
64528
Репутация:
0
|
|
Добрый день, мне очень срочно нужны ответы на пару вопросов...
1) Мне нужно чтобы при на жатии на кнопку на label выводился определенный текст (Это я сделал, не такой уж нуб), Но мне надо чтобы при втором нажатии на эту кнопку появлялся второй текст вместо прежнего, либо как сделать чтобы при нажатии на кнопку выводился текст а потом эта кнопочка удалялась и вместо нее появлялась другая кнопочка при нажатии на которую уже появлялся второй текст
2) Как сделать чтобы при нажатии на кнопку открывалось еще одна форма (окно)
и закрывалось старое.
|
|
|
16.03.2010, 17:40
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Сообщение от Kassper
Добрый день, мне очень срочно нужны ответы на пару вопросов...
1) Мне нужно чтобы при на жатии на кнопку на label выводился определенный текст (Это я сделал, не такой уж нуб), Но мне надо чтобы при втором нажатии на эту кнопку появлялся второй текст вместо прежнего, либо как сделать чтобы при нажатии на кнопку выводился текст а потом эта кнопочка удалялась и вместо нее появлялась другая кнопочка при нажатии на которую уже появлялся второй текст
2) Как сделать чтобы при нажатии на кнопку открывалось еще одна форма (окно)
и закрывалось старое.
1)
Проверяй какой текст написан в label например так:
if label1.caption='текст 1' then
label1.caption:='текст 2'
2)
Создаёшь вторую форму file->new->form
Кидаешь кнопку и пишешь:
Form1.hide;
Form2.show;
|
|
|
|
16.03.2010, 18:24
|
|
Новичок
Регистрация: 07.01.2010
Сообщений: 11
Провел на форуме:
64528
Репутация:
0
|
|
Сообщение от TrueBit
1)
Проверяй какой текст написан в label например так:
if label1.caption='текст 1' then
label1.caption:='текст 2'
2)
Создаёшь вторую форму file->new->form
Кидаешь кнопку и пишешь:
Form1.hide;
Form2.show;
А я сделал по другому, я сделал примерно так:
Button1.Visible := False
Button2.Visible := True
Ну понятно изночально поставил у второй нивидимость=) И сделал чтобы когда на вторую жмякаешь уже второй текст выводился, Мне это первое в голову пришло так и сделал все получилось=) Вообще пытаюсь сделать чтото типо Книги мне возможно зачтут это за ЕГЭ а это ведь халявный экзамен из четырех я ваще буду очень рад если мне это зачтут, да и собираюсь на программиста думаю это тоже будет полезно в будущем...
|
|
|
|
16.03.2010, 16:25
|
|
Новичок
Регистрация: 04.02.2009
Сообщений: 14
Провел на форуме:
142880
Репутация:
0
|
|
Как осуществить загрузку файла на например на dump.ru?
Помогите плз
|
|
|
|
16.03.2010, 20:30
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Как TStringList перевести в String с разделителем #13#10?
|
|
|
|
16.03.2010, 21:27
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
если имеем такие строки:
StringList.Add('1');
StringList.Add('12');
StringList.Add('123');
то свойство StringList.Text будет равно '1#13#1012#13#10123#13#10'
а свойство StringList.CommaText '1,12,123'
|
|
|
|
16.03.2010, 23:16
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Подкиньте парочку ссылкой, про стэк и кучу, пожалуйста.
|
|
|
|
17.03.2010, 07:34
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
Сообщение от fenixelite
Подкиньте парочку ссылкой, про стэк и кучу, пожалуйста.
http://www.delphisources.ru/pages/faq/base/manage_segment_data_size.html
http://forum.sources.ru/index.php?showtopic=280746
http://www.xakep.ru/magazine/xa/114/050/1.asp
http://articles.org.ru/cn/showdetail.php?cid=7342
http://delphi.about.com/od/objectpascalide/l/aa103003a.htm
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10354858.html
|
|
|
|
17.03.2010, 13:17
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
хочу добавить в базу данные
SQLConnection1.Connected:=true;
SimpleDataSet1.DataSet.CommandText:='INSERT INTO users ("id","name","fname","email","pass") values ("","'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Tex t+'","'+Edit4.Text+'")';
SimpleDataSet1.DataSet.Active:=true;
SimpleDataSet1.Active:=true;
что не правельно?
Последний раз редактировалось XIII; 17.03.2010 в 16:08..
|
|
|
|
17.03.2010, 20:31
|
|
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598
Репутация:
34
|
|
Уважаемые мемберы может ктонибудь показать на примере как скачать и выполнить файл использую для скачивания только winsocks ??
у меня что то не выходит =((
Код:
WSAStartup(makeword(1,1),info);
sHwnd:=Socket(AF_INET, SOCK_STREAM, 0);
sin.sin_family:=AF_INET;
sin.sin_port:=htons(dport);
sin.sin_addr.S_addr:=inet_addr(dhost);
connect(sHwnd, sin, sizeof(sin));
sbuff1 := '';
sbuff1 := 'GET ' + dpath + '? HTTP/1.1'+ #13#10 +
'Host: ' + dhost + #13#10#13#10;
CopyMemory(@sBuff,pchar(sBuff1),length(sBuff1));
send(sHwnd, sBuff, Length(sBuff), 0);
recv(sHwnd, rBuff, Length(rBuff), 0);
fileText := copy(rBuff, pos(#13#10#13#10, rBuff)+4, length(rBuff)-pos(#13#10#13#10, rBuff));
SaveFile(SavePath, fileText);
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид