AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Befehl kürzen

Ein Thema von R34DM3 · begonnen am 10. Feb 2008 · letzter Beitrag vom 12. Feb 2008
Antwort Antwort
Seite 1 von 3  1 23      
Benutzerbild von R34DM3
R34DM3

Registriert seit: 6. Feb 2008
10 Beiträge
 
#1

Befehl kürzen

  Alt 10. Feb 2008, 19:23
moin zusammen,

kennt jemand ne möglichkeit diesen code:

markieren
Delphi-Quellcode:
     if (gb19.Caption = Fahrzeug1.fkennung) and ((btbg19.Caption <> '4') or (falscherstatus = false) or (btbg19.Caption <> '6') or (btbg19.Caption <> '7') or (btbg19.Caption <> '8') or (btbg19.Caption <> '3') ) then btbg19.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then falscherstatus := true;
     if (gb19.Caption = Fahrzeug2.fkennung) and ((btbg19.Caption <> '4') or (falscherstatus = false) or (btbg19.Caption <> '6') or (btbg19.Caption <> '7') or (btbg19.Caption <> '8') or (btbg19.Caption <> '3') ) then btbg19.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then falscherstatus := true;
     if (gb19.Caption = Fahrzeug3.fkennung) and ((btbg19.Caption <> '4') or (falscherstatus = false) or (btbg19.Caption <> '6') or (btbg19.Caption <> '7') or (btbg19.Caption <> '8') or (btbg19.Caption <> '3') ) then btbg19.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then falscherstatus := true;
     if (gb19.Caption = Fahrzeug4.fkennung) and ((btbg19.Caption <> '4') or (falscherstatus = false) or (btbg19.Caption <> '6') or (btbg19.Caption <> '7') or (btbg19.Caption <> '8') or (btbg19.Caption <> '3') ) then btbg19.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then falscherstatus := true;

     if (gb20.Caption = Fahrzeug1.fkennung) and ((btbg20.Caption <> '4') or (falscherstatus = false) or (btbg20.Caption <> '6') or (btbg20.Caption <> '7') or (btbg20.Caption <> '8') or (btbg20.Caption <> '3') ) then btbg20.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then falscherstatus := true;
     if (gb20.Caption = Fahrzeug2.fkennung) and ((btbg20.Caption <> '4') or (falscherstatus = false) or (btbg20.Caption <> '6') or (btbg20.Caption <> '7') or (btbg20.Caption <> '8') or (btbg20.Caption <> '3') ) then btbg20.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then falscherstatus := true;
     if (gb20.Caption = Fahrzeug3.fkennung) and ((btbg20.Caption <> '4') or (falscherstatus = false) or (btbg20.Caption <> '6') or (btbg20.Caption <> '7') or (btbg20.Caption <> '8') or (btbg20.Caption <> '3') ) then btbg20.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then falscherstatus := true;
     if (gb20.Caption = Fahrzeug4.fkennung) and ((btbg20.Caption <> '4') or (falscherstatus = false) or (btbg20.Caption <> '6') or (btbg20.Caption <> '7') or (btbg20.Caption <> '8') or (btbg20.Caption <> '3') ) then btbg20.Caption := '3' else if (gb20.Caption = Fahrzeug4.fkennung) and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then falscherstatus := true;
is eine procedure oder sowas zu stecken um ihn kürzer zu machen?! ^^

schonmal danke im vorraus
mfg markus
blub
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#2

Re: Befehl kürzen

  Alt 10. Feb 2008, 19:26
Entschuldigung, aber HÄ?
In dem Code versteht man echt nichts... beschreib mal bitte, was der tut.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Befehl kürzen

  Alt 10. Feb 2008, 19:33
Du kannst ja erst mal die identischen Vergleich durchführen und dann nur noch die Unterschiede
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Befehl kürzen

  Alt 10. Feb 2008, 19:34
Lagere doch erstmal die ganzen wiederkehrenden Abfragen in eine eigene Funktion aus. Bsp:(btbg19.Caption <> '4') or (falscherstatus = false) or (btbg19.Caption <> '6') or (btbg19.Caption <> '7') or (btbg19.Caption <> '8') or (btbg19.Caption <> '3')
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
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Befehl kürzen

  Alt 10. Feb 2008, 20:45
