Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Ну неужели никто не знает как брать данные из ListView и класть их куда надо. 


Dmitriy_R   (2002-01-07 17:39) [0]

Ну хоть кто нить подскажет где грабли на которые я наступаю.
function TFormList.SaveList(FileName: AnsiString):integer;
Var SubItems: TStrings;
I: integer;
begin
Memo.Lines.Clear();
For I := 0 to ListView.Items.Count do
begin
SubItems := ListView.Items.Item[I].SubItems;
Memo.Lines.Add(SubItems.Strings[1]);
Memo.Lines.Add(SubItems.Strings[2]);
Memo.Lines.Add(SubItems.Strings[3]);
end;
Далее идет сохранение файла...
end;



XeN   (2002-01-07 19:06) [1]

var i:integer;
......
if listview.Items.Count < 0 then exit;
Memo.Lines.Clear();
For i := 0 to listview.Items.Count - 1 do
Begin
Memo.Lines.add(listview.Items.Item[i].Caption);
Memo.Lines.add(listview.Items.Item[i].SubItems.strings[0]);
Memo.Lines.add(listview.Items.Item[i].SubItems.strings[1]);
Memo.Lines.add(listview.Items.Item[i].SubItems.strings[2]);
end;
......

А можно и без memo, так сделать...


Procedure SaveALL(filename:string);
var
i:integer;
ts:tstringlist;
begin
if listview.Items.Count < 0 then exit;
try
ts := tstringlist.create;
For i := 0 to listview.Items.Count - 1 do
Begin
ts.add(listview.Items.Item[i].Caption);
ts.add(listview.Items.Item[i].SubItems.strings[0]);
ts.add(listview.Items.Item[i].SubItems.strings[1]);
ts.add(listview.Items.Item[i].SubItems.strings[2]);
end;
ts.savetofile(filename);
ts.free;
except halt; end;





Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
3-75473           vinni2000             2001-12-17 13:08  2002.01.24  
Что делать?


7-75705           Lizard                2001-10-08 21:47  2002.01.24  
Как узнать размер файла ?


1-75551           ev                    2001-12-26 20:00  2002.01.24  
чего-то меня глючит .... ;)


3-75530           Аркадий               2001-12-21 17:42  2002.01.24  
Delphi - BDE - MS SQL login failed


1-75595           Eraser                2002-01-04 23:51  2002.01.24  
HELP как-нибудь