AGB  ·  Datenschutz  ·  Impressum  







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

Vergleich umdrehen

Ein Thema von ernschd · begonnen am 29. Mai 2024 · letzter Beitrag vom 30. Mai 2024
Antwort Antwort
ernschd

Registriert seit: 16. Jan 2008
166 Beiträge
 
Delphi XE8 Professional
 
#1

Vergleich umdrehen

  Alt 29. Mai 2024, 17:56
Hallo zusammen,

ich habe eine größeres Stück Code vor mir, in dem der Programmierer aus mir nicht nachvollziehbaren Gründen viele (aber nicht alle) Vergleiche "verdreht" hat.
Beispiel:
Delphi-Quellcode:
if (0 = myInteger) then // die Variable heißt natürlich nicht wirklich so ;-)

oder

if ('' = Datum) then
Ich würde das nun gerne korrigieren, allerdings nur ungerne händisch. Gibt es hierfür eine Möglichkeit in Delphi?
In CnPack gibt es "EvalSwap", aber diese Funktion dreht nur die Zuweisungen um.

Vielen Dank im Voraus!

Grüße, ernschd
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#2

AW: Vergleich umdrehen

  Alt 29. Mai 2024, 18:03
Ich weiß jetzt nicht wie oft jemand sowas macht, aber vermutlich nicht oft, weswegen es schon sein könnte, dass es dafür (noch) nix gibt.




Ich hätte eher verstanden, wenn er es andersrum gedreht hätte,
also if VariablePropertyOderFunktion = Konstante , da dann der Compiler es so besser optimieren könnte.

Er wertet das ja in dieser Reihenfolge aus, wie es da steht,
kommt nun der Funktionsaufruf zuletzt, muß alles anderes vorher auf den Stack geschoben und nachher eventuell wieder runtergeholt werden, oder zumindestens als eine Referenz in den Stack, da beim Funktionsaufruf die meißten Register "leer" sein müssen, damit sie nicht ausversehn überschrieben werden.

Ist die Konstante als Letztes, dann kann sie direkt genutzt werden, ohne unbedingt auf dem Stack zu landen.



Hier finden einiges es geil unnötig viele Klammern in IFs einzubauen
oder NOT wie einen Funktionsaufruf zu schreiben, also ohne Leerzeichen und mit Klammern danach
oder ...

Ohne Buntmalen vom Editor kann man da doch garnichts mehr einfach erkennen und selbst Mit nicht wirklich
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (29. Mai 2024 um 18:07 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#3

AW: Vergleich umdrehen

  Alt 29. Mai 2024, 19:36
Das "Umdrehen" deutet darauf hin, dass der Autor sich zumindest gelegentlich auch mit C oder C-ähnlichen Sprachen beschäftigt. Dort ist z.B. das hier valider Code:
Code:
int myVar = 42;
if (myVar = 1) {
  doSomething();
}
Eigentlich wollte er myVar mit 1 vergleichen, hat aber versehentlich statt des Vergleichsoperators "==" den Zuweisungsoperator "=" benutzt. Er weist also der Variablen myVar den Wert 1 zu, dies wird beim Vergleich (1 <> 0) dann zu true. Damit einem so etwas nicht passiert, dreht man das dann einfach um, da man auch in C/C++/Java etc. einer Konstanten keinen Wert zuweisen kann.
Code:
int myVar = 42;
if (1 = myVar) { // das ist kein valider Code mehr
  doSomething();
}
Somit weist einen der Compiler gleich auf den Fehler hin.
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
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#4

AW: Vergleich umdrehen

  Alt 29. Mai 2024, 20:18
Ein guter Compiler/Interpreter gibt hier aber auch standardmäßig erstmal eine Warnung bei aus.
(im PHP z.B.)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.746 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Vergleich umdrehen

  Alt 29. Mai 2024, 21:13
Die GExperts enthalten die im Anhang markierte Funktion, die Zuweisungen und for-Schleifen (to <=> downto) umdrehen kann. Da könntest du deinen Fall nachrüsten.
Miniaturansicht angehängter Grafiken
x.png  
Uli Gerhardt
  Mit Zitat antworten Zitat
Stolle58

Registriert seit: 4. Aug 2023
Ort: Frankfurt
20 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Vergleich umdrehen

  Alt 30. Mai 2024, 11:57
Die CnWizards besitzen eine Function "Eval Swap" die den Text umkehren kann.
Miniaturansicht angehängter Grafiken
cnwizards.png  
Reinhold
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.051 Beiträge
 
Delphi 2009 Professional
 
#7

AW: Vergleich umdrehen

  Alt 30. Mai 2024, 12:47
Das "Umdrehen" deutet darauf hin, dass der Autor sich zumindest gelegentlich auch mit C oder C-ähnlichen Sprachen beschäftigt. Dort ist z.B. das hier valider Code:
Code:
int myVar = 42;
if (myVar = 1) {
  doSomething();
}
Eigentlich wollte er myVar mit 1 vergleichen, hat aber versehentlich statt des Vergleichsoperators "==" den Zuweisungsoperator "=" benutzt. Er weist also der Variablen myVar den Wert 1 zu, dies wird beim Vergleich (1 <> 0) dann zu true. Damit einem so etwas nicht passiert, dreht man das dann einfach um, da man auch in C/C++/Java etc. einer Konstanten keinen Wert zuweisen kann.
Nennt sich Yoda Notations.
Ist in Delphi Quatsch.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Antwort Antwort


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 14:00 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