Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.150 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Problem mit 2 Listviewkomponenten

  Alt 10. Apr 2011, 11:55
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (10. Apr 2011 um 12:20 Uhr) Grund: C&P-Fehler
  Mit Zitat antworten Zitat