FORUMS

MEMBERS

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 504 из 671

504

Опции темы

Поиск в этой теме

Опции просмотра

02.12.2009, 03:11

Markus_13

Познающий

Регистрация: 19.02.2009

Сообщений: 83

Провел на форуме:
181715

Репутация: 50

Отправить сообщение для Markus_13 с помощью ICQ

Цитата:

Ребята, помогите, все перерыл, нигде не могу найти.
Есть-ли в компоненте IdHTTP какое нибудь свойство, которое определяет, занят в данный момент компонент или нет, ну то есть передает-ли он запрос и ждет ответа, либо уже закончил.
P.S. Знаю, что сам по себе компонент глючный, и winsock лучше, и тем не менее нужен именно данный компонент.

Помоему такого свойства нет (точно не знаю), т.к. этот компонент забирает себе на время загрузки весь поток - чтобы не подвисать, можно кинуть на форму TIdAntiFreeze или запускать IdHttp в отдельных потоках - взависимости от задачи...

З.Ы. насчет глючности хз - не замечал глюков - все пашет прекрасно =)

02.12.2009, 06:16

RumShun

Постоянный

Регистрация: 27.10.2008

Сообщений: 380

Провел на форуме:
1249808

Репутация: 149

Отправить сообщение для RumShun с помощью ICQ

Proger10 если ты в паскале пишешь, то вполне вероятно что может памяти не хватать, я думал тебе на делфи надо. Я с такой проблемой не сталкивался и на паскале уже года 4 не писал, могу тебе две вещи посоветовать, либо в настройках поройся, либо промежуточные значения сохраняй в типизированный файл на диске.

02.12.2009, 11:00

ZdezBilYa

Участник форума

Регистрация: 29.08.2008

Сообщений: 151

Провел на форуме:
1551582

Репутация: 107

Отправить сообщение для ZdezBilYa с помощью ICQ

Proger10, попробуй директиву $M

Цитата:

Размеры распределения памяти.

Синтаксис : {$M stacksize (размер стека), heapmin (минимальный
адрес кучи), heapmax (максимальный адрес кучи)}

По умолчанию : {$ M 16384, 0, 655360}

Тип : глобальный

Эквивалент меню : Options/Memory Sizes

Эта опция задает параметры распределения памяти программ.
Stacksize должен быть целым числом в диапазоне от 1024 до 65520,
которое задает размер сегмента стека. heapmin должен быть в
диапазоне от 0 до 655360, а heapmaх должен быть в диапазоне от
heapmin до 655360. Heapmin и heapmax задают минимальный и
максимальный размер кучи соответственно.
Более подробно сегмент стека и куча описаны в главе 4
"Переменные" и в главе 16 "Память".

02.12.2009, 13:55

0ldbi4

Постоянный

Регистрация: 14.04.2008

Сообщений: 327

Провел на форуме:
584699

Репутация: 69

Здрасть, забыл какое событие stringrid'а возвращает выделенную ячейку??

02.12.2009, 14:59

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Отправить сообщение для StealthMaster с помощью ICQ

Цитата:

Сообщение от 0ldbi4

Здрасть, забыл какое событие stringrid'а возвращает выделенную ячейку??

У StringGrid'a есть свойство Selection, там хранится информация о выделенном диапозоне: номера левого и правого столбцов, а также верхней и нижней строки.

Если выделена 1 ячейка, то значения StringGrid1.Selection.Left и StringGrid1.Selection.Right совпадают.
Аналогично с StringGrid1.Selection.Top и StringGrid1.Selection.Bottom.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  // с учетом того, что в Cells первый индекс закреплен за столбцом
  j := StringGrid1.Selection.Left;
  i := StringGrid1.Selection.Top;
  showmessage('Выделена ячейка [' + IntToStr(j)+ ',  ' + IntToStr(i) + 
              '].  Ее значение: ' + StringGrid1.Cells[j, i]);
end;

Последний раз редактировалось StealthMaster; 02.12.2009 в 15:04..

02.12.2009, 15:09

StealthMaster

Познающий

Регистрация: 03.12.2008

Сообщений: 56

Провел на форуме:
140714

Репутация: 29

Вопрос по Delphi 7
Есть абстрактный класс TCrypt и несколько его потомков TVigenereCrypt, TEnigmaCrypt и TAESCrypt.
В каждом из потомков описаны внутренние методы. Можно ли каким-либо способом получить доступ к методам потомков (разумеется к тем, которые не являются реализацией абстрактных методов TCrypt), если переменная описана как

Код:

var
  Crypt: TCrypt

и при этом используется контруктор одного из потомков класса TCrypt, например, TAESCrypt?

Последний раз редактировалось StealthMaster; 02.12.2009 в 15:12..

02.12.2009, 22:13

>>serhio<<

Познающий

Регистрация: 10.02.2009

Сообщений: 40

Провел на форуме:
59352

Репутация: 0

Можете глянуть две задачки на pascale ?
1)Определить сумму элементов, массива целых чисел размерностью 15, элементов с 1 по 12 и с 8 по 15.И найти произведения этих сумм с использованием функций.
2)Найти min элемент одномерного массива описав процедуры ввода элементов массива, процедура нахождения min элемента массива.

02.12.2009, 22:31

t04

Участник форума

Регистрация: 10.01.2007

Сообщений: 140

Провел на форуме:
246020

Репутация: 105

1 задача - решил от делать нечего

Код:

function multiple(const a,b:Integer):Integer;
begin
  result := a*b;
end;

var
  A:Array [1..15]of integer;
  i,sum1,sum2,mult:integer;
begin

 // предполагается что массив уже заполнен
  Sum1 := 0;
  Sum2 := 0;
  for i := 1 to 12 do
    Inc(Sum1,a[i]);
  for i := 8 to 15 do
    Inc(Sum2,a[i]);
  mult := multiple(sum1,sum2);
  WriteLn(Mult);// Это твой ответ
end;

2 лень чё то стало писать, с такой задачей даже ребенок 3го класса справится, поднапряги мозги.

Последний раз редактировалось t04; 02.12.2009 в 22:33..

02.12.2009, 23:12

SHAXID

Познающий

Регистрация: 13.12.2007

Сообщений: 56

Провел на форуме:
469345

Репутация: 51

Отправить сообщение для SHAXID с помощью ICQ

-----

Последний раз редактировалось SHAXID; 04.12.2009 в 21:38..

#10

04.12.2009, 21:37

SHAXID

Познающий

Регистрация: 13.12.2007

Сообщений: 56

Провел на форуме:
469345

Репутация: 51

Народ, помогите, пожалуйста, намутить такую тему:
Нужно создать меню, которое содержит след.пункты:
"файл", "массив", "диаграмма", "сброс".

- При выборе элемента меню "файл" должна запускаться процедура, которая рассчитывает количество положительных элементов файла с целым компонентом из 10 чисел (сумма, разность, макс. элемент, минимальный элемент и т.д.)

- при выборе пункта "массив", должна запускаться процедура, которая рассчитывает количество отрицательных элементов целого массива (сумма и т.д.)

- При выборе пункта "диаграмма", должна запускаться процедура 'создание диаграммы' (столб.,круговая), на основе полученных данных (п.1 и п.2)

- При выборе пункта "сброс", должна очищаться диаграмма (компонент chart) для послед. данных.

з.ы На дельфе это всё делается)

Последний раз редактировалось SHAXID; 04.12.2009 в 21:41..

Страница 504 из 671

504

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2568	25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

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

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

ANTICHAT.XYZ