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




Вниз

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


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]

>>> MBo ©
ОК !
СПАСИБО !



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

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

... У Вас многоуважаемые "Аськи" есть ?



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

у меня нет




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




Наверх





Память: 0.75 MB
Время: 0.024 c
3-32113           Shulzs                2002-01-12 22:18  2002.02.11  
Как сделать отчет в Word в виде таблицы?


1-32195           Lord BDV              2002-01-28 19:58  2002.02.11  
Смена неменяемых цветов


1-32281           Rash                  2002-01-28 14:48  2002.02.11  
Удаление строки в Stringgrid


1-32257           ТеньЛуны              2002-01-28 13:00  2002.02.11  
Разнца между датами


1-32278           Diablo                2002-01-28 15:45  2002.02.11  
Need Help!!!!!