Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.07.2007, 13:33   #11
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Вот примерчик: вместо integer можно использовать другой тип, например Cardinal, лишь бы хватило памяти
Код:
const
  MaxBooleans = (High(integer) - $F) div sizeof(boolean);
  {MaxBooleans = 10000;// можете сразу определить максимально возможный размер массива}
type
  TBoolArray = array[1..MaxBooleans] of boolean;
  PBoolArray = ^TBoolArray;
var 
  B: PBoolArray;
  N: integer;
begin
  N := 63579;
{= получение памяти под динамический массив.. =}
  GetMem(B, N * sizeof(boolean));

{Здесь работаете с массивом}

  B^[3477] := FALSE;

{= возвращение памяти в кучу =}
{$IFDEF VER80}
  FreeMem(B, N * sizeof(boolean));
{$ELSE}
  FreeMem(B);
{$ENDIF}
Alex21 вне форума Ответить с цитированием
Старый 07.07.2007, 11:23   #12
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
Радость Все! Разобрался!!! Большое Спасибо!!!

Не придется использовать динамический массив, т.к. количество строк, и какой рисунок будет вставляться в ListBox прога будет доставать из Базы!!!
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума Ответить с цитированием
Старый 10.06.2008, 18:54   #13
CheGuevera
Пользователь
 
Аватар для CheGuevera
 
Регистрация: 04.06.2008
Сообщений: 20
По умолчанию

Спасибо большое вам...
Еле разобрался. Ато все пишут кк это делать и нифига не понятно
CheGuevera вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как изменить иконку EXE файлу Warlog Общие вопросы Delphi 6 20.12.2017 14:42
Извлечь иконку из EXE? Алексей_C Общие вопросы Delphi 22 27.12.2008 23:34
Изменить иконку xakkkkker Общие вопросы Delphi 2 23.08.2008 19:40
Помогите пожалуйсто изменить этот рисунок CyberWolf Свободное общение 1 28.03.2008 17:48
изменить иконку Projecta zzzzz Общие вопросы Delphi 1 12.12.2007 23:22