Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Как ввести в поток данные с визуальных компонентов   Найти похожие ветки 

 
Yuraz   (2002-10-31 10:17) [0]

мне надо, чтобы поток работал до тех пор, пока не пройдёт все строки например FileListBox"а, т.е. в цикл, перед тем как запустить Execute надо передать массив файлов, и сколько их всего, чтобы потом не обращатся из потока к компоненту. Как это сделать проще?
Элементы типа таких: DirectoryListBox, FileListBox, Memo, и др.


procedure TMyThread.Execute;
begin
{Если Вы хотите, чтобы процедура DoWork выполнялась лишь один раз - удалите цикл while}
while not Terminated do
Synchronize(DoWork);
end;

procedure TMyThread.DoWork;
begin
{Здесь можно уже выполнять те задачи, которые должны быть исполнены процессом}
end;


 
Alex4444444444   (2002-10-31 10:48) [1]

Izvinite, no, po moemu, nemnozhko glupovato delat" OSNOVNUYU rabotu v Synchronize. Zachem zhe togda thread? Nuzhno vnutry Synchronize (ili voobshe do Resume) schitat" dannye is VCL, potom sdelat" raboty, potom vnutry Synchronize obnovit" VCL componenty.



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

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.007 c
4-34312
bublik
2002-10-01 00:38
2002.11.11
Как послать сообщение Desktоp у о нажатии левой клавиши мышки?


3-33868
Шурик Ш
2002-10-22 10:44
2002.11.11
Помогите составить запрос


1-34077
Yuraz
2002-10-31 10:17
2002.11.11
Как ввести в поток данные с визуальных компонентов


6-34140
Жорик
2002-09-13 15:22
2002.11.11
Нажатие кнопки внутри TWEBbrowser


6-34150
Legran
2002-09-11 12:31
2002.11.11
Данные текущего юЗВЕРЯ в WinNT/2k





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