» Problema S ListBox v BC++B 6.0

Privet!

U menia tokaja malenkaja problema, ja peshu odnu malenkuju programku i stalknulsa s problemoj:
//
Vpisavaja tekst v Edit okno, xociu sto by v ListBox'e byl poisk etogo teksta, tekst stal by ItemIndex'om(pamechenim v ListBox'e).
//
Nadejus vy menia ponili
Ja dumal dumal i necego nepredumal, eskal v Inete, no tam tokogo nenashol, nadejus vy mne pomozhite.
Spasibo!
P.S. sorry za oshybki

vendDor
Your main error is using translit instead of russian.
Тяжко читать.

попробуй эти функции только переведи их на С.

procedure SetLastItem; \\ устанавливает указатель на последний элемент переделай сам под себя
var
Ind :integer;
begin
Ind:=SendMessage(hList,LB_GETCOUNT,0,0);
SendMessage(hList,LB_SETCURSEL,Ind-1,0);
end;

function GetItem(Ind:integer):string; \\возвращает строку из листа по индексу. Перебирать от 0 до Предпосленего.
var
Item:PChar;
begin
GetMem(Item,100);
SendMessage(hList,LB_GETTEXT,Ind,lParam(Item));
Result:=Item;
end;

procedure AddItem(Item:Pchar); \\Добавить строку.
begin
SendMessage(hList,LB_ADDSTRING,0,lParam(Item));
end;
Итак в цикле берешь первую строку определяешь в ней позицию искомого слова. если нулевая переходишь к следующей как нашел позиционируй на ней указатель.