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;

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

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

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