Форум: "Потрепаться";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
ВнизTIniFile: как загрузить отдельно значения и назв.? Найти похожие ветки
← →
Луарвик (2004-09-13 15:03) [0]Как загрузить отдельно значения и названия переменных?
← →
Cosinus © (2004-09-13 15:27) [1]
ini.ReadSections
Ini.ReadSectionValues
← →
kukuikar © (2004-09-13 15:56) [2]на форме 4 ListBox (ListBox1, ListBox2, ListBox3, ListBox4) и 1 Button (Button1).
В дальнейшем ListBox можно заменить на TStringList, свойства у него такие же.
Удачи.
Будут вопросы - пиши на мыло.
uses IniFiles;
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
IniFile: TIniFile;
i, j, k: Integer;
TempStr1, TempStr2: String;
begin
IniFile:=TIniFile.Create("WIN.INI");
IniFile.ReadSections(ListBox1.Items);
for i:=0 to ListBox1.Count-1 do
begin
IniFile.ReadSectionValues(ListBox1.Items.Strings[i], ListBox2.Items);
for j:=0 to ListBox2.Count-1 do
begin
TempStr1:=ListBox2.Items.Strings[j];
TempStr2:=TempStr1;
k:=LastDelimiter("=", TempStr1);
Delete(TempStr1, 1, k);
Delete(TempStr2, k, (Length(TempStr2)-k)+1);
ListBox3.Items.Add(TempStr1);
ListBox4.Items.Add(TempStr2);
end;
end;
end;
← →
Ega23 © (2004-09-13 16:01) [3]В дальнейшем ListBox можно заменить на TStringList, свойства у него такие же.
Ты удивишься, но ListBox.Items также можно заменить на TQuery.SQL, TComboBox.Items, а также TCheckListBox.Items
← →
kukuikar © (2004-09-13 16:09) [4]>Ega23
представь себе не удивлюсь.
Как ты считаешь какой уровень знания языка (тогожк Паскаля) у человека задавшего этот вопрос.
Можно было бы и с TQuery, но поймет ли он, ведь для этого нужно знать SQL хотфябы чуточку.
Я вспоминаю себя, когда мастера отвечали мне одним словоми им это было понятно, а мне нет. Потомо что начальный уровень - это все таки начальный уровень и не надо перегружать человека инфой еще недоступной ему.
Вот.
P.S. вот и дай ему пример с SQL:)
← →
Ega23 © (2004-09-13 16:11) [5]P.S. вот и дай ему пример с SQL:)
А какая разница - SQL, не SQL. Это-ж всё TStrings, вот про него и пиши.
В дальнейшем ListBox можно заменить на TStringList, свойства у него такие же.
А вот здесь ты наврал.
← →
kukuikar © (2004-09-13 16:15) [6]А какая разница - SQL, не SQL. Это-ж всё TStrings, вот про него и пиши.
а разница в том что в TQuery нужно добавлять SQL запрос.
select sum(SALARY) from ...
В дальнейшем ListBox можно заменить на TStringList, свойства у него такие же.
А вот здесь ты наврал.
Хочешь сказать что если сменить листбок на стринглист не стработает?
← →
Ega23 © (2004-09-13 16:20) [7]а разница в том что в TQuery нужно добавлять SQL запрос.
select sum(SALARY) from ...
Совершенно необязательно. При достаточном количестве идиотизма можно так сделать:
Form1.Query1.SQL.LoadFromFile("C:\Books\Пушкин\Евгений Онегин.txt");
И потом наслаждаться. Кстати, то же самое можно и с ComboBox.Items проделать.
Хочешь сказать что если сменить листбок на стринглист не стработает?
Покажи мне у TStringList свойство Items и я заберу свои слова назад.
← →
kukuikar © (2004-09-13 16:27) [8]я не говорю о сезонных приступах идиотизма.
я говорю о том у как будеь новичку понятнее и нагляднее.
Естественно я мого написать код со стринглистом и сократить количество листбоксов до 2.
у тстринглист нет свойства Items, тут ты прав, но если буквосочетание ListBoxX.Items.Strings[Y] заменить на
StringList.Strings[Y] все будет работать.
Я же не говорю что побуквенно заменить листбокс на стринглист.
Фу. запыхался.
← →
Луарвик (2004-09-13 16:56) [9]
> [3] Ega23 © (13.09.04 16:01)
> В дальнейшем ListBox можно заменить на TStringList, свойства
> у него такие же.
>
> Ты удивишься, но ListBox.Items также можно заменить на TQuery.SQL,
> TComboBox.Items, а также TCheckListBox.Items
>
>
>
> [4] kukuikar © (13.09.04 16:09)
> >Ega23
> представь себе не удивлюсь.
> Как ты считаешь какой уровень знания языка (тогожк Паскаля)
> у человека задавшего этот вопрос.
> Можно было бы и с TQuery, но поймет ли он, ведь для этого
> нужно знать SQL хотфябы чуточку.
> Я вспоминаю себя, когда мастера отвечали мне одним словоми
> им это было понятно, а мне нет. Потомо что начальный уровень
> - это все таки начальный уровень и не надо перегружать человека
> инфой еще недоступной ему.
>
> Вот.
>
> P.S. вот и дай ему пример с SQL:)
>
>
>
> [5] Ega23 © (13.09.04 16:11)
> P.S. вот и дай ему пример с SQL:)
>
> А какая разница - SQL, не SQL. Это-ж всё TStrings, вот про
> него и пиши.
>
> В дальнейшем ListBox можно заменить на TStringList, свойства
> у него такие же.
>
> А вот здесь ты наврал.
>
>
>
> [6] kukuikar © (13.09.04 16:15)
> А какая разница - SQL, не SQL. Это-ж всё TStrings, вот про
> него и пиши.
>
> а разница в том что в TQuery нужно добавлять SQL запрос.
> select sum(SALARY) from ...
>
> В дальнейшем ListBox можно заменить на TStringList, свойства
> у него такие же.
>
> А вот здесь ты наврал.
>
>
> Хочешь сказать что если сменить листбок на стринглист не
> стработает?
>
>
>
> [7] Ega23 © (13.09.04 16:20)
> а разница в том что в TQuery нужно добавлять SQL запрос.
> select sum(SALARY) from ...
>
>
> Совершенно необязательно. При достаточном количестве идиотизма
> можно так сделать:
>
> Form1.Query1.SQL.LoadFromFile("C:\Books\Пушкин\Евгений Онегин.txt");
>
> И потом наслаждаться. Кстати, то же самое можно и с ComboBox.Items
> проделать.
>
> Хочешь сказать что если сменить листбок на стринглист не
> стработает?
>
> Покажи мне у TStringList свойство Items и я заберу свои
> слова назад.
>
>
>
> [8] kukuikar © (13.09.04 16:27)
> я не говорю о сезонных приступах идиотизма.
> я говорю о том у как будеь новичку понятнее и нагляднее.
> Естественно я мого написать код со стринглистом и сократить
> количество листбоксов до 2.
>
> у тстринглист нет свойства Items, тут ты прав, но если буквосочетание
> ListBoxX.Items.Strings[Y] заменить на
> StringList.Strings[Y] все будет работать.
> Я же не говорю что побуквенно заменить листбокс на стринглист.
> Фу. запыхался.
Ладно, ладно! Я не новичок! Я халявщик. Загружать имена перемен. умею. А вот создание процедуры удаления имен у меня потребовала б дополнительных мозговых затрат. Без обид, но халяву я люблю!
← →
kukuikar © (2004-09-13 17:01) [10]а из реплики как раз и получается что ты новичек.
умея грузить имена переменных неумеешь удалаять из имена?!
Что может быть проще...:))
Вот и помогай теперь после этого людям...
Обидно.
← →
Суслик © (2004-09-13 17:02) [11]
> [10] kukuikar © (13.09.04 17:01)
> а из реплики как раз и получается что ты новичек.
Поверь, он не новичок, он именно халявщик.
за год, что я его знаю не изменился ни на дюйм.
← →
Луарвик (2004-09-13 17:05) [12]
> Поверь, он не новичок, он именно халявщик.
> за год, что я его знаю не изменился ни на дюйм.
Так ты меня знаешь? Круто!
> а из реплики как раз и получается что ты новичек.
> умея грузить имена переменных неумеешь удалаять из имена?!
> Что может быть проще...:))
> Вот и помогай теперь после этого людям...
> Обидно.
Не обижайся!
← →
Суслик © (2004-09-13 17:09) [13]
> [12] Луарвик (13.09.04 17:05)
Конечно знаю, твои вопли о загибании пальцев на предложение прочеть документацию (с точным указанием места) о том как перетащить файл мышкой из проводника в свою программу сложно забыть.
← →
miwa © (2004-09-13 17:14) [14]я говорю о том у как будеь новичку понятнее
Нифига не понял. Может потому, что я не новичок? ;о))
но если буквосочетание ListBoxX.Items.Strings[Y] заменить на
StringList.Strings[Y]
А где указание в предыдущих постах о том, что надо произвести такую замену? Так кто все же путает новичков?
Когда-то, помнится, ЮЗ, при "получении синего карандаша" что-то говорил на тему квалификации отвечающих. Покопайся по архивам, почитай - там много интерессного.
2 all: прошу извинить, есть мой пост нарушает правила форума.
← →
kukuikar © (2004-09-13 17:16) [15]ну что, потрепаться так потрепаться.
новичек-неновичек, если человеку лень написать несколько строчек аода, то это... как бы это выразиьться поточнее - лентяй.
Луаврик, дружок, не ленись, лень - тормоз прогресса человеского, и это у тебя налице написано. и не надо отнимать у людей их время. Млин.
А обид никаких, если у тебя в голове не остается ничего что могло бы помочь тебе, и ели для написания такого кода тебе требуется помощь, то извини, ВСЕ
дискуссия закрыта!!!!!!!!!
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.083 c