------------------------------------------------------- by jes Навигация по разделу: [*]Где скачать Delphi ?--> --> --> [*]Как сделать действия закрятия формы(программы), сворачивания и развертывания её? [*]Я хочю чтоб при на жатии кнопки на Button1 комп выключался,а при нажатии на кнопку Button2 совершалась перезагрузка... [*]Как добавлять запись в файл? [*]А потом какой функцией сделать поиск по файлу? [*]Как добавить Иконку?[*]Как разобрать uins.ini формата 3252436;passwr на две переменные?--> --> --> [*]Как проверить что: 1. интернет включен 2. Что данные не были заблочены FireWall'ом и успешно отправлены.--> -->[*]Как реализовать отправку писем через Socks5, допустим, используя компоненты Indy - IdSMTP и TidMessage? [*] в файле допустим 15 номеров формата uins;pass ,как сделать чтобы все эти 15 номеров подконнектились? [*] Ищу учебник или статьи по сетевым компонентам (Indy), или статьи на эту тему [*] Как сделать простельние графические графические часики? [*] подскажите какие-нибудь проги для начинающих для самостоятельного написания? [*] какой должен быть тип возвращаемого функцией значения, если функция сохраняет файл?--> --> [*] можно осуществлять печать с Memo? или только с RichEdit? [*] Хотелось бы услышать несколько советов по уменьшению размера программы [*] Как написать чекер акков на валид ? ( конект идет через Https ) --> --> [*] Как использовать в моей программе курсоры, независящие от системы?--> --> [*] Как использовать ресурсы? [*] как работать с архивами из приложения? [*] как определить при помощи делфи имя компьютера?--> --> [*]Как получить список процессов НО ТОЛЬКО С ИХ полным путем !? [*]как создавать потоки с помощью TThread?--> --> --> [*]Как отправить почту ? [*]как использовать камандуную строку windows через дельфи?--> --> [*]как в делфи выполнять гет, пост запросы к сайтам? --> --> --> [*]Как установить компонет из исходника? [*]как при помощи TIdAttachment прикрепить файл к письму ? [*]как из Delphi запустить .bat файл? [*]Как программно загрузить файл из интернета (скрытно) ? [*]Возможно ли программно установить Пароль на папку? [*]Подскажите как по имени процесса получить его Pid? --> --> [*]как можно организовать перехват событий мышки в любом приложении?--> --> [*]Как зделать чтобы окно не сворачивалось и не разворачивалось ?--> --> [*]Как скрыть программу с панели задач?--> --> --> --> [*]как написать простенький редактор на Delphi ? [*]Есть ли исходники zlib, которые пакуют, распаковывают файлы..?--> --> [*]Подскажите пример парсинга страницы? <b> текст </b> ? ...Для нескольких тэгов [*]как сменить иконку стороннего приложения? [*]КАк сделать переход на другую форму при нажатии кнопки? [*]Как поменять размер окна, зная её хэндл? [*]как сделать чтобы когда открывалась форма номер 2, 1 форма закрывалась? [*]а как задать размер окна, например 800х600? [*]как выводить красный текст в Мемо через Memo1.Lines.Add('text');? --> --> [*]Как получить заголовок и указатель активного окна? [*] как организовать поиск определенного файла по имени или части имени?--> --> [*]TServerSocket и TClientSocket, как передать файл от сервера к клиенту или наоборот? [*]Как читать файл построчно? [*]Как программно перезагрузить Компьютер? [*]Как прохешировать строку в MD5 [*]Подскажите редактор ресурсов для .res диалогов ?--> --> [*]механизм Drag-and-Dock так, чтобы одна форма прилипала к другой при перетаскивании той формы, кторая должна прилипнуть, на ту форму, к котрой она должна прилипнуть примерно на 5-6 пикселей?? Продолжение: Как поставить на хук на TerminateProcess? Подкиньте пример работы с aplib только без FileStream? как сделать чтобы при нажатии на кнопку открывался опен диалог? Как сделать чтобы при выборе в OpenDialog имя файла(+путь) выводилось в TEdit? Как сделать OpenDialog & SaveDialog на WinAPI ? Как масштабировать форму? Как сделать чтобы окно нельзя было двигать и оно всегда было активным? где взять JVCL? --> --> [*]Как пропарсить файл вида [email protected] \n [email protected] ? [*]Эмуляция консоли: [*]Как осуществить отправку файла выбранного в OpenDialog1 на e-mail скрыто от пользователя ? --> --> [*]Как сделать на WinApi в ListView,чтобы новые записи при добавлении добавлялись сверху вниз ? Или Снизу вверх? [*]Куда поместить ProcessMessages for WinAPI? [*]FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски? --> --> [*]как созданному файлу, иконку изменить программно? [*]как получить список дочерних процессов чужого приложения? (для win2000-XP) [*]поиск определителя матрицы, любого порядка, рекурсия [*]Как можно зашифровать файл в Base64 и разшифровать из Base64?--> --> [*]как отправить письмо через WinSock c аттачментом? [*]как иконку добавить к программе? [*]Работа с ф-цией WaveOutOpen? [*]как написать программу чтоб она "заходила" на сайт допустим mysite.ru ,чтоб счетчик защитывал посещение и при этом юзер ничего не видел? [*]Поиск слова в строке/тексте [*]как программно залогинится на сйте(vBulletin)? [*]Выдаёт ошибку Project2.dpr(2): File not found: 'Crt.dcu' [*]посылка формы методом Post по Https [*]Как скопировать себя при запуске в определенное место на диске ? [*]Преобразование Ascii в шестнадцатиричное представление [*]...и обратно... [*]Как сделать форму ввиде сердца, фигуры , рисунка? [*]Как передать текст с первой формы на вторую ? [*]Как прочитать параметры запуска? ( prog.exe -param1 -param2) [*]Как использовать таймер в консоли? [*]как забрать с запученого процесса cmd его строки? [*]Работа с MySQL +Пример [*]Как отключить мышь? [*]Возможно ли закриптовать программный код в исходниках?--> --> [*]Как сделать чтобы окно загружалась по центру а не соева сверху? [*]Автозагрузка программы [*]как правильно запускать файл через коммандную строку на Delphi? [*]Как с помощью IdHTTP получить содержимое веб страницы в переменную? [*]Как изменить текст в поле другого окна?--> --> [*]Как написать сетевой сниффер? [*]Как вывести числа из массива в TMemo? [*]Как сделать чтобы нажатии на кнопку/ссылку открывалась нужная web страница? [*]Как изменить цвет фона в TMemo? [*]как сделать так что бы при нажатии button1 программа закрывалась, разворачивалась или сворачивалась? [*]как сделать так чтобы при нажатии button1 срабатывал диалог OpenDialog?--> --> [*]как вывести числовую матрицу на экран? [*]Как сохранить содержимое TStringGird в файл (и загрузить из файла)? [*]Описание компонентов + новые компоненты: [*]Описание компонентов Indy: [*]Как создать процесс из части файла? [*]есть ли какой нибудь мини делфи или компилятор для него? (где скачать DCC32?) [*]Как сделать скриншот только активного окна? [*]Как программно посчитать количество слов в тексте?--> --> --> [*]Как записать матрицу в массив? [*]Принцип работы бэкдора? (исходник)--> --> [*]как из компонента ListView скопировать строчку в буфер? [*]как запустить командную строку с перенаправлением ввода вывода на сокеты? [*]Как random в delphi генерирует случайные значения? есть какой либо алгоритм? [*]как запретить закрытие form1 когда открыта form2? [*]как сделать отсылку файлов через электронную почту? [*]ICQ и Delphi [*]Как сделать окно (сплэш) с приветствием? [*]как узнать имена всех пользователей Windows? [*]а как можно сменить пароль на email ? [*]как разбить строку вида 192.168.0.1 на 192 168 0 1? [*]как отобразить на форме картинку с какого нибудь сайта ? --> --> [*]Как извлечь файл на диск из resource data? [*]Можн ли в delphi написать нечто подобное : a:array[21] of TLabel? [*]пример роботы из Делфи с MySQL? [*] как сжать папку с файлами на Delphi (rar)? -> -> [*]примитивный склейщик файлов [*]Delphi & SQLite Это продолжение аналогичной переполненной темы: https://forum.antichat.ru/threads/39636/
Как в memo1 вывести не все 100 строк по циклу а только Random(5) строк из этого цикла ? var i:integer; x:string; for i := 0 to 100 do ... Memo1.lines.add(X) end; end; end;
нужно бежать циклом не от 0 до 100, а до 4 (учитывай первый ноль) for i := 0 to 4 do внутри цикла взять рандомную строчку.
Нет начальный цикл нужен именно 100 а уже из этих ста выбрать и показать только randomные Edit1.text строк
Тогда можно ниже ещё один цикл, уже такой как я описал выше ps: я не очень помню паскаль, но мне кажется, что твой цикл выполнится 101 раз, а не 100
Ну можно и в контейнер сначало скинуть типа Tstringlist эти 100 строк но я всё равно не понимаю как вывести из них в memo1 Randomные(5) ! А ещё один цикл это не вариант !
Я уже всё понял спасибо за желание помочь ! Code: var List:Tstringlist; i,e:integer; S:string; for i := 0 to 100 do ... List.Add(S); end; for e := 1 to strtoint(Edit1.text) do Memo1.Lines.Add(List[Random(List.count)]);
Есть вопрос по Lazarus. Создаю процесс запуск sh файла в консоли... при клике Button1 создается . Code: procedure TForm1.Button1Click(Sender: TObject); var P: TProcess; begin P := TProcess.Create(nil); P.CommandLine := 'gnome-terminal -e "sh start.sh"'; // P.Options := [poUsePipes]; P.Execute; end; {Start1.sh} procedure TForm1.Button2Click(Sender: TObject); var P1: TProcess; begin P1 := TProcess.Create(nil); P1.CommandLine := 'gnome-terminal -e "sh start1.sh"'; // P1.Options := [poUsePipes]; P1.Execute; но при клике Button2,пишет ошибка создания дочернего процесса. Хотя второй TProcess с другим именем. Подскажите в чем проблема?
Здравствуйте, Code: var str:string; i:integer; edit1.text:='!@#$%$%^&*()' for i:=1 to Length(Edit1.text) do str:=StringReplace(str,Edit1.text[i],'Sym',[rfReplaceAll, rfIgnoreCase]); Edit2.text:=str; Замена на Sym происходит не только символов !"№;%:?*(), но и цифр ! Что я не так делаю ?
StringReplace кривой. PHP: vari:integer;constbanned=['!','@','#','$','%','^','&','*','(',')'];beginfor i:=1 to Length(Edit1.text) do if Edit1.Text[i] in banned then Edit2.Text:=Edit2.Text+'Sym' else Edit2.Text:=Edit2.Text+Edit1.Text[i];end;
Как правильно вывести сообщение о содержимом константы ? Code: const banned=['!','@','#','$','%','^','&','*','(',')']; begin Showmessage(banned); Incompatible types: 'String' and 'Set'
Например так: PHP: var j:integer; st:string;const banned=['!','@','#','$','%','^','&','*','(',')'];begin for j:=1 to 255 do if Chr(j) in banned then st:=st+chr(j); Showmessage(st);end;