Mam taki kod:
var
i: Integer;
linia: string;
begin
for i := 0 to ListView1.Items.Count-1 do
with ListView1.Items.Item[i] do
linia := Caption +'||'+ SubItems.Strings[0]+'||'+ SubItems.Strings[1]+'||'+ SubItems.Strings[2];
end;
dostałem go na tym forum :) i ma on teoretycznie odczytywać wszystkie kolumny z TListViewa, ale potrzebuje, aby ten kod zapisywał każdą linię do pliku np. www.txt i żeby ten plik na początku był czyszczony
Wydaje mi się że tak samo jak odczytujesz możesz zapisać np.:
var
i: Integer;
linia: string;
F : FileText albo TextFile //dokladnie nie pamietam ale chyba FileText;
Masz w pomocy Delphi
begin
// tutaj tworzenie pliku
AssignFile(F,'plik.txt');
Rewrite(F);
for i := 0 to ListView1.Items.Count-1 do
with ListView1.Items.Item[i] do
begin
linia := Caption +'||'+ SubItems.Strings[0]+'||'+
SubItems.Strings[1]+'||'+ SubItems.Strings[2];
Writeln(F,Linia); // ta komenda zapisze linie do pliku
end;
CloseFile(F); //zamykasz plik
end;
Wydaj mi się że powinno to zadziałać. Jak odczytujesz dane z Listy to Od razu możesz je zapisywać.
<font size="18">WIELKIE</span> dzięki, to być to co potrzebowałem [cya] [browar] [browar] :d :p