- Wiem jak zapisac całą zawartość listview do pliku a jak tylko zaznaczone pozycje ???
- Jak przenieść cała zawartość Listview z jednego Listviewa do drugiego???
- Jak zapisac listview do pliku txt. tak zeby to sie dało potem odczytać notanikiem
- Wiem jak zapisac całą zawartość listview do pliku a jak tylko zaznaczone pozycje ???
- Jak przenieść cała zawartość Listview z jednego Listviewa do drugiego???
- 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ć...
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 !!!
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
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
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...
<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.
Ja to zrobiłem wten sposób ze dodałem wsio do RichEdita (sposób z Forum) ustawiłem PlainText i zapisałem :-D
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>