Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» Problema S ListBox v BC++B 6.0

Автор: vendDor
Дата сообщения: 12.11.2003 01:12
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
Автор: ShIvADeSt
Дата сообщения: 12.11.2003 08:46
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;
Итак в цикле берешь первую строку определяешь в ней позицию искомого слова. если нулевая переходишь к следующей как нашел позиционируй на ней указатель.

Страницы: 1

Предыдущая тема: Как в OpenGL загрузить текстуру?


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.