Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c