Inhalt in die 3. Spalte einer ListView schreiben

[zobien123]

Hallo Zusammen,

ich möchte etwas in die 3. Spalte meiner ListView schreiben. Ich habe hier im Forum schon einiges gefunden, aber nur wie man die ListView komplett füllt (1. Spalte, 2. Spalte und dann die 3). Spalte. Aber ich möchte nur die 3. Füllen, da in der 1. und 2. bereits etwas steht.

Bin total verzweifelt.

[Daniel]

Moin,

jede Zeile Deines ListViews (Darstellungsart "Report") besteht aus jeweils einem TListItem.
Dieser hat die Eigenschaft "SubItems", welche die Inhalte der Spalten 2-x definieren.
Die dritte Spalte setzt Du durch Item.SubItems[1].

[zobien123]

Danke für deine Antwort.

Mit

Code:

SubItems[3].Add(Y);

funktioniert es nicht... Fehlermeldung : 'string' enthält kein Element namens 'Add'

Was mach ich nur falsch?

[Towmuz]

Hoi,

SubItems[3] := 'Text';

[Daniel]

Unter der Voraussetzung, dass dieser Eintrag bereits Inhalte für die dritte Spalte hat, einfach Item.SubItems[1] := 'Moep' .
Item.Caption ist die erste Spalte, Item.SubItems[0] = '2. Spalte', Item.SubItems[1] = '3. Spalte'

[zobien123]

Hm also irgendwie klappt das immer noch nicht - ich glaube ich bin einfach zu doof

Ich denke es hilft, wenn ich mein Fall etwas genauer erkläre:

Also ich habe eine ListView, in die lese ich Dateien ein. Die letzte Spalte heißt "Geladen" in diese wird ein 'X' geschrieben, wenn die Datei gerade in verwendung bzw geöffnet ist. Diese abfrage wird mit einem Timer alle 2sec aufgerufen und abgefragt. Nun möchte ich, dass nach der Abfrage halt ein 'X' oder ein ' ' in die letzte Spalte Geladen geschrieben wird (wenn der Fall zutrifft).

Ich hoffe ich konnte es gut erklären

Schonmal vielen Dank an jeden der sich damit jetzt beschäftigt

[Ydobon]

Existiert denn alle Zeilen und Spalten bereits? Und was besagt die Fehlermeldung?

Wenn schon alles da ist, ist der Zugriff normalerweise einfach:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Item: TlistItem;
begin
  Item:=ListView1.Items[0]; //Item -> Zugriff gesamte erste Zeile
  Item.Caption:='setzt Text erste Spalte';
  Item.SubItems[0]:='setzt Text zweite Spalte';
  Item.SubItems[1]:='+';    //setzt Text dritte Spalte
end;

[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;

[zobien123]

Moin Zusammen,

hab es jetzt hinbekommen. Vielen Dank für eure Hilfe

Code:

for i := 0 to ListView.Items.Count -1 do begin
  li := ListView.Items[i];
  if (li.Caption = SearchRec.Name) then li.SubItems.Strings[4] := Y;
end;