ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
18.07.2008, 00:21
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от W!z@rD
ProgressBar1.Max:=source.Count;
if source.Count>0 then
begin
...
ProgressBar1.StepIt;
end;
типа того, если я еще не забыл, то StepIt это инкремент на единицу...
Спс, при таком раскладе при первой же команде он на 100% загружается...
Работа с тем же TICQ модулем.
Код:
procedure TForm1.Change;
begin
if source.Count>0 then
begin
tmp:=source.Strings[0];
uin:=copy(tmp,1,pos(';',tmp)-1);
pass:=copy(tmp,pos(';',tmp)+1,length(tmp));
ICQClient1.Password:=pass;
ICQClient1.UIN:=StrToInt(uin);
Log.Lines.Add('Try to connect '+uin+';'+pass+' ... ');
ICQClient1.Login;
end;
end;
|
|
|
18.07.2008, 00:29
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
Сообщение от z01b
увы ты ощибаешся, такой ф-ции - нету и не может быть. Для выполнения задачи ТС нужно использовать floattostr strtofloat ...
Добавлено
Такой ф-ций нету в стандартной Sysutils.dcu
Да не, просто парень напутал, на самом деле есть старая паскалевская процедура Str в модуле System.dcu, вот собсна из справки самой делфи:
Код:
Delphi syntax:
procedure Str(X [: Width [: Decimals ]]; var S);
Description
In Delphi code, Str converts X to a string representation
according to the Width and Decimals formatting
parameters. The effect is like a call to Write except the
resulting string is stored in S instead of being written to
a text file.
X is an integer-type or real-type expression. Width and
Decimals are integer-type expressions. S is a string-type
variable or a zero-based character array variable if
extended syntax is enabled.
а вот StrToReal действительно я не знаю, это FloatToStr нада юзать.
Taktik, делай так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
e:=StrToFloat(Edit1.Text);
p:=StrToFloat(Edit2.Text);
sum:=e+p;
Str(sum:3, x);// отображает три символа после плавающей запятой
Edit3.Text := x;
end;
Последний раз редактировалось t04; 18.07.2008 в 00:35..
|
|
|
|
18.07.2008, 08:08
|
|
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418
Репутация:
386
|
|
ребят раскажите как в delphi 7 добавить сылку на модуль в определеном разделе.
Если можно то со скринами чтоб попонятней было , заранее сенкс)
|
|
|
|
18.07.2008, 11:51
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
ребят раскажите как в delphi 7 добавить сылку на модуль в определеном разделе.
Если можно то со скринами чтоб попонятней было , заранее сенкс)
Немного не поняла вопроса.
1) Если тебе надо подключить дополнительный модуль, то прописываешь его в uses в самом верху у своей программы.
2) А если надо добавить модуль в сам Делфи то "Component" --> "Install Component" --> Выбираешь компонент и жмешь ок --> "Жмякаешь на Compile а потом на Install"
3) Чтобы поместить в определенный раздел юзай "Component" --> "Configure Palette или Panelle"
Точно второй вариант не помню, но даже если и отличается то только словами, наврятли что то я пропустила.
PS: Правильный вопрос - это половина ответа
Последний раз редактировалось Flame of Soul; 18.07.2008 в 11:56..
|
|
|
|
18.07.2008, 11:55
|
|
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418
Репутация:
386
|
|
Flame of Soul о я догнал))) пасиба мне надо было прописать в верху программы)
Пшол я дальше учебник мучать  |
|
|
|
18.07.2008, 19:15
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
warlok
в папке Projects есть папка Bpl кинь модуль в нее или кинь модуль в папку с исходником, в разделе uses напиши название модуля. только надо без расширения писать имя файла модуля.
Последний раз редактировалось t04; 20.07.2008 в 00:18..
|
|
|
|
20.07.2008, 04:56
|
|
Новичок
Регистрация: 23.05.2008
Сообщений: 4
Провел на форуме:
3239
Репутация:
0
|
|
народ, помогите пожалуйста....есть задание: Отделите корни уравнения графически и уточните один из них методом хорды с точностью до 0,001.
уравнение: х+lgx=0.5
может кто поможет с алгоритмом?
|
|
|
|
20.07.2008, 07:29
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
Провел на форуме:
801879
Репутация:
337
|
|
1) х+lgx=0.5 может х - это аргумент, а lg - десятичный логарифм?!?!?! = х+lg(x)=0.5
2) Корни ур-я - они же нули функции - т.е. точки на осях
3)
может кто поможет с алгоритмом?
Уточнить методом хорды можно добавив 2 случайные точки - задав тем самым диапазон
Отделите корни уравнения графически
Мну первый раз такое слышит!!! =) |
|
|
|
20.07.2008, 17:02
|
|
Новичок
Регистрация: 23.05.2008
Сообщений: 4
Провел на форуме:
3239
Репутация:
0
|
|
1) х+lgx=0.5 может х - это аргумент, а lg - десятичный логарифм?!?!?! = х+lg(x)=0.5
да сцори, эт десятичный алгоритм
Уточнить методом хорды можно добавив 2 случайные точки - задав тем самым диапазон
не совсем понял, эт как?
|
|
|
|
20.07.2008, 22:21
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
мы на втором курсе точность высчитывали производной чтоли. или чем то в этом роде. давно это было. короче учебник по МатАн'у тебе в руки. второй курс вродебы.
---
могу поднять учебники если срочно что то надо. как раз за второй курс два три учебника по мат. анализу лежат
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
