Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.008 c
3-50234
Basic
2003-05-24 02:38
2003.06.16
Delete не любит длинное условие


8-50408
spijon
2003-03-04 21:33
2003.06.16
Програмно нарисовать текст


6-50424
Александр из Минска
2003-04-10 20:51
2003.06.16
Как установить обмен данными через МОДЕМ?


1-50341
Maniacosaur
2003-05-29 10:11
2003.06.16
Делфи и 1с через OLE


14-50467
Style
2003-05-30 09:11
2003.06.16
Create Proccess




   Наверх