ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
07.01.2008, 16:34
|
|
Участник форума
Регистрация: 27.03.2007
Сообщений: 161
Провел на форуме:
1273248
Репутация:
785
|
|
Сообщение от Joker-jar
Ну надо твои переменные сделать типа string, это раз. Во-вторых, StrToFloat тут ни к чему
Спасибо! Все заработало! 
Еще вопрос, подскажите, как мне получить все возможные комбинации из 8 переменных? Есть 8 разных чисел, нужно вывести их в окно (Memo), но они не должны повторятся.
12345678
12345687
12345867...
87654321
Подскажи, как это реализовать?
Последний раз редактировалось .Begemot.; 09.01.2008 в 18:41..
|
|
|
09.01.2008, 20:19
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Код:
type
maska = array[1..8] of boolean;
const
chars = '12345678';
var
msk: maska;
procedure replaces(s: string; c: byte; m: maska);
var
i: integer;
begin
if c = 8 then
Form1.Memo1.Lines.Add(s)
else
for i := 1 to 8 do
if not m[i] then
begin
m[i] := true;
replaces(s + chars[i], c+1, m);
m[i] := false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
replaces('',0,msk);
end;
8! штук... |
|
|
|
12.01.2008, 11:17
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
подскажите как вставлять ссылки в делфи. (т.е при нажатии на ссылку переходишь по определенному адресу)
|
|
|
|
12.01.2008, 11:25
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Сообщение от GSM™
подскажите как вставлять ссылки в делфи. (т.е при нажатии на ссылку переходишь по определенному адресу)
ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);
|
|
|
|
13.01.2008, 14:10
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
Сообщение от zl0y
ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);
с этим ничего не вышло. кто может подскажите. и еще вопрос. перенес на новую оболочку PageControl, создал несколько новых вкладок. комплитирую и получаю окно этой программы. но когда разворачиваю на весь экран то оболочка разворачивается а PageControl нет. как сделать чтобы при развертывании программы на весь экран PageControl тоже разворачивалась?
|
|
|
|
13.01.2008, 14:50
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?! А на счёт pagecontrol:что ты подразумеваешь под словом новая оболочка? она что не стандартной формы у тебя?
|
|
|
|
13.01.2008, 15:03
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
объясню заново. запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно из Win32 PageControl. жму F9. появляется программа. если ее развернуть то оболочка программы разворачивается а PageControl остается на месте. как сделать так что бы оболочка программы с PageControl разворачивались и сворачивались синхронно?
zlOy правильно говорит используй ShellExecute, может ты просто забыл модуль ShellApi?!
делаю так -
запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. перетаскиваю на это окно стандартные- Label.
два щелчка и появляется этот текст-
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
end.
вставляю код zlOy'ва так-
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://www.my.com', nil, nil, SW_SHOW);
end;
end.
при нажатии F9 просто выделяется бордовым цветом код который указал zlOy'ва а внизу это-
[Ошибка] Unit1.pas(28): Undeclared identifier: 'ShellExecute'
[Фатальная Ошибка] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
|
|
|
|
13.01.2008, 15:17
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
объясняю:
1) вставляешь этот код по щелчку на label. Затем поднимаешься по коду выше( в самое начало) где модули uses прописаны(Windows, SysUtils, ... и прочие) подключаешь через запятую новый модуль(по умолчанию его нет!) - SHELLAPI. нажимаешь F9.
2) чтобы pagecontrol развертывался вместе с формой, выдели его и в свойствах его найди Align( почти самое первое) и измени на atClient! всё!
Последний раз редактировалось A2GIL; 13.01.2008 в 15:19..
|
|
|
|
13.01.2008, 15:26
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
A2gil огромное тебе спасибо. все получилось. теперь возник еще вопросик. как писать текст? т.е запустил делфи пуск-программы-делфи. далее файл-создать-приложение. появляется окно. какой элемент надо перенести чтобы в результате получилась просто программа содержащая текстовую информацию?
|
|
|
|
13.01.2008, 15:51
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
ну вообще-то на стандартной вкладке(Standart) TMemo в него можно запихать какой угодно текст, как программо (загружать из текстового файла), так и сразу в свойствах задать(свойство Lines)
P.S. В следующий раз можешь не напоминать как запустить DELPHI  |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
