Datenmenge filtern

[Delphi-Laie]

Auch hier: Mit vorenthaltenem Quelltext / Projekt wird die Hilfe für Dich bestenfalls zum Blick in eine Glaskugel.

[Desperado]

Code:

procedure TForm1.btnErsterClick(Sender: TObject);
begin
if radiogroup2.itemindex=2 then
begin
  btnErster.Visible:=true;
  btnNaechster.Visible:=true;
  btnVorheriger.Visible:=true;
  btnLetzter.Visible:=true;
  lblsongnummer.Caption:='1';
with aSammlung[1] do
begin
    edtInterpret.Text:=Interpret;
    edtTitel.Text:=Titel;
    edtAlbum.Text:=Album;
    begin
      case Art of
      Musik: RadioGroup1.ItemIndex:=0;
      Video: RadioGroup1.ItemIndex:=1;
    end; //case
    cBox1.Text:=Genre;
    edtJahr.Text:=IntToStr (Jahr);
    edtDauerStunden.Text:=IntToStr (DauerStunden);
    edtDauerMinuten.Text:=IntToStr (DauerMinuten);
    edtDauerSekunden.Text:=IntToStr (DauerSekunden);
    edtSpeicherort.text:=Speicherort;

end;
nIndex:=1
end;  //with aSammlung[1] do
end;
end;

Ich will jetzt, dass bei RadioGroup2=0 der erste Datensatz angezeigt wird, bei dem RadioGroup1=0 ist und bei RadioGroup2=1 der erste Datensatz, bei dem RadioGroup1=1 ist

[Daniel]

Hallo und willkommen in der DP.
Sei doch bitte grad' so gut und gib Deinem Thema einen aussagekräftigen Titel.
Danke Dir.

[p80286]

Zitat von Desperado:

Code:

procedure TForm1.btnErsterClick(Sender: TObject);
begin
if radiogroup2.itemindex=2 then
begin
  btnErster.Visible:=true;
...
end;

Ich will jetzt, dass bei RadioGroup2=0 der erste Datensatz angezeigt wird, bei dem RadioGroup1=0 ist und bei RadioGroup2=1 der erste Datensatz, bei dem RadioGroup1=1 ist

Auf den ersten Blick fällt mir hierzu nur "desperate" ein.

Für einen Click auf einen Button sollter dieser "enabled" und "Visible" sein. Somit ist btnErster.Visible:=true; eigentlich überflüssig.

"Radiogroup" ist eine Komponente der Oberfläche und stellt in den allermeisten Fällen, keine Eigenschaft eines Datensatzes dar.

Vielleicht wäre es sinnvoll, wenn Du noch einmal in Dich gehst, und Deine Absichten noch einmal neu formulierst.

Gruß
K-H

P.S.
"Hilfe" ist als aussagekräftiger Titel kaum zu überbieten.

[Bummi]

crosspost : http://www.entwickler-ecke.de/viewtopic.php?t=110996

[Delphi-Laie]

Zitat von Bummi:

crosspost : http://www.entwickler-ecke.de/viewtopic.php?t=110996

Am anderen Orte allerdings mit aussagekräftigerem Thema. Daniels Wunsch wurde hier bis jetzt leider ignoriert.

[Daniel]

... Manche Dinge muss man selbst machen, wenn sie gut werden sollen. Ich habe den Titel eben angepasst.