Spróbuję...
Kopiuj
var
S : string;
I : integer;
LI : TListItem;
begin
LI := ListView1.Items[ListView1.ItemIndex];
if Assigned(LI) then
begin
S := LI.Caption;
for I := 0 to LI.SubItems.Count - 1 do
begin
S := S + #09 + LI.SubItems[I];
end;
Memo1.Lines.Add(S);
end;
end;
1 - deklaracje zmiennych - tutaj chyba nie ma co tłumaczyć za bardzo, deklarujemy tylko potrzebne zmienne.
2 - zmiennej typu TListItem czyli elementowi dodawanemu zwykle lub odczytywanemu z ListView (w tym przypadku z ListView1) przypisywany jest wybrany element z tego ListView'a (własność ItemIndex to zaznaczony element).
3 - jeżeli zmienne LI jest rózna od nil, co sprawdza funkcja Assigned (czyli to, co jest w zmiennej LI jest inne od wartości "pusta" to znaczy, że element lub cału wiersz w ListView1 został wybrany, jeżeli nie to LI = nil, a na zmiennych typuów obiektowych, które zawierają nil nie można operowac, bo otrzymamy wyjątek Access Violation od kompilatora) i wtedy rób to co poniżej...
4 - zmiennej S przypisz własnośc Caption zmiennej LI (czyli faktycznie pierwszą kolumne ListView1 (te o indeksie 0).
5 - wykonaj pętle na zmiennej I na pozostałych kolumnach od zera (bo taki indeks ma druga fizycznie kolumna, a ostatnia ma indeks równy ilosć SubiItemów czyli Subitems.Count - 1).
6 - do zmiennej S dodaj to co już wniej jest plus znak tabulacji (kod ASCII #09 lub #09) oraz kolejny SubItem (czyli kolumna i indeksie, ktorego numer znajduje się w zmiennej I.
7 - zawartość zmiennej S jest dodawana do elementów Memo1.
8 - koniec bloku kodu rozpoczętego od linii opisanej numerem 3.
Ufff, przyznam, że tłumaczenie oczywistych oczywistości trwa dłużej niż samo napisanie kodu, bo wydawało mi się, że kod jest na tyle prosty, że wszystko idzie zrozumieć. Radzę na prawdę poczytać kursy z podstawami, pogooglować samodzielnie za informacjami co robią dane elementy języka, bo nie sądze aby za każdym razem ktoś tłumaczył Tobie jakiś kod linijka po linijce, po prostu sam musisz chcieć się tego nauczyć i zrozumieć co "robi" dany fragment kodu. Z czasem jak poznasz podstawy nie powinno to być dla Ciebie trudne. Według mnie Delphi to raczej łatwy język nawet na start nauki, bo łatwo można zrozumieć podstawy, także dzięki dużej ilości materiałów łatwych do znalezienia w Internecie.