И снова проблема .... многоуважаемые Мастера ! ! !

← →
IronHawk (2002-01-24 16:35) [0]

автозаполнение в Edit-е из файла *.ini

У кого есть сходники ... я помню где-то обсуждалось (что б не сорить в форуме киньте на мыло IronHawk@ukrpost.net)

Есть файл 1.ini:
[Sys]
1=abcde
2=fghjk
3=lmnop
4=qrstu
5=vwxyz
6=qrttw

и надо шоб по введению символов выводились варианты из возможных которые прописаны в файле !

... заранее благодарен !

← →
IronHawk (2002-01-24 18:15) [1]

Чё никто незнает ?
Народ - ПЛИЗЗзззз !

← →
Mbo (2002-01-25 07:27) [2]

вчера-позавчера было то же про combobox в стиле IE. Поищи

← →
Belov (2002-01-25 09:34) [3]

Первое что пришло в голову
Считывай данные в TStringList

а затем осуществляй поиск методом IndexOfName(...)
и подставляй нужные значения
you_stringlist.values[you_stringlist.names[you_stringlist.indexofNames()]];

← →
IronHawk (2002-01-25 10:34) [4]

>>> Belov ©
Да это всё классно но мне с Edit-om надо !!!
А вот операция с методом IndexOfName(...) это хорошая идея !
но как её реализовать в моём случае ???

← →
Belov (2002-01-25 10:42) [5]

Ну смотри
Ты из ини файлы считываешь данные в TStringList,
St: TStringList

если у тебя в ини-файле только один раздел
то проще название раздела убрать из файла и сделать файл типа
1=оываоы
2=лваподл
3=влаоплв

затем
St.LoadFromFile(you_ini_file)
получаешь данные в формате
ключ = значение ( напоминает формат ини-файла, не правда ли ? )
Names=Values

на событие Edit1KeyPress обрабатываешь поиск на IndexOfName и выводишь данные

← →
IronHawk (2002-01-25 10:49) [6]

>>> Belov ©

Incompatible types: "TStrings" and "TCaption"

: - (((

← →
Андрей Сенченко (2002-01-25 10:51) [7]

Самый лучший исходник в этом случае - безусловно Твоя собственная голова. Одно дело спросить "как поместить иконку к часикам" - это вопрос нетривиальный, требующий специальных знаний, но здесь - чистой воды разработка алгоритма и если Ты хочешь программировать, а не конструировать свой код из чужих исходников, то возьми ручку, бумажку и сам нарисуй алгоритм, после чего реализуй его в простейших операторах, а уж потом дойдешь и до IndexOfName(...)

← →
IronHawk (2002-01-25 11:01) [8]

>>> Андрей Сенченко ©

О ДА !
Многоуважаемый Андрей Сенченко ! Я с Вами согласен !
Но время, Заставляет делать и не такие весчи (вернее его недостаток) !!!
... спасибо !

← →
Андрей Сенченко (2002-01-25 11:44) [9]

Да кстати а TStrinsg и TCaption действительно несовместимы ... Что делать - ума не приложу, наверное перустанавливать Винду ...

Ну хоть Хелп по TStrings у Тебя есть время почитать, а ?

← →
IronHawk (2002-01-25 11:53) [10]

>>> Андрей Сенченко ©
Я про прямой метдо ... у Вас уважаемый неправильный подход к общению в форума или минимум терпения ...
.. .. спасибо !

← →
MBo (2002-01-25 13:10) [11]

ну сюда-то загляни
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1011711180&n=0

← →
IronHawk (2002-01-25 13:17) [12]

СТАВЛЮ ВОПРОС НЕМНОГО ПОДРУГОМУ

Есть 1 КомбоБокс 2 Едита и кнопка !

есть файло в текстовом виде:
1234|qwert|zasdf
5678|poiuy|ewtyui
09987|qwetriuy|qwezaqw

всё что находиться до первой "|"
должно выбираться в КомбоБокс и при выбре падало всё что до 2-й "|" в первый Едит, а всё что ПОСЛЕ 2-й "|" во второй !!!

(ПАдения в эдиты по выбору в комбо я реализовал ПРОСТЕЙШИМ ОБРАЗОМ НО НЕ ИЗ ФАЙЛА)

И САМОЕ ГЛАВНОЕ при введени данных в КОМБО, ПЕРВЫЙ И ВТОРОЙ ЕДИТЫ
И ПО клику на Кнопку дописывалось в конец файла и могло подватываться опять КОмбоБоксом ....
ТИПА МАЛЕНЬКОЙ НАВОРАЧИВАЮЩЕЙСЯ БАЗЫ В *.ТХТ виде без исспользования приложений и ОДБС и т.д.
с разделителями "|" !!!

P.S. .... вот по этому я и просил с самого начала исходники, знаю что они есть где-то, обсуждалось это ДАВНО где-то...

..... ЗАРАНЕЕ БЛАГОДАРЕН

← →
IronHawk (2002-01-25 13:22) [13]

>>> MBo ©
Спасибо большое ....
это сообщение 2-3-мя ниже....
да это мне помогло ! но главное чтоб подхватывало !
Он должен хранить историю в нужном мне виде, подхватывать, и сохранять !
.... СПАСИБО !

← →
Андрей Сенченко (2002-01-25 13:43) [14]

Ну это другое дело ..
Вот обработка строк с разделителями

( Автор Юрий Зотов © ):
S - исходная строка.
with TstringList.Create do try Text := StringReplace(S, ":", #13#10, rfReplaceAll); A := Strings[0]; B := Strings[1]; C := Strings[2]; D := Strings[3]; E := Strings[4] finally Free end;

( Автор : Dimka Maslov © )
procedure ExtractStrings(Str: TString; List: TStrings; Separator: Char); var P1, P2: PChar; begin List.BeginUpdate; try List.Clear; P1:=PChar(Str); repeat P2:=StrScan(P1, Separator); if P2<>nil then P2^:=#0; List.Add(P1); P1:=P2; Inc(P1); until P2 = nil; finally List.EndUpdate; end; end;

Говорят, что есть функция в RXLib. Сам не видел.

← →
MBo (2002-01-25 13:50) [15]

Не все понял, что тебе надо ;((
sl1,sl2:tstringlist;
...

s:=cb1.Text;
cb1.Items.Clear;
for i:=0 to sl.count-1 do begin
if pos(s,sl[i])=1 then begin
sl2.clear;
sl2.commatext:=stringreplace(sl[i],"|",",",[rfReplaceAll]);
edit1.text:=sl2[0];
edit2.text:=sl2[1]+"|"+sl2[2];
cb1.items.add(sl[i]);
//cb1.items.savetofile ???
end;
end;

← →
IronHawk (2002-01-25 14:19) [16]

>>> Андрей Сенченко ©
СПАСИБО ...
У меня есть все компоненты проинсталеные (Rx,Raize,ABC...).
Я такой в них невстречал ... может плохо смотрел.
ЗА КОД СПАСИБО ЕЩЁ РАЗ !

>>> MBo ©
Cпасибо ! А чё так грустно ?
А чё ... StringReplace(...) а не AddStrings(...)?
.... спасибо !

Я ещё отпишу если что ! ;-) .

← →
MBo (2002-01-25 14:28) [17]

>чё ... StringReplace(...) а не AddStrings
потому что commatext

← →
IronHawk (2002-01-25 15:09) [18]

← →
IronHawk (2002-01-25 15:54) [19]

← →
MBo (2002-01-26 07:36) [20]

у меня нет

И снова проблема .... многоуважаемые Мастера ! ! ! Найти похожие ветки