Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.16;
Скачать: [xml.tar.bz2];

Вниз

как сохранить всю информацию из 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.005 c
1-50371
Timak
2003-06-04 08:58
2003.06.16
Помогите узнать время создания файла


3-50257
kalishenko
2003-04-29 20:16
2003.06.16
Btrieve и Delphi


3-50259
Maxxx
2003-05-26 07:15
2003.06.16
Помогите с запросом


6-50428
Snuk
2003-04-11 16:51
2003.06.16
измерить скорость локальной сети


14-50443
Soft
2003-05-29 12:43
2003.06.16
Есть ли для Linux визуальные средства разработки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский