Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.019 c
1-75548           Анатолий              2002-01-03 05:42  2002.01.24  
Отчёт в Delphi


3-75480           vasilly               2001-12-20 09:12  2002.01.24  
Как из дельфи изменить хранимую процедуру для IB6??? То что написано ниже не работает, хотя из консоли проходит при добавлении TERM


1-75555           Deadlock              2002-01-06 03:32  2002.01.24  
Ну ОЧЕНЬ нужно


1-75610           Анатолий              2002-01-07 05:58  2002.01.24  
Форма


14-75658          Гриф                  2001-11-28 11:33  2002.01.24  
Ищу алгоритм.