[ Delphi / Pascal ] — начинающим: задаем вопросы

-------------------------------------------------------
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?

• -->
  -->
  [*]Как пропарсить файл вида sdas@mail.ru \n asdas@bk.ru ?
  
  [*]Эмуляция консоли:
  
  
  [*]Как осуществить отправку файла выбранного в 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

 

Да это так и задумано 101 раз и знаю что for i:=1 to 100

 

Ну можно и в контейнер сначало скинуть типа Tstringlist эти 100 строк но я всё равно не понимаю как вывести из них
в memo1 Randomные(5) ! А ещё один цикл это не вариант !

 

Почему?

 

А нет всё ок можно и ещё один цикл только не пойму как взять рандомную строку ?

 

А как берёшь, например, строку с номером i ?

 

Я уже всё понял спасибо за желание помочь !

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
s:string;
begin
...
s:=SysErrorMessage(GetLastError);

 

Здравствуйте,

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 происходит не только символов !"№;%:?*(), но и цифр ! Что я не так делаю ?

 

попробуй только [rfReplaceAll] оставить

 

Нет к сожалению ничего не дало !

 

StringReplace кривой.

PHP:

var
i:integer;
const
banned=['!','@','#','$','%','^','&','*','(',')'];
begin
for 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;


 

Кто вас учил так массивы извлекать? о_О