Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
ВнизListView Save и Load..? Найти похожие ветки
← →
AST (2003-04-17 17:22) [0]Подскажите уважаемые, как сохранить все содержимое ListView и как потом считать данные из файла в этот компанент. Заранее спасибо.
← →
BBCHa (2003-04-17 17:59) [1]По идее свою функцию писать
← →
AST (2003-04-17 18:29) [2]Хм, а смысл этого компанента, если его состояние нельзя сохранить стандартными функциями?
← →
BBCHa (2003-04-17 18:41) [3]Ну вот представь проводник Windows, где список файлов ты сохраняешь в файл, а потом оттуда загружаешь??? Если смысл??? Этот компонент существует для структурного, упорядоченного отображения данных
← →
AST (2003-04-17 18:50) [4]Смысл есть, мне иногда так надо сохранить список всех файлов папки в ТХТ файл :)
← →
BBCHa (2003-04-17 18:54) [5]тогда при чем тут ListView? Маленькаяпроцедурка из пяти строк, за основу берешь FindFirst, FindNext
← →
AST (2003-04-17 20:06) [6]:)))
Спасибо, но это я так просто к слову сказал, что было бы не плохо елси бы проводник мог эту функцию выплнять :)
Мне надо просто сохранить содержимое в файл. А можно по столбикам все перенести в ListBox и сохранить от туда в файл а затем все перенести из ListBox в столбик ListView?
← →
AST (2003-04-17 22:38) [7]Наконец нашел ответ на свой вопрос. Может кому-то пригодится.
//Сохранение
var
Writer : TWriter;
FileStream : TFileStream;
begin
if SaveDlg.Execute then begin
FileStream:=TFileStream.Create(SaveDlg.FileName,fmOpenWrite or fmCreate);
Writer := TWriter.Create(FileStream, SizeOf(ListView1));
Writer.WriteRootComponent(ListView1);
Writer.Free;
FileStream.Free;
end;
// Чтение
var
reader : TReader;
FileStream : TFileStream;
begin
if OpenDlg.Execute then begin
FileStream:=TFileStream.Create(OpenDlg.FileName,fmOpenread);
Reader := TReader.Create(FileStream, SizeOf(ListView1));
Reader.ReadRootComponent(ListView1);
Reader.Free;
FileStream.Free;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c