Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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
3-1094477120
neznaika
2004-09-06 17:25
2004.10.03
Через ADOConnection к Interbase


1-1095339279
Klopan
2004-09-16 16:54
2004.10.03
TInifiles


3-1094105309
Павел
2004-09-02 10:08
2004.10.03
В Grid обсчёт двух полей и более.


14-1095076029
Sergey13
2004-09-13 15:47
2004.10.03
Президент совершил революцию в системе выборов


14-1095409956
wal
2004-09-17 12:32
2004.10.03
Cпециальные символы. Происхождение.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский