Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Befehl kürzen (https://www.delphipraxis.net/108278-befehl-kuerzen.html)

jensw_2000 10. Feb 2008 23:50

Re: Befehl kürzen
 
Hier ist ein interessanter Artikel zum Thema "IF THEN ELSE Knoten auflösen" :-D
Branching on multiple conditions made readable

Schöne Grüße,
Jens
:hi:

Nuclear-Ping 11. Feb 2008 03:13

Re: Befehl kürzen
 
Eigentlich sollte man sich schämen, so einen Code erst zu verbrechen und dann auch noch der Öffentlichkeit anzubieten. Grenzt schon fast an Frechheit ... Ganz nach dem Motto: "Kann mir das hier mal jemand entstricken? Ich blick da nicht mehr durch." :mrgreen:

R34DM3 11. Feb 2008 06:38

Re: Befehl kürzen
 
ja also es geht mir eigentl darum den prog-code was übersichtlicher zu machen

durchblicken tuh ich da schon
falls jmd eine erklärung des progs will kann er das ja äußern dann mach
ich mir die mühe
ich wusste nur nich ob es möglich ist dieses monster zu kürzen
da ich ca 20 buttons mit der gleichen abfrage habe und ich aber
nicht weiß wie man zb im namen von button per for schleife oder sowas
ne zahl erhöht...ihr versteht was ich meine?!

und ja in der tat dieser teil ist häßlich - aber hey er funzt :D

ahja und wegen der klammer, ja die hab ich iwie net mitkopiert ^^

aber so wies aussieht kann man nich wirklich ne kürzere
sache draus zu machen!?

- danke für die antworten!!

*EDIT*: Und ja es wird ein BOS-Tool - zumindeste ein einsatztagebuchtool ohne funkanbindung ;)

mkinzler 11. Feb 2008 06:57

Re: Befehl kürzen
 
Zitat:

da ich ca 20 buttons mit der gleichen abfrage habe
Warum lagerst du das dann nicht in ein Funktion/Methode aus?
Zitat:

und ich aber nicht weiß wie man zb im namen von button per for schleife oder sowas
ne zahl erhöht...ihr versteht was ich meine?!
.FindComponent()

R34DM3 11. Feb 2008 07:35

Re: Befehl kürzen
 
Zitat:

Warum lagerst du das dann nicht in ein Funktion/Methode aus?
was soll ich auslagern?!
steh gerade aufm schlauch sory ^^

und was liefert mir dann .fincomponent()?!
müsste ja prinzipiell sowas geben:

Delphi-Quellcode:
procedure form1.blub(komponente : "buttonX.caption")
begin
    for X := 1 to 20 do begin
       blablabla buttonX.Caption blabla
    end;
end;
nur das prob is halt das 'X' ;)

marabu 11. Feb 2008 07:53

Re: Befehl kürzen
 
Moin,

das Hauptproblem an dem gezeigten Code ist, dass Benutzeroberfläche und Regelwerk eng miteinander verwoben sind. Man "rechnet" doch nicht mit Captions, sondern entwirft geeignete Datenstrukturen. Insofern gehen für mich alle Hilfestellungen hier in eine Richtung, die mir nicht gefallen kann. Eine weitere Sünde sind die unübersichtlichen Ausdrücke, die man unter Anwendung der Moore'schen Gesetze vereinfachen kann. Ausdrücke wie (falscherstatus = false) formuliert man wartungsfreundlicher als (not falscherstatus). Momentan werden scheinbar Fahrzeug-Eigenschaften in UI-Controls festgehalten, die Zuordnung zu einem konkreten Fahrzeug geschieht über eine GruppenBox-Caption. Dieses Programm wird mehr Kummer als Freude machen - versprochen.

Ich würde zuerst mal eine Datenanalyse vorschlagen: Entitäten (Fahrzeug, Fahrer, ...) und Attribute (Fahrzeugkennung, Fahrername, ...) ermitteln und geeignet zusammenfassen.

Grüße vom marabu

mkinzler 11. Feb 2008 08:47

Re: Befehl kürzen
 
Zitat:

was soll ich auslagern?!
Die Abfrage und dann den Button als Parameter
Zitat:

und was liefert mir dann .fincomponent()?!
eine Referenz auf eine Komponente anhand des Namens:

Delphi-Quellcode:
but := Form.FindComponent('Button'+IntTostr( i));

hitzi 11. Feb 2008 11:02

Re: Befehl kürzen
 
Zitat:

Zitat von DeddyH
Klingt für mich nach FemaleBool: Yes, No, MayBe ;)

Sorry für das OT ... aber der Spruch ist geil ;) :stupid: :mrgreen:

R34DM3 11. Feb 2008 11:56

Re: Befehl kürzen
 
Zitat:

Moin,

das Hauptproblem an dem gezeigten Code ist, dass Benutzeroberfläche und Regelwerk eng miteinander verwoben sind. Man "rechnet"
(...)
geschieht über eine GruppenBox-Caption. Dieses Programm wird mehr Kummer als Freude machen - versprochen.

Ich würde zuerst mal eine Datenanalyse vorschlagen: Entitäten (Fahrzeug, Fahrer, ...) und Attribute (Fahrzeugkennung, Fahrername, ...) ermitteln und geeignet zusammenfassen.

Grüße vom marabu
^^ ja wie gesagt so der pro bin ich net ;)
und viele der worte aus deinem text machen mir ein wenig angst xD

nee spaß bei seite...es wäre sicher günstiger hier mit klassen und
ähnlichem zu handtieren aber da ich nicht vor hatte mir den kopf
zu zermatern sondern eigentl so simpel wie möglich schreiben wollte
(also für mich is das simpel ^^)
habe ich versucht es so zu machen...

ich danke euch recht herzlich und viellt versuch ichs mal mit dem vorschlag
von mkinzler :P

will jmd viellt das prog so haben?! :thumb:

WS1976 11. Feb 2008 13:24

Re: Befehl kürzen
 
Sorry,
aber dann auch noch:

Zitat:

durchblicken tuh ich da schon
falls jmd eine erklärung des progs will kann er das ja äußern dann mach
ich mir die mühe
ich wusste nur nich ob es möglich ist dieses monster zu kürzen
da ich ca 20 buttons mit der gleichen abfrage habe und ich aber
nicht weiß wie man zb im namen von button per for schleife oder sowas
ne zahl erhöht...ihr versteht was ich meine?!
Istich däutsche Spraache schwäre Spraaache!!!
Hast du in der Schule nicht aufgepasst oder willst du uns ärgern?

Grüsse
Rainer


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:00 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz