Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

ListView, чтоне так?   Найти похожие ветки 

← →
Dimich1978   (2004-02-10 16:52) [0]

Такой вод код пишу для того чтобы прочитать все значения(стороки) из одной колонки и записать из в файл:
with listview1 do
begin
for i:=0 to listview1.Items.Count-1 do
begin
TF.Add(listview1.Items[i].Caption);
end;
TF.SaveToFile(getcurrentdir+"\kill.prog");
end;
TF.Free;
Но в файле ничего нет 4 байта и все, че такое, ткните носом. Заранее спасибо

---

← →
Семен Сорокин   (2004-02-10 17:01) [1]

ошибка где-то в другом месте.

---

← →
Palladin   (2004-02-10 17:02) [2]

тут некуда тыкать...
разве что спросить зачем with listview1 do..

---

← →
ssk   (2004-02-10 17:05) [3]

вот, все прекрасно работает

procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
TF: TStrings;
begin
TF:=TStringList.Create;
with listview1 do
for i:=0 to Items.Count-1 do
TF.Add(Items[i].Caption);
TF.SaveToFile("kill.prog");
TF.Free;
end;

---

← →
Dimich1978   (2004-02-11 08:35) [4]

Да это все я понял работает, но ведь перебор идет ИТЕМСов , а не СУБИТЕМСОВ.
Т.е получается как перебрать все СУБИТЕМСЫ.
Заранее спасибо

---

← →
Dimich1978   (2004-02-11 09:01) [5]

Спасибо разобрался

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.023 c