Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];

Вниз

Динамический массив, поток и High   Найти похожие ветки 

 
Zergling   (2002-12-02 11:23) [0]

Здраствуйте! Такая вот проблема!
В потоке прокручиваю элементы динамического массива. Если найден элемент массива отвечающего заданному условию то выполняется такоето действие. Проблема такая: Находя первый элемент массива отвечающему условию выполняется MyProcedure. Во время выполнения MyProcedure в динамический массив успевает добовлятся еще несколько элементов. Но фактически выполняется MyProcedure вызванная на первом элементе массива. Далее пргграмма идет в Destroy потока. Со статическим массивом ни каких проблем нет, но хотелось бы реализовать все это с помощью динамического массива (что бы программа была более гипкая в работе и не зависила жестко от количества элементов статического массива). Заранее всем благодарен!

Procedure TMyThread.Execute;
var I:Word;
Begin
I:=0;
while I<=High(A) do
Begin
if A[I]:="X" then MyProcedure;
Inc(I);
End;
End;

Procedure TMyThread.Destroy;
Begin
A:=Nil;
End;


 
FreeLancer   (2002-12-02 11:28) [1]

Читай Arrays, Dynamic Arrays. Нужно управлять размером Dynamic Array


 
VaS   (2002-12-02 12:20) [2]

TThreadList однозначно.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-36085
Граф
2002-12-02 03:12
2002.12.12
кто-нибудь использовал TThreadList для создания пула потоков


14-36361
Шишкин Илья
2002-11-20 20:34
2002.12.12
А как сделать так, чтобы мой IP не было видно в форуме?


1-36203
Grande
2002-11-27 10:53
2002.12.12
Delphi 5. Руководство разработчика


1-36247
Dracula
2002-12-02 09:39
2002.12.12
Как получить дату...?


1-36104
nikolo
2002-12-03 10:20
2002.12.12
Нужен Fast Report (free)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский