Помогите описать структуру многоуровневый динамический масив

[sera.kerch]

Доброго времени суток

Помогите правильно описать деревовиднуую динамическую структуру

есть А массив от 0 до 255 , каждый элемент содержит такой же массив и так далее М раз.

мысль такая, есть много слов
берется первая буква, ее код как номер в массиве
далее вторая - и так далее до конца слова
ну подобие А[66,77,44,88,...N] = true или NOT NIL .....
или А[66].A[77].A[44].A[88]. ... .A[N] = true или NOT NIL ....

Заранее спасибо

[Stilet]

Ты... э-э-э... аналог полнотекстового поиска пытаешься сделать?

[sera.kerch]

если это так называется то да

[Stilet]

Хотя не... Теперь я не уверен что прав.
Поясни подробнее что это за кодификация такая... И для чего.

[sera.kerch]

в общем есть файл с пару милионами слов - словарь можно скзать
берется файл и каждое слово проверяется в словаре
естественно проверять перебором пословарю очень долго,
хочется оптимизировать для быстрого определения данного слова в словаре и чтобы в памяти меньше места занимало

[Stilet]

Тю... Всего-то )))
Отсортируй словарь, и находи слово методом бинарного поиска - получишь на миллиард слов цикл с максимум 20-30 итераций, что по скорости вполне допустимо.

[sera.kerch]

а можно этот метод бинарного поиска привести примером для данной задачи, будем считать что словарь отсортирован,
при этом узкое место наверное будет чтение из файла.
попробовал так

TB=^PB;
  PB=array [20..255] of pointer;

procedure TForm1.Button1Click(Sender: TObject);
label
 lb;
var
 s:string;
 i,l:integer;
 Sr,vr,tr:TB;
begin
 s:='123456';
 l:=length(s);
 new(sr);
 vr:=Sr;
 for i:=1 to l do
  if vr[ord(s[i])]=nil then begin
   new(tr);
   vr[i]:=tr;
   vr:=tr;
  end else begin
   vr:=vr[i];
  end;
s:='';
 vr:=sr;
 lb:
 for i:=20 to 255 do
  if vr[i]<>nil then begin
   s:=s+chr(i);
   vr:=vr[i];
   goto lb;
  end;
ListBox1.Items.Add(s)
end;

он выдает ошибку в месте if vr[i]<>nil then begin
незнаю в какую сторону копать

[sem6703]

Ваша реализация рекурсии привела меня в восторг!

procedure TForm1.Button1Click(Sender: TObject);
label lb;
var i,k: integer;
begin
k:=0;
lb:
for i:=0 to 5 do
  if random(2)=0 then
    begin
      inc(k);
      goto lb;
    end;
showmessage(inttostr(k));
end;

[Stilet]

при этом узкое место наверное будет чтение из файла.

Сколько мегабайт содержит твой словарь сейчас?

незнаю в какую сторону копать

Копай в эту:
http://www.programmersforum.ru/showthread.php?t=236070

Конкретно под тебя никто писать не будет, и кстати разбор по буквам ты делаешь абсолютно зря. Не надо этого лепить. Обычный цикл в котором сравниваются строки не посимвольно а с помошью оператора равенста.