Wenn man sich mal die Mühe macht und diese Textwüste ordentlich einrückt...

zusammenfalten · markieren
Delphi-Quellcode:
if (gb19.Caption = Fahrzeug1.fkennung)
   and ( (btbg19.Caption <> '4')
        or (falscherstatus = false)
        or (btbg19.Caption <> '6')
        or (btbg19.Caption <> '7')
        or (btbg19.Caption <> '8')
        or (btbg19.Caption <> '3') ) then
begin
  btbg19.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb19.Caption = Fahrzeug2.fkennung)
   and ( (btbg19.Caption <> '4')
        or (falscherstatus = false)
        or (btbg19.Caption <> '6')
        or (btbg19.Caption <> '7')
        or (btbg19.Caption <> '8')
        or (btbg19.Caption <> '3') ) then
begin
  btbg19.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb19.Caption = Fahrzeug3.fkennung)
   and ( (btbg19.Caption <> '4')
        or (falscherstatus = false)
        or (btbg19.Caption <> '6')
        or (btbg19.Caption <> '7')
        or (btbg19.Caption <> '8')
        or (btbg19.Caption <> '3') ) then
begin
  btbg19.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb19.Caption = Fahrzeug4.fkennung)
   and ( (btbg19.Caption <> '4')
        or (falscherstatus = false)
        or (btbg19.Caption <> '6')
        or (btbg19.Caption <> '7')
        or (btbg19.Caption <> '8')
        or (btbg19.Caption <> '3') ) then
begin
  btbg19.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg19.Caption = '1') or (btbg19.Caption = '2') or (btbg19.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb20.Caption = Fahrzeug1.fkennung)
   and ( (btbg20.Caption <> '4')
        or (falscherstatus = false)
        or (btbg20.Caption <> '6')
        or (btbg20.Caption <> '7')
        or (btbg20.Caption <> '8')
        or (btbg20.Caption <> '3') ) then
begin
  btbg20.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb20.Caption = Fahrzeug2.fkennung)
   and ( (btbg20.Caption <> '4')
        or (falscherstatus = false)
        or (btbg20.Caption <> '6')
        or (btbg20.Caption <> '7')
        or (btbg20.Caption <> '8')
        or (btbg20.Caption <> '3') ) then
begin
  btbg20.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb20.Caption = Fahrzeug3.fkennung)
    and ( (btbg20.Caption <> '4')
         or (falscherstatus = false)
         or (btbg20.Caption <> '6')
         or (btbg20.Caption <> '7')
         or (btbg20.Caption <> '8')
         or (btbg20.Caption <> '3') ) then
begin
  btbg20.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then
begin
  falscherstatus := true;
end;

if (gb20.Caption = Fahrzeug4.fkennung)
   and ( (btbg20.Caption <> '4')
        or (falscherstatus = false)
        or (btbg20.Caption <> '6')
        or (btbg20.Caption <> '7')
        or (btbg20.Caption <> '8')
        or (btbg20.Caption <> '3') ) then
begin
  btbg20.Caption := '3';
end
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then
begin
  falscherstatus := true;
end;
dann kann man vielleicht schon mehr erkennen.
Allerdings nur vielleicht, in Wirklichkeit wird einem dann erst das ganze schreckliche Ausmaß klar und man sollte sich diesem Code vermutlich doch nicht weiter annähren als, naja, sagen wir mal 1km.

