как SListBox1 дописать!

[aesoem]

Всем привет, помогите дописать инфу в листбокс
я делаю по следующему коду:

var
del:Treginifile;
begin
  del:=Treginifile.Create('');
  del.OpenKey('software\Microsoft\Windows\CurrentVersion',false);
  del.ReadSection('Run',Slistbox1.Items);
  del.RootKey:=HKEY_LOCAL_MACHINE;
  del.OpenKey('software\Microsoft\Windows\CurrentVersion',false);
  del.ReadSection('Run',Slistbox1.Items);
  del.Free;

видите 1 раз выводится список а 2 раз его переписует, как сделать чтоб 2 раз дописался к 1!

[mihali4]

Читайте в переменную, а потом из переменной будете добавлять в листбокс... Метод ADD.

[aesoem]

примерно,дайте наводку, так понял но не получается
del.ReadSection('Run',USER);

[mihali4]

Так я ж вроде подробно все написал...
ReadSection делаете не в ListBox, а во временную переменную TMP типа TStrings, а чтобы они в ListBox-е не затирали друг друга (как у вас сейчас), делаете после каждого чтения:
ListBox2.Items.AddStrings(tmp);
и они будут добавляться в конец содержимого ListBox...

[aesoem]

так?

var
del:Treginifile;
tmp:Tstrings;
begin
del:=Treginifile.Create('');
del.OpenKey('software\Microsoft\Win dows\CurrentVersion',false);
del.ReadSection('Run',tmp);
del.RootKey:=HKEY_LOCAL_MACHINE;
del.OpenKey('software\Microsoft\Win dows\CurrentVersion',false);
del.ReadSection('Run',tmp);
sListBox1.Items.AddStrings(tmp);
del.Free;
end;

////

[mihali4]

В принципе все верно, но строка
sListBox1.Items.AddStrings(tmp);
должна быть после каждой строки с оператором
del.ReadSection('Run',tmp);
А в приведенном варианте у вас добавляется только результат последнего чтения...

[Квэнди]

aesoem, еще раз в названии темы будете употреблять capslock и восклицательные знаки, добром это для вас не закончится

[aesoem]

теперь при нажатии на кнопку возникает ошибка

procedure TForm1.sBitBtn4Click(Sender: TObject);
var
del:Treginifile;
tmp:Tstrings;
begin
  del:=Treginifile.Create('');
  del.OpenKey('software\Microsoft\Windows\CurrentVersion',false);
  del.ReadSection('Run',tmp);
  del.RootKey:=HKEY_LOCAL_MACHINE;ошибка
  del.OpenKey('software\Microsoft\Windows\CurrentVersion',false);
  del.ReadSection('Run',tmp);
  sListBox1.Items.AddStrings(tmp);
  del.Free;
end;

[aesoem]

сделал так:
var
del:Treginifile;
str:Tstrings;
begin
del:=Treginifile.Create('');
str:=TstringList.Create();
del.OpenKey('software\Microsoft\Win dows\CurrentVersion',false);
del.ReadSection('Run',str);
del.RootKey:=HKEY_LOCAL_MACHINE;
del.OpenKey('software\Microsoft\Win dows\CurrentVersion',false);
del.ReadSection('Run',str);
slistbox1.Items.AddStrings(str);
del.Free;
end;
все равно пишет ток последние данные как с переменными быть

[mihali4]

Еще раз, для "особо одаренных" (читаем внимательно!):

строка
sListBox1.Items.AddStrings(tmp);
должна быть после каждой строки с оператором
del.ReadSection('Run',str);