быстрый поиск в структуре (record)

← →
Tonich © (2007-10-11 13:19) [0]

Такой вопрос
есть допустим следующие структуры

TDevice = record Number:integer; Outbyte:Byte; InByte:Byte; end;

TCOMPort = record Devices:TList; - вот этот лист, это набор структур TDevice Name:string end;

TServicePorts = record ComPorts:TList; - вот этот лист, это набор структур TCOMPort ...... end;

так вот собственно вопрос, как организовать быстрый поиск в этом последнем списке определенного устройства, то есть имя порта я знаю(Name), и номер устройства тоже (Number), для изменения значения полей.

сразу скажу, код набирал прямо тут , могут быть ошибки )
спасибо

← →
Ega23 © (2007-10-11 14:05) [1]

Зачем в рекорде держать указатель на экземпляр класса?
Не, я понимаю, что не запрещено. Но зачем?

← →
Tonich © (2007-10-11 14:14) [2]

ну там вообще-то в коде не рекорды. а классы,
хорошо где и как хранить что допустим у ком порта есть столько -то устройств, (массивы не хотел делать)

← →
clickmaker © (2007-10-11 14:19) [3]

> быстрый поиск в этом последнем списке определенного устройства,
> то есть имя порта

StringList.Objects + IndexOf не подойдет?

← →
Tonich © (2007-10-11 14:22) [4]

> clickmaker © (11.10.07 14:19) [3]

пасибо учтем, я пока только собираю варианты...

← →
Tonich © (2007-10-11 14:57) [5]

> clickmaker © (11.10.07 14:19) [3]

не кажется не подойдет ( ну во-первый я храню список устройств в Tlist тоже самое помоему что и StringList.Objects а там для того что бы он вернул индекс нужно передать в IndexOf объект, а хде я его возьму если у меня есть только есть одно из возможных значений поля класса(рекорда)

← →
evvcom © (2007-10-11 15:06) [6]

структуры относительно сложные, быстро никак, только перебором в циклах (IndexOf - тот же цикл внутри метода). Или если надо все же искать быстро, добавь индексацию, но задача эта уже не совсем простая.

← →
Ping (2007-10-11 15:15) [7]

function TServicePorts.ComPortByName(const AName: string): TComPort; var i: integer; begin for i := 0 to ComPorts.Count - 1 do begin Result := TComPort(ComPorts[i]); if (Result.Name = AName) then Exit; end; raise Exception.Create("COM port not found: " + AName); end; function TComPort.DeviceByNumber(ANumber: integer): TDevice; var i: integer; begin for i := 0 to Devices.Count -1 do begin Result := TDevice(Devices[i]); if (Result.Number = ANumber) then Exit; end; raise Exception.Create(Name + ". Device not found: " + ANumber); end; function TServicePorts.FindDevice(const AName: stirng; ANumber: integer): TDevice; begin Result := ServicePorts.PortByName(AName).DeviceByNumber(ANumber); end;

Так достаточно быстро?

← →
Ping (2007-10-11 15:23) [8]

Для ускорения поиска, для TCOMPort можно хранить не имя, а номер COM-порта: всяко проверка на равенство строк медленнее такой же проверки для целых чисел.

Ну, и, если надо еще быстрее, то хранить ссылки не в TList, а в обычном динамическом индексированном массиве, тогда обращение будет просто по индексу. Но если устройств не очень много, то проход по циклу в поисках нужного устройства будет ненамного длительнее, чем проверки граничных условий индекса массива плюс проверка на валидность ссылки (на случай, если в массиве есть "незанятые" ссылки на порты.)

> Ping (11.10.07 15:15) [7]

быстро конечно как для цикла )
я уже сделал как советовал ты и как советовали раньше, я ищу по индексам без переборов всяких ..пасибо )

А что портов так много?:)

портов нет, штуки 4 максимум думаю будет, а вот устройств да
и еще + к этому это поиск нужет очень часто, вот поэтому и спросил про быстрый метод. ну вообщем я уже порешил как сделать, вернее сделал..

быстрый поиск в структуре (record) Найти похожие ветки