- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
tmythread=class(tthread)
private
filename:string;
procedure execute;override;
public
constructor create(filename:string);
destructor destroy;
end;
type
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tlst:tthreadlist;
implementation
{$R *.dfm}
function getCount : integer;
begin
Result := tlst.LockList.Count;
tlst.UnlockList;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
tlst:=tthreadlist.Create;
end;
{ tmythread }
constructor tmythread.create(filename: string);
begin
self.FreeOnTerminate:=true;
self.filename:=filename;
inherited create(true);
self.Priority:=tphigher;
self.Resume;
tlst.LockList.Add(self);
tlst.UnlockList;
end;
destructor tmythread.destroy;
begin
tlst.Remove(self);
tlst.UnlockList;
end;
procedure tmythread.execute;
begin
while not terminated do
sleep(100); // в качестве примера, чем-то нагружаем цикл.
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
n:string;
temp:tmythread;
s:string;
begin
try
for i:=0 to getcount-1 do
begin
temp:=tlst.LockList.Items[i]; // вот это место. Как Вам кажется, это правильно, или не?
if assigned(temp) then
n:=temp.filename;
if n='ololo' then // это просто пример, не смеемся) АХАХАХАХ )
begin
showmessage('Сканирование этого файла уже выполняется') ;
exit;
end;
end;
tmythread.create('ololo');
except
end;
end;
end.
Стоит задача сканировать файлы в разных потоках. Как Вам кажется, это адекватное решение?
Код полностью.
Elvenfighter 02.07.2013 13:10 # −2
Stertor 02.07.2013 13:16 # −4
kipar 03.07.2013 00:34 # +1
Ну и был бы выход за границы массива если бы какой-то поток завершился во время перебора элементов, но он же не сможет завершиться, так что все в порядке.
Ну и ко всяким "self.", маленьким буквам и кривым отступам наверное нет смысла придираться.
Stertor 03.07.2013 16:32 # −2
Вот так правильно?
Опять сайт испортил форматирование((
Stertor 03.07.2013 16:49 # −2
Напугал((
А если так
for i:=getcount-1 downto 0 do
...
??
kipar 03.07.2013 18:30 # +1
хотя проще по-моему удалять потоки только в главном и соответственно обойтись без ThreadList.
Stertor 03.07.2013 18:56 # −1
Stertor 03.07.2013 19:18 # −1
Stertor 03.07.2013 19:38 # −1
kipar 03.07.2013 21:14 # +1
Ну и да, for..in напрямую не сработает без генериков, либо делать приведение от TObject (for pthread in list do with TMyThread(pthread) do...), либо как у тебя, по нормальному через i.
Stertor 03.07.2013 21:30 # −1
Абсолютно точно. Я так и сделаю. Kipar, тебе +1000. Профессионализм сразу чувствуется.
Stertor 03.07.2013 21:32 # −1
Сдается мне, что GetCount от лукавого; сотру-ка я ее, от греха подальше.
kipar 03.07.2013 21:43 # +1
Ну т.е. или
но в таком виде это получается не лучше чем
Stertor 03.07.2013 22:13 # −1
aThread: TObject;
Thread: TMyThread;
List: TList;
begin
List := ThreadList.lock;
>> for aThread in List do
begin
Thread := TMyThread(aThread);
...//work with Thread
end;
[DCC Error] Unit1.pas(1980): E2010 Incompatible types: 'TObject' and 'Pointer'
Однозначно pointer(
kipar 03.07.2013 23:13 # +1
Stertor 04.07.2013 10:14 # −4
anonimb84a2f6fd141 04.07.2013 18:40 # −1
Stertor 04.07.2013 19:16 # −1
anonimb84a2f6fd141 04.07.2013 19:48 # −1
Stertor 04.07.2013 19:53 # −1
* GC EUROPE
* Часы GC :: часы в интернет-магазине Московское
* Часы GC наручные, купить часы GC (Гесс Коллекшн) в интернет магазине
>>GC - класс (System) Net runtime
Под фреймуорком я не сижу. Улетай отсюда, петушок, и забери с собой свои дешевые понты. Улетай, улетай.
Stertor 04.07.2013 19:57 # −1
"Спамооборона" Яndex