Listview i zapisywanie (inne)

0
  1. Wiem jak zapisac całą zawartość listview do pliku a jak tylko zaznaczone pozycje ???
  2. Jak przenieść cała zawartość Listview z jednego Listviewa do drugiego???
  3. Jak zapisac listview do pliku txt. tak zeby to sie dało potem odczytać notanikiem
0
  1. Wiem jak zapisac całą zawartość listview do pliku a jak tylko zaznaczone pozycje ???
  2. Jak przenieść cała zawartość Listview z jednego Listviewa do drugiego???
  3. Jak zapisac listview do pliku txt. tak zeby to sie dało potem odczytać notanikiem

Ad 2. ListView1.Items := ListView2.Items; //chyba!!

Ad 3.

{będzie działać tylko nie zapisze indexów rysunków}
var
  i, j: integer;
  F: TextFile;
  s: string;
begin
  AssignFile(F, 'plik.txt');
  Rewrite(F);
  for i := 0 to ListView1.Items.Count -1 do
  begin
    s := ListView1.Items.Item[i].Caption;
    for j := 0 to ListView1.Items.Item[i].Subitems.Count do
      s := s + ListView1.Items.Item[i].Subitems.Strings[j] + '|'; //| jako znaczek oddzielający subitemy
    Writeln(f, s);
  end;
  CloseFile(F);
end;

powinno działać...

0

Ad 2. ListView1.Items := ListView2.Items; //chyba!!
Fajnie wyglada ale to podmini wszytskie z Pierwszego na drugie a ja chciałbym dodać drugi do pierwszego !!!

0

No coż. Przecież jakoś już umieściłeś te elementy w listview1... Additem? Masz pętlę zapisującą do pliku, wykorzystaj ją do dodania elementów... :-P

0

Tylko ze ja odczytuje i zapisuje do pliku ta metodą z FAQ a procedurce sie nawet nie przyglądałem :-D Jakieś propozycje co do tej pentli??? TIA

0

Jakieś propozycje co do tej pentli???

Po pierwsze : Ktos/powyżej. Po drugie: FAQ/Twój sposób. Skoro masz już funkcję/procedurkę która wczytuje... Pomyśl troszkę, to nie boli. Przecież masz to praktycznie podane na tacy, tylko mała przeróbka...

0

<delphi>{będzie działać tylko nie zapisze indexów rysunków}

powinno działać...

wtym problem ze nie działa. Wywala błąd przy działaniu nie kompilacji.

0

Ja to zrobiłem wten sposób ze dodałem wsio do RichEdita (sposób z Forum) ustawiłem PlainText i zapisałem :-D

0

Aby wszystko działało jak należy kod powinien wyglądać tak:

var
  i, j: integer;
  F: TextFile;
  s: string;
begin
  AssignFile(F, 'plik.txt');
  Rewrite(F);
  for i := 0 to ListView1.Items.Count -1 do
  begin
    s := ListView1.Items.Item[i].Caption;
    for j := 0 to ListView1.Items.Item[i].Subitems.Count-1 do
      s := s + ListView1.Items.Item[i].Subitems.Strings[j] + '|';
    Writeln(f, s);
  end;
  CloseFile(F);
end;

<font size="1">// Dlaczego odgrzewasz trupa? - Ktos</span>

1 użytkowników online, w tym zalogowanych: 0, gości: 1