Форум: "Основная";
Текущий архив: 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]у меня нет
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.004 c
