Aby utworzyć równoległość, wystarczy utworzyć nową klasę potomną z TThread, utworzyć z niej obiekt, nadać część zadania nowemu wątkowi, uruchomić Execute i zebrać wyniki w głównym wątku.
Jak to:
TMySpellChecker = class(TThread)
protected
FText: String;
FResult: String;
public
procedure Execute; override;
property Text: String read FText write FText;
property Result: String read FResult write FResult;
end;
TMySpellChecker.Execute;
begin
// Analyze the text, and compute the result
end;
W głównym wątku:
NewThread := TMySpellChecker.Create(True); // Create suspended
NewThread.Text := TextSegment;
NewThread.Execute;
Przedmiotem wątek będzie następnie wykonać analizę w tle, podczas gdy główny wątek kontynuuje działanie.
Aby obsłużyć wyników, trzeba przypisać obsługi do zdarzenia OnTerminate obiektu wątku:
NewThread.OnTerminate := HandleMySpellCheckerTerminate;
Należy to zrobić przed uruchomieniem Execute na obiekcie wątku.
Aby umożliwić przerwy, jedną z możliwości jest podział tekstu głównego na segmenty, umieszczenie segmentów na liście w głównym wątku, a następnie analiza segmentów jeden po drugim za pomocą obiektu z gwintem. Następnie można zezwolić na przerwy między kolejnymi uruchomieniami.
Należy zauważyć, że pytanie o równoległość tego jest (lub powinno być) niezależne od biblioteki trzeciej strony. Najpierw potrzebujesz strategii, a następnie możesz zdecydować, które narzędzia zastosować, aby ją wdrożyć. – jpfollenius
OK, to potrzebuję przykładu takiej strategii. Konkretne środki (takie jak bezpośrednie tworzenie wątków lub korzystanie z nich za pośrednictwem zewnętrznej biblioteki) są mniej ważne. – ilya
Dlaczego musisz paraleleć sprawdzanie pisowni, który obejmuje pojedynczy ekran? –