Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

Оптимизация.   Найти похожие ветки 

← →
zamkom ©   (2004-02-16 16:02) [0]

Ув. мастера. Есть код как нибудь можно оптимизировать этот кусок, а то приходится вызывать его много раз. Спасибо.
var
block : array [0..100] of String;
a, s : String;
begin
.......
For i:=0 to 1000 do
begin
if a=block[i] then
begin
s:=Copy (block[i], 2,4);
Break;
end;
end;
.......

---

← →
Dimka Maslov ©   (2004-02-16 16:06) [1]

отсортируй массив block и веди поиск методом половинного деления

---

← →
Семен Сорокин ©   (2004-02-16 16:12) [2]

StringList, Sorted = true, IndexOf

---

← →
Рамиль ©   (2004-02-16 16:14) [3]

> Семен Сорокин © (16.02.04 16:12) [2]
> StringList, Sorted = true, IndexOf

Find, а не IndexOf

---

← →
Тимохов ©   (2004-02-16 16:16) [4]

> Рамиль © (16.02.04 16:14) [3]

Вы оба правы если sorted = true

---

← →
Guest   (2004-02-16 16:21) [5]

zamkom © (16.02.04 16:02)

s := copy(a, 2, 4)
Или "a" может и не оказаться в "block"?

---

← →
zamkom ©   (2004-02-16 16:23) [6]

Guest (16.02.04 16:21) [5]
Вот именно.

---

← →
keymaster ©   (2004-02-17 10:46) [7]

Имхо, имеет место очепятка...

var
block : array [0.. 100] of String;

и при этом For i:=0 to 1000 do

получится exception...

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c