Главная страница
    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.44 MB
Время: 0.004 c
1-36100
Dik!S
2002-12-03 08:34
2002.12.12
Delphi


1-36171
Berser
2002-12-04 00:50
2002.12.12
Модем и телефон


1-36263
vanya
2002-12-02 12:01
2002.12.12
Форма поверх всех окон


1-36188
Roman_Tutov
2002-12-03 16:06
2002.12.12
Tread


14-36348
WD
2002-11-20 16:34
2002.12.12
Где можно найти пру, с базой данных, тестирующую студентов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский