Говнокод #13283 — Куча — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

Куча / Говнокод #13283

+132

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.

Стоит задача сканировать файлы в разных потоках. Как Вам кажется, это адекватное решение?

Код полностью.

Запостил:

Stertor, 02 Июля 2013

Комментарии (21) RSS

Elvenfighter 02.07.2013 13:10 # −2

Мне кажется, публиковать это здесь - уже не правильное решение.
Ответить
- Stertor 02.07.2013 13:16 # −4
  
  Чем написать глупость - лучше промолчать и пройти мимо.
  Ответить
kipar 03.07.2013 00:34 # +1

Отличное решение, LockList выполнится getcount раз, а unlocklist - ни разу. Так что следующий поток вздумавший завершиться зависнет.
Ну и был бы выход за границы массива если бы какой-то поток завершился во время перебора элементов, но он же не сможет завершиться, так что все в порядке.
Ну и ко всяким "self.", маленьким буквам и кривым отступам наверное нет смысла придираться.
Ответить
- Stertor 03.07.2013 16:32 # −2
  Спасибо, братья мои, я уже разобрался. Подучил справку. Просто было интересно, можно ли так ассигновать объект. Оказывается, можно. Я умею форматировать код, просто писалось на скорую руку, приходилось несколько раз переписывать.
  Вот так правильно?
  
  for i:=0 to getcount-1 do begin temp:=tlst.LockList.Items[i]; // вот это место. Как Вам кажется, это правильно, или не? tlst.unlocklist; if assigned(temp) then n:=temp.filename; if n='ololo' then begin showmessage('Сканирование этого файла уже выполняется') ; exit; end; end;
  
  Опять сайт испортил форматирование((
  Ответить
- Stertor 03.07.2013 16:49 # −2
  
  >>Ну и был бы выход за границы массива если бы какой-то поток завершился во время перебора элементов
  
  Напугал((
  
  А если так
  
  for i:=getcount-1 downto 0 do
  ...
  
  ??
  Ответить
  - kipar 03.07.2013 18:30 # +1
    Нет, если уж делать то так:
    
    list := tlst.locklist; try for thread in list do... finally unlocklist; end;
    
    хотя проще по-моему удалять потоки только в главном и соответственно обойтись без ThreadList.
    Ответить
    - Stertor 03.07.2013 18:56 # −1
      
      Спасибо большое! Я с многопоточностью только начинаю работать, и панически боюсь написать быдлокод. По моему скромному мнению, чем быдлокодить, используя сомнительные решения, лучше уж вообще ничего пока не писать, а обойтись изучением справки.
      Ответить
    - Stertor 03.07.2013 19:18 # −1
      
      А как объявить переменную list?
      Ответить
      - Stertor 03.07.2013 19:38 # −1
        
        pointer?
        Ответить
        
        kipar 03.07.2013 21:14 # +1
        
        TList.
        
        Ну и да, for..in напрямую не сработает без генериков, либо делать приведение от TObject (for pthread in list do with TMyThread(pthread) do...), либо как у тебя, по нормальному через i.
        Ответить
        
        Stertor 03.07.2013 21:30 # −1
        
        >>[нужно] делать приведение от TObject (for pthread in list do with TMyThread(pthread) do...),
        
        Абсолютно точно. Я так и сделаю. Kipar, тебе +1000. Профессионализм сразу чувствуется.
        Ответить
        
        Stertor 03.07.2013 21:32 # −1
        
        А как тогда переменную thread? Наверно уж точно pointer. Или не?
        
        Сдается мне, что GetCount от лукавого; сотру-ка я ее, от греха подальше.
        Ответить
        
        kipar 03.07.2013 21:43 # +1
        
        TMyThread. Если до приведения, то TObject.
        Ну т.е. или
        
        var aThread: TObject; Thread: TMyThread; List: TList; begin List := ThreadList.lock; for aThread in List do begin Thread := TMyThread(aThread); ...//work with Thread end;
        
        но в таком виде это получается не лучше чем
        
        var I: Integer; Thread: TMyThread; List: TList; begin List := ThreadList.lock; for I := 0 to List.Count-1 do begin Thread := List[i]; ...//work with Thread end;
        Ответить
        
        Stertor 03.07.2013 22:13 # −1
        
        var
        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
        
        Ну, значит pointer
        Ответить
        
        Stertor 04.07.2013 10:14 # −4
        
        kipar, я возьму твой ник на вкладку "Автор выражает благодарность" в своей программе. Перед всем форумом обещаю.
        Ответить
        
        anonimb84a2f6fd141 04.07.2013 18:40 # −1
        
        Не понимаю людей, ебущихся с указателями вместо GC там, где без этого можно обойтись (программы реального времени).
        Ответить
        
        Stertor 04.07.2013 19:16 # −1
        
        Конкретнее, кэп.
        Ответить
        
        anonimb84a2f6fd141 04.07.2013 19:48 # −1
        
        Иди гугли, что такое GC.
        Ответить
        
        Stertor 04.07.2013 19:53 # −1
        
        * Наручные часы Gc
        * GC EUROPE
        * Часы GC :: часы в интернет-магазине Московское
        * Часы GC наручные, купить часы GC (Гесс Коллекшн) в интернет магазине
        
        >>GC - класс (System) Net runtime
        
        Под фреймуорком я не сижу. Улетай отсюда, петушок, и забери с собой свои дешевые понты. Улетай, улетай.
        Ответить
        
        Stertor 04.07.2013 19:57 # −1
        
        Сообщение расценено как спам и удалено.
        
        "Спамооборона" Яndex
        Ответить

Говнокод: по колено в коде.

Куча / Говнокод #13283

Комментарии (21) RSS

Добавить комментарий