ListView - ładowanie itemów

Cześć @LL

Jak to poprawić żeby działało na ListView?

INI.ReadSections(Form2.ListView1.Items.Create();

Chodzi mi o ładowanie sekcji jako itemy do ListView1 ;-)

INI.ReadSections(Form2.ListView1.Items.);

INI.ReadSections(Form2.ListView1.Items);

[Error] Main.pas(637): Incompatible types: 'TStrings' and 'TListItems'

[stuk] :-8 :-/

Moze

INI.ReadSections(Form2.ListView1.Items.Create(0));

nie jestem pewien ;-)

INI.ReadSections(Form2.ListView1.Items.Create(0));

[Error] Main.pas(637): Incompatible types: 'TCustomListView' and 'Integer'

Pochwalony!
a może tak... :)

var
Ini: TIniFile;
Wersy: TStrings;
begin
{...}
Wersy := TStringList.Create;
Ini.ReadSections(Wersy);
ListBox1.Items := Wersy;
Wersy.Free;
{...}
Ini.Free;
end;

:)

procedure TFrmMain.ToolButton14Click(Sender: TObject);
var
INI: TINIFile;
Wersy: TStrings;
begin
Form2.Show;
INI:= TINIFile.Create('Ścieżka do pliku ini');
Wersy := TStringList.Create;
try
Ini.ReadSections(Wersy);
Form2.ListView1.Items := Wersy; //

procedure TFrmMain.ToolButton14Click(Sender: TObject);
var
INI: TINIFile;
Wersy: TStrings;
i: Integer;
begin
Form2.Show;
INI:= TINIFile.Create('Ścieżka do pliku ini');
Wersy := TStringList.Create;
try
Ini.ReadSections(Wersy);
for i:=0 to Wersy.Count - 1 do
Form2.ListView1.Items.Add(Wersy[i])
finally
Wersy.Free;
INI.Free;
end;
end;

Form2.ListView1.Items.Add(Wersy[i]);

[Error] Main.pas(642): Too many actual parameters

Form2.ListView1.Items.Add(Wersy[i]);

[Error] Main.pas(642): Too many actual parameters

A może by tak F1??

Form2.ListView1.Items.Add.Caption:=Wersy[i];