Problem mit 2 Listviewkomponenten

[Capa]

Stimmt auffallend :/
habs zwar nun abgeändert und er löscht das in Listview1 auch nicht mehr dafür bekomm ich bei der 2ten Zeile ne
AE :/ muss mal schauen woran das nun schon wieder liegt.


Edit: Mhh hier muss der Fehler liegen wenn ich die LI sachen rauskommentiere funzt es ohne Probs
Sind sie Drin bekomm ich in der 2ten Zeile ne AE aber nur in der 2ten Zeile 1te und 3te ohne Probs
und zeile 2 is auch nur dann nen Problem wenns das einzige ergebnis ist wenn ich nach was suche was auch noch
in der 1ten oder 3ten zeile steht dann gehts plötzlich.

Delphi-Quellcode:

  for I := 0 to Listview1.Items.Count - 1 do
  begin
    if (pos(Edit1.Text, Listview1.Items[I].SubItems[L-1]) > 0) then
      LI := ListView2.Items.Add;
      LI.Caption := ListView1.Items[I].Caption;
      LI.SubItems.Add(ListView1.Items[I].SubItems[0]);
      LI.SubItems.Add(ListView1.Items[I].SubItems[1]);
      LI.SubItems.Add(ListView1.Items[I].SubItems[2]);
      LI.SubItems.Add(ListView1.Items[I].SubItems[3]);
      LI.SubItems.Add(ListView1.Items[I].SubItems[4]);
  end;

Edit: Fehler gefunden > 0 spinnt er rum

[DeddyH]

begin und end sagen Dir etwas?

[Capa]

ups jetzt wo du es sagst :/
zuletzt stand da nen einzeiler *hust*

[DeddyH]

Wenn die RadioButtons auf einer RadioGroup liegen und per Items definiert wurden könnte es auch so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I,L: Integer;
  Item: TListItem;
begin
  ListView1.Items.BeginUpdate;
  try
    ListView2.Items.Clear;
    L := RadioGroupDings.ItemIndex;
(*    for I := 1 to 5 do
    begin
      if (TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Checked) then
      begin
        Label3.Caption := TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Caption;
        L := I;
      end;
    end; *)
    if L > -1 then
      begin
        for I := 0 to Listview1.Items.Count - 1 do
          if (pos(Edit1.Text, Listview1.Items[I].SubItems[L]) > 0) then
            begin
              Item := ListView2.Items.Add;
              Item.Caption := Listview1.Items[I].Caption;
              Item.SubItems.AddStrings(Listview1.Items[I].SubItems);
            end;
        Listview1.Visible := False;
        Listview2.Visible := True;
        Panel2.Visible := True;
        Label4.Caption := Edit1.Text;
      end;
  finally
    ListView2.Items.EndUpdate;
  end;  
end;

Ungetestet.

[Capa]

Danke für die Hilfe

Weiß nicht was mich da schon wieder geritten hat :/


Radiogroup da stehen doch alle untereinander oder ? bei mir is das aus platzgründen etwas anderst angeordnet

[DeddyH]

Nicht unbedingt, im OI kannst Du das über Columns einstellen.