Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
04.06.2008, 18:15
|
|
Познающий
Регистрация: 14.04.2008
Сообщений: 42
Провел на форуме:
400417
Репутация:
27
|
|
Нашел сам способ =)
tagsU := WebBrowser1.OleObject.document.all.item(0).innerHT ML;
ShowMessage(tagsU);
|
|
|
05.06.2008, 11:44
|
|
Познающий
Регистрация: 10.04.2008
Сообщений: 51
Провел на форуме:
78866
Репутация:
0
|
|
Вопросы по object pascal(консольные приложения)
1. Как мне вывести дату на экран? например в формате 05 06 08
2. Можно выводить случайным образом цифры, а как мне выводить случайным образом слова?
можно загнать в массив или перечисляемый тип ток ничего не получается 
Помогите пожалуйста! Спасибо
Последний раз редактировалось Кубик Рубик; 05.06.2008 в 11:48..
|
|
|
|
05.06.2008, 12:53
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Кубик Рубик
Вопросы по object pascal(консольные приложения)
1. Как мне вывести дату на экран? например в формате 05 06 08
2. Можно выводить случайным образом цифры, а как мне выводить случайным образом слова?
можно загнать в массив или перечисляемый тип ток ничего не получается
Помогите пожалуйста! Спасибо 1.http://delphi.about.com/od/beginners/l/blrtldatetime.htm
2. ПихаешЪ нужные слова в массив и потом просто делаешь writeln(mass[random(последний элемент масива)])
|
|
|
|
05.06.2008, 13:15
|
|
Познающий
Регистрация: 10.04.2008
Сообщений: 51
Провел на форуме:
78866
Репутация:
0
|
|
у меня не получается слова в массив загнать, как это сделать? Спасибо
|
|
|
|
05.06.2008, 13:44
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Кубик Рубик
у меня не получается слова в массив загнать, как это сделать? Спасибо
Код:
var
x :array [0..20] of string;
tmp:integer;
begin
x[0] :='slovo1';
x[1] :='slovo2';
x[2] :='slovo3';
x[3] :='slovo4';
x[4] :='slovo5';
x[5] :='slovo6';
x[6] :='slovo7';
tmp:=random(7);
writeln(x[tmp]);
|
|
|
|
05.06.2008, 14:51
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от z01b
Код:
var
x :array [0..20] of string;
tmp:integer;
begin
x[0] :='slovo1';
x[1] :='slovo2';
x[2] :='slovo3';
x[3] :='slovo4';
x[4] :='slovo5';
x[5] :='slovo6';
x[6] :='slovo7';
tmp:=random(7);
writeln(x[tmp]);
ё-моё!:/
Код:
const (ну или var...)
x :array [0..3] of string = ('word1', 'word2', 'word3','word4');
...
writeln(x[random(4)]);
__________________
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
|
|
|
|
05.06.2008, 13:42
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Что может быть проще? Генеришь число, а чтобы запихать символ в массив (array of char или string), делаешь
Код:
str [i] = chr (number);
|
|
|
|
05.06.2008, 21:10
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
перед использованием Random(x) надо вроде инициализировать генератор случайных цифр процедурой Randomize;
|
|
|
|
05.06.2008, 22:13
|
|
Познающий
Регистрация: 24.06.2005
Сообщений: 79
Провел на форуме:
227039
Репутация:
11
|
|
Dephli
Нид хелп вобщем...
пишу прогу другу друг сдать надо зафтра
гонял по тестам нашел косяк начал отлаживать наткнулся на вобще какую то страшную аномалию
у меня совершенно ч0тко зануляется переменная
а потом нис того ни с сего она оказывается равная 6 значному числу
пробывал менять типы..
|
|
|
|
05.06.2008, 22:30
|
|
Постоянный
Регистрация: 10.10.2006
Сообщений: 316
Провел на форуме:
1572471
Репутация:
152
|
|
А сам исходный код может выложешь ? Что проверять-то ?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид