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]

а из реплики как раз и получается что ты новичек.
умея грузить имена переменных неумеешь удалаять из имена?!
Что может быть проще...:))
Вот и помогай теперь после этого людям...
Обидно.

> [10] kukuikar © (13.09.04 17:01)
> а из реплики как раз и получается что ты новичек.

Поверь, он не новичок, он именно халявщик.
за год, что я его знаю не изменился ни на дюйм.

← →
Луарвик (2004-09-13 17:05) [12]

> Поверь, он не новичок, он именно халявщик.
> за год, что я его знаю не изменился ни на дюйм.

Так ты меня знаешь? Круто!
> а из реплики как раз и получается что ты новичек.
> умея грузить имена переменных неумеешь удалаять из имена?!
> Что может быть проще...:))
> Вот и помогай теперь после этого людям...
> Обидно.

Не обижайся!

> [12] Луарвик (13.09.04 17:05)

Конечно знаю, твои вопли о загибании пальцев на предложение прочеть документацию (с точным указанием места) о том как перетащить файл мышкой из проводника в свою программу сложно забыть.

я говорю о том у как будеь новичку понятнее
Нифига не понял. Может потому, что я не новичок? ;о))

но если буквосочетание ListBoxX.Items.Strings[Y] заменить на
StringList.Strings[Y]
А где указание в предыдущих постах о том, что надо произвести такую замену? Так кто все же путает новичков?

Когда-то, помнится, ЮЗ, при "получении синего карандаша" что-то говорил на тему квалификации отвечающих. Покопайся по архивам, почитай - там много интерессного.

2 all: прошу извинить, есть мой пост нарушает правила форума.

ну что, потрепаться так потрепаться.
новичек-неновичек, если человеку лень написать несколько строчек аода, то это... как бы это выразиьться поточнее - лентяй.
Луаврик, дружок, не ленись, лень - тормоз прогресса человеского, и это у тебя налице написано. и не надо отнимать у людей их время. Млин.
А обид никаких, если у тебя в голове не остается ничего что могло бы помочь тебе, и ели для написания такого кода тебе требуется помощь, то извини, ВСЕ
дискуссия закрыта!!!!!!!!!

TIniFile: как загрузить отдельно значения и назв.? Найти похожие ветки