Niw wiem czy dobrze zrozumialem ale chyba
chodzilo ci o cos takiego:
var
I: Integer;
Kolumny: TListColumn;
Itemy: TListItem;
begin
with ListView1 do
begin
ViewStyle := vsReport;
Kolumny := Columns.Add;
Kolumny.Caption := 'Zawartosc Memo';
for I := 0 to Memo1.Lines.Count-1 do
begin
Itemy := Items.Add;
Itemy.Caption := Memo1.Lines[I] ;
end;
end;
Laduje linie z Memo1 (Lines:TStrings) do ListViev1 ustawionego
przykladowo na VievStyle- vsReport. Ja chcesz bez kolumn to
cos takiego:
var
I: Integer;
Itemy: TListItem;
begin
with ListView1 do
begin
for I := 0 to Memo1.Lines.Count-1 do
begin
Itemy := Items.Add;
Itemy.Caption := Memo1.Lines[I] ;
end;
end;
--Pozdrawiam
Ojciec (Delphi/C++)