работа с сокетами и listview

[aesoem]

Добрый день, заметил такой момент..
(сокеты, stNonBlocking)

Есть процедура, которая ведет историю подключений.
Перед добавлением новой строки, выполняется проверка, добавлялась ли ранее токая строка,
если да - информация о времени последнего подключения обновляется
Если нет - создатся новая строка

Procedure DetaliseCenterAddConnect(hash,days:String);
var
i:integer;
license_str:String;
add_new_cu:boolean;
begin
 add_new_cu:=true;

  if days<>'0' then
    license_str:='LICENSE' else
    license_str:= 'FREE';

  for I := 0 to mainform.LogTestCenter.Items.Count-1 do
    if mainform.LogTestCenter.Items.Item[i].SubItems.Strings[1]=hash then
    begin
       mainform.LogTestCenter.Items.Item[i].Caption:= Datetimetostr(now);
       mainform.LogTestCenter.Items.Item[i].SubItems.Strings[0]:= license_str ;
       add_new_cu:=false;
       break;
    end;

  if add_new_cu then
    with mainform.LogTestCenter.Items.Add do
 begin
    caption:=  Datetimetostr(now);  // дата + время
    subitems.Add (license_str);
    subitems.Add (hash);
  end;

 SaveHystoryToIni; //сохраняю лист
 mainform.TabSheet4.Caption:='ИСТОРИЯ ПОДКЛЮЧЕНИЙ ('+inttostr(mainform.LogTestCenter.Items.Count)+')';
end;

на выходе имеем


то есть по идее, идентификаторы (hash) не должны повторятся в listview
Но на деле иногда появляются по две и более записей с одинаковым идентификатором.
Процедура DetaliseCenterAddConnect вызывается из события OnClientRead

У кого нибудь есть идеи?

[come-on]

У кого нибудь есть идеи?

https://www.youtube.com/watch?v=VCvoO1hRc54

[northener]

Если нет - создатся новая строка

Нет. В вашем коде новая строка создается всегда независимо ни от каких условий.

[aesoem]

Сообщение от northener

Нет. В вашем коде новая строка создается всегда независимо ни от каких условий.

да ладно)

  for I := 0 to mainform.LogTestCenter.Items.Count-1 do
    if mainform.LogTestCenter.Items.Item[i].SubItems.Strings[1]=hash then
begin
 add_new_cu:=false;
break;
end;

если условие выполнится цикл остановится,add_new_cu присвоится лож, и код далее

  if add_new_cu then
    with mainform.LogTestCenter.Items.Add do
 begin
    caption:=  Datetimetostr(now);  // дата + время
    subitems.Add (license_str);
    subitems.Add (hash);
  end;

не выполнится(цикл with - do не запускается)...

Но суть не в этом, данный код работает как часы... Тут загвоздка в другом...
щас пытаюсь синхронизацию потоков прикрутить...

[aesoem]

Сообщение от come-on

https://www.youtube.com/watch?v=VCvoO1hRc54

благодарю, очень познавательно...

[come-on]

ну а что еще с таким "кодом" делать? в печке ему самое место

[aesoem]

Сообщение от come-on

ну а что еще с таким "кодом" делать? в печке ему самое место

так в чем проблема? Давай, покажи как надо. Спец же емае, куда мне там со своим гавнокодом. Научи о великий гуру... Видеоролики с ютуба вставлять у меня и теща умеет.