Главная страница
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.011 c
3-50255
AGAMEMNUM
2003-05-19 13:39
2003.06.16
Как лучше вставить дату


1-50378
MegaVolt
2003-06-03 17:18
2003.06.16
Где можно отключить появление popup меню?


9-50197
ogo
2003-01-08 11:39
2003.06.16
Dglut


3-50208
Aleman
2003-05-26 11:26
2003.06.16
Как в Oracle считать тексты процедур, функций и пакетов?


14-50484
Карлсон
2003-05-27 20:47
2003.06.16
в чем смысл?