ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
20.02.2009, 23:44
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от OnArs
Спасибо тебе конечно, но переменными типа string пользоваться нельзя, так же как и массивами  а типа чар?
|
|
|
20.02.2009, 23:51
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Nightmarе
Есть ли способ проверить текст в memo на наличии DOS кодировки, есть ли она там или нет ?
По сабжу:
http://tinyurl.com/bshrcd
http://tinyurl.com/asyna4
|
|
|
|
21.02.2009, 00:08
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от De-visible
По сабжу:
http://tinyurl.com/bshrcd
http://tinyurl.com/asyna4
Спс, про конверт я и так в курсе, но мне нужна именно проверка, а не конверт.
|
|
|
|
21.02.2009, 00:39
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от De-visible
Slesh Есть недочеты в коде:
Вот пофикси.
Код:
assignfile(f,'input.txt');
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
|
|
|
|
21.02.2009, 03:31
|
|
Познающий
Регистрация: 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.
Как сделать чтоб один раз кликнул а он открылся много раз ? Подскажите плиз и еще как таймером пользоватся чтоб прога сама закрывалась через определенное время.
з.ы Не судите строго только начинаю изучать)) кста посоветуйте нормальный сайт с уроками и с примерами програм и кодов))) |
|
|
|
21.02.2009, 03:54
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
Сообщение от 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/
|
|
|
|
21.02.2009, 15:18
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Спасибо. А вот есть еще progressbar можно сним пример чтоб полоса загрузки двигалась или еще че)
Последний раз редактировалось bogger; 21.02.2009 в 17:53..
|
|
|
|
21.02.2009, 18:08
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Скажите код чтоб кликнуть по button1 и в директорие(как менять директорию что в Windows файл записавался) где прога создался тхт файл с сообщением внутри? еще как делать перенос на другую строчку ?(допустим:
Код:
Writeln('Тртртртр "и вот здесь мне надо на новую строчку" ')
Последний раз редактировалось bogger; 21.02.2009 в 18:13..
|
|
|
|
21.02.2009, 19:30
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449
Репутация:
1357
|
|
Посоветуйте учебник по паскалю
|
|
|
|
21.02.2009, 20:10
|
|
Участник форума
Регистрация: 29.10.2008
Сообщений: 165
Провел на форуме:
397889
Репутация:
60
|
|
Здравствуйте,помогите найти ошибку! 
Код:
var
day:string;
a:real;
begin
case a of
1,2,3,4,5: day:='Будни' ;
6: day:='Суббота!';
7: day:='Вск!';
end.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
