[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Я слышал что эту вкладку можно установить в Delphi 7. Поделитесь ссылкой на эти компоненты и если можно инструкцию по установке...

 

Jed7777 да установить компоненты из дельфи 6 можно. но я бы на твоём месте всё же делал через инди... инфы по инди в нете полно... а уж по отправле писем тем более (я сам несколько раз писал)

 

Есче один вопрос: какой код надо написать или что надо изменить, что бы при запуске программы, она пряталась в панель задач где время, как квип или антивирус кав, и что бы можно было со своей иконкой

 

http://delphiworld.narod.ru/dw.html

 

такой вопрос. при нажатии на button1 выполняется действие допустим form1.close. как сделать таймер на выполнение действия? чтобы при нажатии на button1 действие выполнилось скажем через 5 сек. спасибо.

 

в обработчике OnClick для button1 перед выполняемым кодом напиши:

Code:

Sleep(5000);

и будет тебе счастье

 

Ога, и текуший поток заснет .. а если ему в эти 5 секунд надо чтонить вывести кпримеру?) лудше TTimer с интервалом в 5000, а по нажатии кнопки - активировать.

 

Не, ну если хочешь, я тебе могу щас написать код с вынесением в отдельный поток, а оно надо ? Может человеку хватит и этой строки и ничего выводить не надо) Ну можно и таймером впринципе, это на любителя...

 

ключевое слово если ..

 

OnClick
begin
sleep(5000);
ShowMessage("5 seconds");
end;

 

Добавляешь на форму таймер, в его свойствах

Code:

Enabled:=false, 
Interval:=5000,

в обработчике события onTimer пишешь весь код которые тебе нужно запустить, а в OnClick пишешь

Code:

timer1.Enabled:=true;

вот и все

 

Имеем часть кода в part1.pas , вторую часть в part2.pas .

Чтобы part2.pas ("с подгрузкой" part1.pas) компилировался в exe, необходимо сделать так :
пишем в коде файла part2.pas после uses crt, подгрузку файла part1.pas :

Но почему, в FreePascaL такой метод срабатывает, а в Pascal 7.0 не срабатывает?
И как сделать чтобы в Pascal 7.0 это работало, может библиотеки какой-нибудь нет ?

 

точнее напиши что именно надо?

 

может include file2.pas?

 

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=46489

 

Как сделать что бы в Едит при вводе знаков, они были кружоками, как на месте пароля в маил@агенте?

 

Свойство есть у едита - PasswordChar называется. Вот туда нужный знак и вписывается (звездочки те же).

 

Nightmarе,

Code:

function StripTags(value:string):string;
var
 i:integer;
 s:string;
begin
 i:=1;
 s:='';
 while i<=length(value) do begin
   if value[i]='<' then repeat inc(i) until (value[i]='>') else s:=s+value[i];
   inc(i);
 end;
 result:=s;
end;

 

2 BlackSun

Code:

for (i:=0 to i<Memo1.count)
 begin
  MemoStart.Lines.Strings[i]:=stringReplace(MemoStart.Lines.Strings[i],'<lol>','',[rfReplaceAll]);
  MemoStart.Lines.Strings[i]:=stringReplace(MemoStart.Lines.Strings[i],'</lol>','',[rfReplaceAll]);
 end;

ps в коде возможны мелкие ошибки в реализации цикла давно нечего на делфи неписал...

 

да какие ошибки ... там глючить то почти нечему. если только можно сократить чуток... т.к. property Strings[Index: Integer]: string read Get write Put; default;

можно написать сразу индекс строки ... вот так
а и ещё... count надо умиеньшить на 1

Code:

for i:=0 to Memo1.count - 1 do
 begin
  MemoStart.Lines[i]:=stringReplace(MemoStart.Lines[i],'<lol>','',[rfReplaceAll]);
  MemoStart.Lines[i]:=stringReplace(MemoStart.Lines[i],'</lol>', '',[rfReplaceAll]);
 end;