if Abfragen; eine kleine Herausforderung

[Daniel B]

Hallöchen,

ich hab hier in einer Prozedur "einige" if-Abfragen. Ich finde einfach keinen Weg um die Proz. zu kürzen, es ist doch viel zum Scrollen und etwa die hälfte kommt noch dazu.
Vielen Dank.

Grüsse, Daniel

Code:

[b]procedure[/b] TMainFormMC2004.Check;
[i]//Überprüfen ob Items in Listviews < = > als die Konstanten sind
//um entsprechende Buttons/RadioButtons auf Enabled/Disabled zu setzen[/i]
[b]begin[/b]
  [b]if[/b] ListViewKKLok.Items.Count >= MaxLok -1 [b]then[/b]
  [b]begin[/b]
    ButtonKKLokOK.Enabled := False;
  [b]end[/b];
  [b]if[/b] ListViewKKFkt.Items.Count >= MaxFkt -1 [b]then[/b]
  [b]begin[/b]
    ButtonKKFktOK.Enabled := False;
  [b]end[/b];
  [b]if[/b] ListViewKKWei.Items.Count >= MaxWei -1 [b]then[/b]
  [b]begin[/b]
    ButtonKKWeiOK.Enabled := False;
  [b]end[/b];
  [b]if[/b] ListViewKKMtr.Items.Count >= MaxMtr -1 [b]then[/b]
  [b]begin[/b]
    ButtonKKMtrOK.Enabled := False;
  [b]end[/b];
  [b]if[/b] ListViewKKWei.Items.Count = 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKWeiTrigger.Enabled := False;
    ButtonKKWeiSchalt.Enabled := False;
  [b]end[/b];
  [b]if[/b] ListViewKKMtr.Items.Count = 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKMtrLoks.Enabled := False;
    RadioButtonKKMtrAktivJa.Checked := False;
    RadioButtonKKMtrAktivNein.Checked := False;
  [b]end[/b];
  [b]if[/b] ListViewKKWei.Items.Count > 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKWeiTrigger.Enabled := True;
    ButtonKKWeiSchalt.Enabled := True;
  [b]end[/b];
  [b]if[/b] ListViewKKMtr.Items.Count > 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKMtrLoks.Enabled := True;
  [b]end[/b];
  [b]if[/b] ListViewKKLok.Items.Count = 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKLokLoeschen.Enabled := False;
  [b]end[/b]
  [b]else[/b] [b]if[/b] ListViewKKLok.Items.Count > 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKLokLoeschen.Enabled := True;
  [b]end[/b];
  [b]if[/b] ListViewKKFkt.Items.Count = 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKFktLoeschen.Enabled := False;
  [b]end[/b]
  [b]else[/b] [b]if[/b] ListViewKKFkt.Items.Count > 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKFktLoeschen.Enabled := True;
  [b]end[/b];
  [b]if[/b] ListViewKKWei.Items.Count = 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKWeiLoeschen.Enabled := False;
  [b]end[/b]
  [b]else[/b] [b]if[/b] ListViewKKWei.Items.Count > 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKWeiLoeschen.Enabled := True;
  [b]end[/b];
  [b]if[/b] ListViewKKMtr.Items.Count = 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKMtrLoeschen.Enabled := False;
  [b]end[/b]
  [b]else[/b] [b]if[/b] ListViewKKMtr.Items.Count > 0 [b]then[/b]
  [b]begin[/b]
    ButtonKKMtrLoeschen.Enabled := True;
  [b]end[/b];
  [b]if[/b] MultitraktionLoks.ListViewEingefuegt.Items.Count > MaxMtrLoks -1 [b]then[/b]
  [b]begin[/b]
    MultitraktionLoks.ButtonEinfuegen.Enabled := False;
  [b]end[/b]
  [b]else[/b] [b]if[/b] MultitraktionLoks.ListViewEingefuegt.Items.Count <= MaxMtrLoks -1 [b]then[/b]
  [b]begin[/b]
    MultitraktionLoks.ButtonEinfuegen.Enabled := True;
  [b]end[/b];
[b]end[/b];