Текущий архив: 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.47 MB
Время: 0.018 c
