Inhalt in die 3. Spalte einer ListView schreiben

[Towmuz]

Moin,

du musst schon sagen wo "genau" du nicht weiter kommst.

Vorausgesetzt du addest SubItem 1 (Spalte 3) schon beim Befüllen des ListView, dann sollte sowas hier eigentlich funktionieren glaub ich

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  item: TListItem;
  i: Integer;
begin
  for i := 0 to Length(Datei) - 1 do
  begin
    for item in ListView1.Items do
    begin
      if item.Caption = Datei[i].Name then
      begin
        if Datei[i].IstGeoeffnet then
          item.SubItems[1] := 'x'
        else
          item.SubItems[1] := '';
      end;
    end;
  end;
end;