Работа с ListView и реестром Windows

[kabardinec]

Сообщение от eval

типы конечно не совместимы но совсем не эти... у вас в ошибке они уже написаны, тут вопрос не в том что внутри коллекции, а в том что методу надо, а надо ему совсем не то что вы даете, ну вощем это уже по десятому кругу ...

следовательно есму надо дать то что он хочет, хоть разбейся а дай, иначе не будет дружить с новичками ни в какую.
вот вы про StringList упомянули, а его почему метод принимает, выяснили?

))) блин, щас крыша поедет уже....я понимаю, что ему надо дать то что он хочет и требует...но как? если там string а там listitem? StringList принимает потому что типы совместимы.. мы ходим вокруг да около и никак в центр не попадем.. и вы не говорите и я сам не могу догнать... это дело уже по моему из интереса в принцип переходит...т.е. решить эту задачу..

[doktor255]

Сообщение от kabardinec

Мне в конечном итоге нужно чтоб в ListView данные были...

Да легко. Берём StringList.

var
  TS: TStringList;
  i: integer;
  item : TListItem;
begin
  TS := TStringList.Create;
  ...
  GetValueNames(TS);
  for i := 0 to TS.count - 1 do begin
  item := ListView1.Items.Add;
  item.caption := TS[i];
end;
  TS.Free;

суть добавления думаю ясна, за синтаксис не отвечаю, писал по памяти.

[Аватар]

я понимаю, что ему надо дать то что он хочет и требует...но как

Это значит, что просто бросанием объектов на форму здесь не обойтись. Нужно предусмотреть код, преобразующий данные приемлимые для GetValueNames в данные приемлимые для ListView. И никак по другому. Или отказаться от ListView и использовать компоненты, имеющие свойства наследники от TStrings

[kabardinec]

Сообщение от Аватар

Это значит, что просто бросанием объектов на форму здесь не обойтись. Нужно предусмотреть код, преобразующий данные приемлимые для GetValueNames в данные приемлимые для ListView. И никак по другому. Или отказаться от ListView и использовать компоненты, имеющие свойства наследники от TStrings

весь смысл этой всей дискуссии в этом и заключается, что "Нужно предусмотреть код, преобразующий данные приемлимые для GetValueNames в данные приемлимые для ListView. И никак по другому. "...и отказаться от ListView нельзя (мне именно он нужен)..такие мудрые слова все говорите, а вопрос остается нерешенным..почти все..

[kabardinec]

Сообщение от doktor255

Да легко. Берём StringList.

var
  TS: TStringList;
  i: integer;
  item : TListItem;
begin
  TS := TStringList.Create;
  ...
  GetValueNames(TS);
  for i := 0 to TS.count - 1 do begin
  item := ListView1.Items.Add;
  item.caption := TS[i];
end;
  TS.Free;

суть добавления думаю ясна, за синтаксис не отвечаю, писал по памяти.

щас пробую реализовать..

[doktor255]

Сообщение от kabardinec

Нужно предусмотреть код, преобразующий данные приемлимые для GetValueNames в данные приемлимые для ListView.

Я выше привёл код заливки Strings в ListView. Что конкретно не устроило?

[kabardinec]

Сообщение от doktor255

Я выше привёл код заливки Strings в ListView. Что конкретно не устроило?

Я это не вам..) щас пробую ваш вариант.. заливаю Tregistry в strings

[kabardinec]

Сообщение от doktor255

Да легко. Берём StringList.

var
  TS: TStringList;
  i: integer;
  item : TListItem;
begin
  TS := TStringList.Create;
  ...
  GetValueNames(TS);
  for i := 0 to TS.count - 1 do begin
  item := ListView1.Items.Add;
  item.caption := TS[i];
end;
  TS.Free;

суть добавления думаю ясна, за синтаксис не отвечаю, писал по памяти.

Доктор, спасибо..все четко работает!
Только остался один вопрос, думаю пока что..))

чеки запрограммировать не получается...

вот код, до чего додуматься смог...

Begin
              regOS.RootKey:=HKEY_CURRENT_USER;
              regOS.OpenKey('Test',true);
              GetValueNames(TS);
--------------------------------------------
Это ваш код
                      begin
                        for i := 0 to TS.count - 1 do begin
                          item := ListView1.Items.Add;
                          item.caption := TS[i];
                        end;
                        TS.Free;
                      end;
---------------------------------
Тут хотел удалить выбранные чеки (параметры реестра) 
                    begin
                        with ListView1.Items do
                        for a:=0 to Count-1 do
                        if Item[a].Checked then
                        DeleteValue();
                      end;
            End;

только так уж и умею программировать(((

[doktor255]

DeleteValue(Item[a].Caption);
Вроде так.

[kabardinec]

Сообщение от doktor255

DeleteValue(Item[a].Caption);
Вроде так.

Нет,братан.. чего то не хочет удалять..
Смотри...
чтоб чеки запрограммировать, ведь нужно вторую кнопку (например) создать и под нее процедуру новую с этим циклом..

цикл

with ListView1.Items do
                        for a:=0 to Count-1 do
                        if Item[a].Checked then
                        begin
                          DeleteValue(Item[a].Caption);
                        end;

если процедуру новую открыть тогда DeleteValue не распознается или приходится

regOS.DeleteValue(Item[a].Caption);

писать..и тогда ниче не происходит...