ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
31.05.2008, 01:53
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
2 Nighware
Там просто ошибка! Надо : SetWindowRGN))) А пользоваться так:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile('C:\2.bmp');
SetWindowRGN(Form1.Handle, BitmapToRegion(bmp,clwhite), True);
finally
Bmp.Free;
end;
end;
|
|
|
31.05.2008, 20:04
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
config.ini :
PHP код:
[Combo1]
line1=line
[Combo2]
line2=line
[Combo3]
line3=line
и сам код в OnCreate кинь
PHP код:
var
Ini: Tinifile;
begin
Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'config.ini');
ComboBox1.Text := ini.ReadString('Combo1','line1',Combobox1.Text);
ComboBox2.Text := ini.ReadString('Combo2','line2',Combobox2.Text);
ComboBox3.Text := ini.ReadString('Combo3','line3',Combobox3.Text);
end;
// писал прямо в формочке на форуме |
|
|
|
31.05.2008, 20:19
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от LEE_ROY
config.ini :
// писал прямо в формочке на форуме
Опять не то, программа изначально знает название line2 и уже по нему получает параметр принадлежащий line2.
А мне нужно чтобы программа получала неизвестный список:
line1
line2
line3
(на этом месте могут быть любые слова)
и уже получив их пихнула в один ComboBox, а при выборе из ComboBox какой нить линии уже в поле edit шло значение этой линии.
То есть в тексте такая инфа:
?=?
?=?
?=?
И то и другое неизвестно.
Можно использовать и такой вид:
[Combo1]
?=?
[Combo2]
?=?
[Combo3]
?=?
Где Combo1, Combo2, Combo3 уже известны(но количество линий в файле может быть любым), но то что под вопросом не известно программе.
В любом случае спасибо за помощь!!!
...
ВСЁ! Спасибо мне помогли!!!
Последний раз редактировалось begin_end; 01.06.2008 в 23:07..
|
|
|
|
01.06.2008, 06:54
|
|
Познавший АНТИЧАТ
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
[Combo1]
Count=2
Combo0=aaa
Combo1=aaa
Combo2=aaa
Считываешь параметр Count и потом в цикле все остальное ..
|
|
|
|
01.06.2008, 13:10
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
procedure TForm1.Button1Click(Sender: TObject);
var nitem,n:integer;
begin
idsmtp1.Host:='smtp.mail.ru';
idsmtp1.port:= 25;
idsmtp1.Username:='anti.killer';
idsmtp1.Password:='*****';
idmessage1.From.address:='anti.killer@mail.ru';
idmessage1.body.text:='asdasd';
idmessage1.Subject:='asdasd';
nitem:=listbox1.ItemIndex;
nitem := 0 to 2 do
idmessage1.Recipients.Add.address:=listbox1.Items[nitem];
idsmtp1.Connect;
idsmtp1.Send(idmessage1);
showmessage('send');
inc(nitem);
idsmtp1.Disconnect();
end;
у меня такой код.когда я добовляю три майла в listbox отсылает на все три потому что стоит значение nitem := 0 to 2 do добовляю 4 емайла вызалиет ошибка как сделать чтоб при добовление строк добовлялось в значение nitem := 0 to сюда
Последний раз редактировалось /Boom\; 12.06.2008 в 00:35..
|
|
|
|
01.06.2008, 13:30
|
|
Участник форума
Регистрация: 11.05.2007
Сообщений: 149
Провел на форуме:
6373157
Репутация:
247
|
|
Nitem := 0 to listbox1.items.count do
Как то так попробуй
|
|
|
|
01.06.2008, 13:55
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
Nitem := 0 to listbox1.items.count do
Nitem := 0 to listbox1.items.count -1 do
|
|
|
|
01.06.2008, 14:30
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Спасибо!Вот еще один вопрос как из мемо построчно перенести текст в listbox?
|
|
|
|
01.06.2008, 14:38
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
for i := 0 to ListBox1.items.Count-1 do
memo1.lines.add(ListBox1.items[i]);
|
|
|
|
01.06.2008, 14:44
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for I := 0 to listbox1.Items.count - 1 do
memo1.lines.add(ListBox1.items[i]);
end;
делаю так не переносит
Помойму тут наоборот с listbox в memo
Последний раз редактировалось begin_end; 04.06.2008 в 02:38..
Причина: 2 поста - в 1
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид