HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
Страница 285 из 677 « Первая < 185235275 281 282 283 284 285 286 287 288 289 295335385 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #2841  
Старый 20.02.2009, 23:44
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Цитата:
Сообщение от OnArs  
Спасибо тебе конечно, но переменными типа string пользоваться нельзя, так же как и массивами
а типа чар?
 

  #2842  
Старый 20.02.2009, 23:51
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию
Цитата:
Сообщение от Nightmarе  
Есть ли способ проверить текст в memo на наличии DOS кодировки, есть ли она там или нет ?
По сабжу:

http://tinyurl.com/bshrcd
http://tinyurl.com/asyna4
 

  #2843  
Старый 21.02.2009, 00:08
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Цитата:
Сообщение от De-visible  
По сабжу:

http://tinyurl.com/bshrcd
http://tinyurl.com/asyna4
Спс, про конверт я и так в курсе, но мне нужна именно проверка, а не конверт.
 

  #2844  
Старый 21.02.2009, 00:39
desTiny
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839

Репутация: 1502


По умолчанию
Цитата:
Сообщение от De-visible  
Slesh Есть недочеты в коде:

Вот пофикси.

Код:
f:TextFile;

Код:
assignfile(f,'input.txt');

Код:
closefile(f);
Text просто должен везде работать.
assignfile - это в делфе. если в паскале, то assign.

А вообще мегачит, работает везде - reset(f, 'file.txt');
а лучше сразу reset(input, 'file.txt');

PS мультипостить нехорошо )
__________________
Bedankt euch dafür bei euch selbst.

H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
 

  #2845  
Старый 21.02.2009, 03:31
bogger
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668

Репутация: 49
По умолчанию
Код:
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, 'http://google.ru', nil, nil, SW_RESTORE);

end;


end.
Как сделать чтоб один раз кликнул а он открылся много раз ? Подскажите плиз и еще как таймером пользоватся чтоб прога сама закрывалась через определенное время.
з.ы Не судите строго только начинаю изучать)) кста посоветуйте нормальный сайт с уроками и с примерами програм и кодов)))
 

  #2846  
Старый 21.02.2009, 03:54
A2GIL
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909

Репутация: 200
Отправить сообщение для A2GIL с помощью ICQ
По умолчанию
Цитата:
Сообщение от bogger  
Как сделать чтоб один раз кликнул а он открылся много раз ?
Создаешь цикл для данной операции:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 i:word;
begin
for i:=1 to 10 do // Сколько раз надо (в данном случае 10)
ShellExecute (Form1.Handle, nil, 'http://google.ru', nil, nil, SW_RESTORE);

end;
Цитата:
Сообщение от bogger  
Подскажите плиз и еще как таймером пользоватся чтоб прога сама закрывалась через определенное время.

Есть несколько способов реализовать это. Ну например так:

Кидаешь на форму Timer (закладка System). Двойной клик по нему и пишешь
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Tag:=Timer1.Tag+1;
  if Timer1.Tag>10 then
     Form1.Close;
end
В данном случае через 10 сек форма закроется.


Цитата:
Сообщение от bogger  
кста посоветуйте нормальный сайт с уроками и с примерами програм и кодов)))
www.sources.ru
http://delphiworld.narod.ru/
 

  #2847  
Старый 21.02.2009, 15:18
bogger
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668

Репутация: 49
По умолчанию
Спасибо. А вот есть еще progressbar можно сним пример чтоб полоса загрузки двигалась или еще че)
Последний раз редактировалось bogger; 21.02.2009 в 17:53..
 

  #2848  
Старый 21.02.2009, 18:08
bogger
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668

Репутация: 49
По умолчанию
Скажите код чтоб кликнуть по button1 и в директорие(как менять директорию что в Windows файл записавался) где прога создался тхт файл с сообщением внутри? еще как делать перенос на другую строчку ?(допустим:
Код:
Writeln('Тртртртр "и вот здесь мне надо на новую строчку" ')
Последний раз редактировалось bogger; 21.02.2009 в 18:13..
 

  #2849  
Старый 21.02.2009, 19:30
MaTpOc
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449

Репутация: 1357


По умолчанию
Посоветуйте учебник по паскалю
 

  #2850  
Старый 21.02.2009, 20:10
kevmen
Участник форума
Регистрация: 29.10.2008
Сообщений: 165
Провел на форуме:
397889

Репутация: 60
Отправить сообщение для kevmen с помощью ICQ
По умолчанию
Здравствуйте,помогите найти ошибку!

Код:
var
day:string;
a:real;
begin
case a of
1,2,3,4,5: day:='Будни' ;
6: day:='Суббота!';
7: day:='Вск!';
end.
 
 
Страница 285 из 677 « Первая < 185235275 281 282 283 284 285 286 287 288 289 295335385 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