В CheckListBox1 - загружены абсолютные пути до текстовых файлов. По нажатию на кнопку - нужно перенести содержимое всех отмеченных элементов в Memo. Делаю так:
Цитата:
procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
//var FileStrings: TStringList;
begin
for i := 0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[i] then
//FileStrings.LoadFromFile(CheckListBox1.Items[i]);
//Memo3.Lines.AddStrings(FileStrings);
//FileStrings.Free;
Memo3.Lines.LoadFromFile(CheckListBox1.Items[i]);
Label6.Caption:='Всего '+ IntToStr(Memo3.Lines.Count);
end;
end;
|
Lines в Memo перезаписываются. Проблема конечно в LoadFromFile. По логике должен работать тот вариант, который я закомментировал, но не хочет. Возможно, нужно создавать массив TStringList при обходе CheckListBox, а уже потом вставлять в Memo? Объясните дураку.