Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.16;
Скачать: CL | DM;

Вниз

как сохранить всю информацию из ListView на диск ?   Найти похожие ветки 

 
Ghost   (2003-06-03 10:10) [0]

как сохранить всю информацию из ListView на диск ? Чтобы потом это всё можно было загрузить обратно ! ListView 5 колонок и неизвестное количество строк. Пробывал разные варианты но полностью сохранить не могу , только отдельные строчки . К тому же строчки постоянно перемещаються и по номерам записывать нельзя :(
Подскажите кто знает


 
Song ©   (2003-06-03 10:25) [1]

Последовательно. Ты пости свой вариант, расскажут тебе твою ошибку.


 
Юрий Зотов ©   (2003-06-03 10:33) [2]

Что-то типа этого:

for i := 0 to Items.Count - 1 do
with Items[i] do
begin
WriteLn(F, Caption);
for j := 0 to 3 do WriteLn(F, SubItems[j])
end;

===========

while not EoF(F) do
with Items.Add do
begin
ReadLn(F, S);
Caption := S;
for i := 0 to 3 do
begin
ReadLn(F, S);
SubItems.Add(S)
end
end


 
Ghost   (2003-06-03 11:39) [3]

Сделал так ( созранение в ini файл )

var
i:integer;
begin
for i := 0 to Listview1.Items.Count - 1 do
with Listview1.Items[i] do
begin
ini.WriteString("list",inttostr(i),Listview1.Items.Item[i].Caption);
ini.WriteString("list_ip",inttostr(i),ListView1.Items[i].SubItems[0]);
ini.WriteString("list_port",inttostr(i),ListView1.Items[i].SubItems[1]);
ini.WriteString("list_com",inttostr(i),ListView1.Items[i].SubItems[2]);



Работает отлично ! теперь думаю как сделать загрузку


 
Skier ©   (2003-06-03 11:41) [4]

>Ghost (03.06.03 11:39)

> теперь думаю как сделать загрузку

ini.ReadString(...) :)


 
Palladin ©   (2003-06-03 11:43) [5]

:) наверно точно также с точностью до наоборот: не write а read


 
Ghost   (2003-06-03 11:44) [6]

>Skier

Это то я понял ! :)

Я вот думаю как это засунуть всё сразу в Listview1 ! чтобы не по очереди а одновременно


 
Palladin ©   (2003-06-03 11:47) [7]

как это одновременно? что это значит в твоем понимании?
сохраняешь же ты по очереди


 
Ghost   (2003-06-03 11:48) [8]

Пробую так

var
i:integer;
begin
for i := 0 to Listview1.Items.Count - 1 do

Listview1.Items.Item[i].Caption:=ini.ReadString("list",inttostr(i),"");

и нифига ! даже ошибки не выдаёт :(


 
Palladin ©   (2003-06-03 11:49) [9]

сначала нужно пункт добавить, а потом туда читать...


 
Ghost   (2003-06-03 11:50) [10]

Если вставить

ListView1.Items[i].SubItems[0]:=ini.ReadString("list_ip",inttostr(i),"");


то выдаёт ошибку


 
Ghost   (2003-06-03 11:51) [11]

>Palladin

Понял !
а как добавитьт ? пустой чтоли ? щас попробую


 
Ghost   (2003-06-03 11:55) [12]

как добавить пустые строки ?


 
Ghost   (2003-06-03 12:01) [13]

Делаю так :

Listview1.Items.Item[i].add("");
Listview1.Items.Item[i].SubItems[i].Add("");

ошибка ! блин .

Подскажите пожайлуста


 
Skier ©   (2003-06-03 12:02) [14]

Listview1.Items.add(...)


 
Ghost   (2003-06-03 12:06) [15]

> Skier

Метод конечно очень хороший :)
Но он подходит для того чтобы создать 1 строку ! и не больше , а я не знаю сколько там будет строк !
Предыдущий пример как раз это показал только у меня не получилось
Всего то нужно добавить несколько параметров 1 командой !
Только как ?


 
Palladin ©   (2003-06-03 12:12) [16]

я с тебя того..

ListView.Items.Clear; помоему есть такое дело
for i:=0 to сколько тебе надо
begin
ListView.Items.Add(...);
читай уже наконец!
end;


 
Sandman25 ©   (2003-06-03 12:17) [17]

Ghost
Все это было еще в посте by Юрий Зотов © (03.06.03 10:33)
Или не заметили?


 
Ghost   (2003-06-03 13:18) [18]

Нифига не получаеться ! я сделал сохранение как бы сделать загрузку сразу увех строк



Страницы: 1 вся ветка

Текущий архив: 2003.06.16;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.026 c
14-50499
Мыш
2003-05-30 06:13
2003.06.16
Куда мы катимся?


7-50530
Andrey Filatow
2003-04-03 15:30
2003.06.16
Программирование голосового модема


7-50532
nokk9
2003-04-11 02:14
2003.06.16
Телефон


6-50414
deep.1
2003-04-11 12:53
2003.06.16
Вопрос насчет tcpserver a


1-50357
Maxim Pshevlotsky
2003-06-03 08:48
2003.06.16
TStringList и DCOM