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