ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
03.03.2009, 23:30
|
|
Новичок
Регистрация: 10.07.2008
Сообщений: 1
Провел на форуме:
15931
Репутация:
0
|
|
Пожалусто, подскажите ХОРОШИЙ учебник delfi чтобы научится делать ВИРИ И ТРОЯНЫ
|
|
|
03.03.2009, 23:32
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от Maxxxtri23
Есть у меня memo и Edit так вот в мемо есть несколько строк, так вот как мне сделать чтобы допустим значение 3 строки в мемо присвоилось едиту? или еще лучше чтб было так: 1 строчка мемо присвоилась 1 едиту, 2 строка 2 едиту, ну и тд. до 10. И еще как ограничить кол-во строчек в мемо до 10.
Код:
for i:=1 to 10 do
memo1.Lines.Strings[i] := (FindComponent('edit'+inttostr(i)) as TEdit).Text;
|
|
|
|
03.03.2009, 23:33
|
|
Новичок
Регистрация: 29.06.2007
Сообщений: 9
Провел на форуме:
24289
Репутация:
0
|
|
у кого нибудь есть исходник этой программы? Trav2
s59.radikal.ru/i164/0903/66/54e4bab1264f.gif
программа была взята из книжки "Delphi Готовые алгоритмы", но сайт на который указывается в книжке уже давно не существует..
|
|
|
|
03.03.2009, 23:34
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Пожалусто, подскажите ХОРОШИЙ учебник delfi чтобы научится делать ВИРИ И ТРОЯНЫ
1) не "delfi" а "del phi"
2) нету таких. сперва на паскале напиши несколько программ 
|
|
|
|
03.03.2009, 23:37
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от mrVoodoo
у кого нибудь есть исходник этой программы? Trav2
s59.radikal.ru/i164/0903/66/54e4bab1264f.gif
программа была взята из книжки "Delphi Готовые алгоритмы", но сайт на который указывается в книжке уже давно не существует.
http://delphialg.info/index.php?modtel=06-delphialg&nomerstr=0001
Последний раз редактировалось eLWAux; 03.03.2009 в 23:40..
|
|
|
|
03.03.2009, 23:39
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Сообщение от Maxxxtri23
И еще как ограничить кол-во строчек в мемо до 10.
Вопрос все еще остается в силе
|
|
|
|
03.03.2009, 23:42
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от Maxxxtri23
Вопрос все еще остается в силе:
И еще как ограничить кол-во строчек в мемо до 10.
http://www.delphisources.ru/pages/faq/base/memo_limits.html
|
|
|
|
03.03.2009, 23:57
|
|
Новичок
Регистрация: 29.06.2007
Сообщений: 9
Провел на форуме:
24289
Репутация:
0
|
|
Сообщение от eLWAux
http://delphialg.info/index.php?modtel=06-delphialg&nomerstr=0001
это та книга пропущенная через файнридер, но в книге не описывается вся программа, а только основные процедуры.. меня как раз интересует графический интерфейс, который там не описан..
|
|
|
|
04.03.2009, 07:27
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Результат функции может быть массивом? Если да, то как правильно это представить? Пробую так, неполучается
Код:
.
function erwer(erwr:string):array[0..100] of string;
begin
result[0]:='werwr';
end;
begin
showmessage(erwer('dsadas')[0]);
end.
|
|
|
|
04.03.2009, 08:44
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
Результат функции может быть массивом? Если да, то как правильно это представить? Пробую так, неполучается
Код:
.
function erwer(erwr:string):array[0..100] of string;
begin
result[0]:='werwr';
end;
begin
showmessage(erwer('dsadas')[0]);
end.
функция не может возвращать массив, это ограничение можно обойти если ввести новый тип:
type
ass=array[0..100] of string;
и сделать чтоб функция возвращала его:
function erwer(erwr:string):ass;
|
|
|
|
|
|
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
|
|
|
|
Линейный вид