Was mich besonders stutzig macht, sind diese komischen...
markieren
Delphi-Quellcode:
else if (gb20.Caption = Fahrzeug4.fkennung)
        and (btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5') then
AND- und OR-Verknüpfungen. Fehlt da nicht eventuell noch ein Klammerpaar?

Also so...
markieren
Delphi-Quellcode:
else if (gb20.Caption = Fahrzeug4.fkennung)
        and ((btbg20.Caption = '1') or (btbg20.Caption = '2') or (btbg20.Caption = '5')) then
?

Ich sehe da noch viel mehr Problemstellen, lass es aber jetzt mal dabei.
Sorry, aber da vergeht einem ja echt jeglicher Spass am Programmieren.

Traurige Grüsse
Thorsten
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Befehl kürzen

  Alt 10. Feb 2008, 21:22
Hier doch nochmal ein Vorschlag...

zusammenfalten · markieren
Delphi-Quellcode:
type
  TMyResult = (_None, _True, _False);

function Test(FahrzeugkennungA, FahrzeugkennungB,
              CaptionA, CaptionB, CaptionC:string;
              falscherstatus:boolean):TMyResult;
begin
  Result:=_None;
  if (CaptionA = FahrzeugkennungA)
     and ( (CaptionB <> '4')
          or (CaptionB <> '6')
          or (CaptionB <> '7')
          or (CaptionB <> '8')
          or (CaptionB <> '3')
          or not falscherstatus) then
  begin
    Result:=_True;
  end
  else if (CaptionC = FahrzeugkennungB)
          and ((CaptionA = '1') or (CaptionA = '2') or (CaptionA = '5')) then
  begin
    Result:=_False;
  end;
end;

procedure TForm.Proc(var status:boolean);
var F4K, CapA, CapC:string;
begin
  F4K:=Fahrzeug4.fkennung;
  CapA:=gb19.Caption;
  CapC:=gb20.Caption;
  case Test(Fahrzeug1.fkennung, F4K, CapA, btbg19.Caption, CapC, status) of
    _True: btbg19.Caption:='3';
    _False: status:=true;
  end;
  case Test(Fahrzeug2.fkennung, F4K, CapA, btbg19.Caption, CapC, status) of
    _True: btbg19.Caption:='3';
    _False: status:=true;
  end;
  case Test(Fahrzeug3.fkennung, F4K, CapA, btbg19.Caption, CapC, status) of
    _True: btbg19.Caption:='3';
    _False: status:=true;
  end;
  case Test(Fahrzeug4.fkennung, F4K, CapA, btbg19.Caption, CapC, status) of
    _True: btbg19.Caption:='3';
    _False: status:=true;
  end;

  CapA:=gb20.Caption;
  CapC:=gb20.Caption;
  case Test(Fahrzeug1.fkennung, F4K, CapA, btbg20.Caption, CapC, status) of
    _True: btbg20.Caption:='3';
    _False: status:=true;
  end;
  case Test(Fahrzeug2.fkennung, F4K, CapA, btbg20.Caption, CapC, status) of
    _True: btbg20.Caption:='3';
    _False: status:=true;
  end;
  case Test(Fahrzeug3.fkennung, F4K, CapA, btbg20.Caption, CapC, status) of
    _True: btbg20.Caption:='3';
    _False: status:=true;
  end;
  case Test(Fahrzeug4.fkennung, F4K, CapA, btbg20.Caption, CapC, status) of
    _True: btbg20.Caption:='3';
    _False: status:=true;
  end;
end;
Nicht schön, aber selten...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Befehl kürzen

  Alt 10. Feb 2008, 21:30
Zitat:
markieren
Delphi-Quellcode:
type
  TMyResult = (_None, _True, _False);
Klingt für mich nach FemaleBool: Yes, No, MayBe
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
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Befehl kürzen

  Alt 10. Feb 2008, 21:35
Naja, schau dir den Quellcode oben mal an. Da hier leider schreibend auf die Komponenten der Form zugegriffen wird und das leider mit TCaption über einen Referenzparameter nicht geht, musste ich mir hier etwas anderes einfallen lassen.

Bin aber auf andere Lösungen auch sehr gespannt...
  Mit Zitat antworten Zitat
fLaSh11
(Gast)

n/a Beiträge
 
#9

Re: Befehl kürzen

  Alt 10. Feb 2008, 21:45
[ot]
Sag mal, wir das ein BOS-Funk-Tool
[/ot]
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Befehl kürzen

  Alt 10. Feb 2008, 21:49
Ich weiss, deine Frage geht nicht an mich. Aber meine geht an dich.

Hört sich ja wirklich spannend an. Was ist das? Habe nur dies gefunden hier.

Sorry, bin eben zu blöd dafür.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz