elseif [*Nun Offtropic]

[Maik81ftl]

Moin bzw. Nabend zusammen.

Habe mal eine Frage zu verzweigten Abfragen, genauergesagt zur If then.

steht hier die Möglichkeit einer elseif abfrage zur verfügung? wenn ja, was muß ich bei fpc im vergleich zu CodeSys beachten? da schreib ich

Code: Alles auswählen

if Bedingung1 then
AWB 1
elseif Bedingung2 then
AWB2
else
AWB3
end;

kann ich so auch mit Lazarus schreiben oder muß ich hier die Schleifen nach Folgendem System verwenden?

Code: Alles auswählen

if Bedingung1 then
AWB1
else
if Bedingung2 then
AWB2
else
AWB3
end;

Gruß und schönen Wochenstart Maik

[u-boot]

http://www.imb-jena.de/~gmueller/kurse/ ... as333.html
http://www.delphi-treff.de/object-pascal/verzweigungen/
allerdings kann die Anwendung von case manchmal schöner sein.

[Maik81ftl]

Dachte ich mir auch schon, das ich mit Pseudocode nicht arbeiten kann. naja. denne wohl doch den Umständlichen weg gehen.

[Socke]

Es geht schon, gehört dann aber nicht zum Sprachumfang und ist eigentlich auch nur ein Workaround.

Code: Alles auswählen

{$MACRO ON}
{$DEFINE elseif:=else if}
//…
if False then
elseif True then
ShowMessage('geht');

[u-boot]

hmm eher Gewohnheitssache als "Umstand".
elseif ist gegenüber else if eher kompliziert. else und if sind Sprachbausteine die sowieso genau in diesem Kontext bestehen und so auch für diese Fälle zum einsatz kommen. Wohingegen elseif als neuer Sprachbaustein hinzukommen würde. (Wer will elseif schon lernen, wenn man sowieso das normale else und if schon kann).

[Maik81SE]

Es geht schon, gehört dann aber nicht zum Sprachumfang und ist eigentlich auch nur ein Workaround.

Code: Alles auswählen

{$MACRO ON}
{$DEFINE elseif:=else if}
//…
if False then
elseif True then
ShowMessage('geht');

via Macroschalter definieren das ich ein Sehr guter Tipp

hmm eher Gewohnheitssache als "Umstand".
elseif ist gegenüber else if eher kompliziert. else und if sind Sprachbausteine die sowieso genau in diesem Kontext bestehen und so auch für diese Fälle zum einsatz kommen. Wohingegen elseif als neuer Sprachbaustein hinzukommen würde. (Wer will elseif schon lernen, wenn man sowieso das normale else und if schon kann).

elseif ist bei meinem Derzeitig Privaten Projekt sinnvoller als getrennt

[Socke]

elseif ist bei meinem Derzeitig Privaten Projekt sinnvoller als getrennt

Wie mein Beitrag mit dem Makro-Schalter zeigt, gibt es doch effektiv keinen Unterschied, ob "else if" geschrieben wird oder "elseif" zu eben jenem expandiert wird. Ein syntaktischer Unterschied kann also gar nicht vorhanden sein und es gibt ebenso auch keinen Unterschied von Getrenntschreibung einer Sprache zu der Zusammenschreibung einer anderen Sprache.

Warum das eine jetzt sinnvoller sein soll, erschließt mir nicht so ganz; vielleicht kannst du das noch weiter ausführen?

[Maik81ftl]

Wie mein Beitrag mit dem Makro-Schalter zeigt, gibt es doch effektiv keinen Unterschied, ob "else if" geschrieben wird oder "elseif" zu eben jenem expandiert wird. Ein syntaktischer Unterschied kann also gar nicht vorhanden sein und es gibt ebenso auch keinen Unterschied von Getrenntschreibung einer Sprache zu der Zusammenschreibung einer anderen Sprache.

Warum das eine jetzt sinnvoller sein soll, erschließt mir nicht so ganz; vielleicht kannst du das noch weiter ausführen?

Nun socke, klar ist die gerade ein Streitthema, aber bei Selktiven Abfragen, ist die sinfoller, wenn das erst Zeichen immer Konstant bleibt und sich in einer Zeichkette das 2, 3 und ggf. 4 Zechen ändert,

bsp: (r); (c); (tm)

Zioel und Zweck ist es diese Zeichen analog zu OpenOffice automatisch umzwandeln. auch wenn's sich nicht groß unterscheidet, liest es sich für mich besser, wenn ich

Code: Alles auswählen

elseif

statt

Code: Alles auswählen

else if

lese. aber ist ja am ende sowieso jedem seine Geschmackssache.

Edit

Hier zur besseren erklärung die Codesection, um die es sich handelt.

Code: Alles auswählen

for Count:= 1 to length(Medizin.Text) do
      if (Medizin.Text[count]='(') then
        if (((Medizin.Text[Count+1]='r') or (Medizin.Text[Count+1]='R'))
              and (Medizin.Text[count+2]=')')) then Caption:= '®'
        elseif (((Medizin.Text[Count+1]='c') or (Medizin.Text[Count+1]='C'))
                  and (Medizin.Text[Count+2]=')')) then Caption:= '©'
        elseif (((Medizin.Text[Count+1]='t') or (Medizin.Text[Count+1]='T'))  and
                ((Medizin.Text[Count+2]='m') or (Medizin.Text[Count+2]='M'))) and
                 (Medizin.Text[Count+3]=')') then Caption:='™'

Läuft auch in kleineren Test soweit sehr gut... Nun nur noch dem Programm sagen, das er aus den 3/4 Zeichen eines machen soll.

[m.fuchs]

Wenn ich deinen Code und deine Beschreibung richtig interpretiere (was bei dir allerdings nicht gerade einfach ist), dann dürftest du hiermit glücklich werden:

Code: Alles auswählen

Caption := StringsReplace(Medizin.Text, ['(r)', '(c)', '(tm)'], ['®', '©', '™'], [rfReplaceAll, rfIgnoreCase]);

Warum jetzt ein elseif besser als else if sein soll konntest du trotzdem nicht darlegen. Von dem oben genannten Makro halte ich übrigens gar nichts. Damit wird nur eine neue, unnütze und gefährliche Methode etwas zu codieren eingeführt. Unnütz, weil die Einsparung von einem Leerzeichen gar nichts bringt. Gefährlich, weil es für andere Entwickler schwieriger wird sich durch den Code zu lesen. Man muss immer wieder nachschauen was dieser Makrobezeichner macht. Das mag bei einem elseif jetzt nicht unbedingt der Fall sein, aber es könnte ja auch eine völlig neue Sprache geschaffen werden. Also ungefähr so wie du das mit der deutschen Sprache machst. Wie groß dann die Verständnisschwierigkeiten sind, kann wohl jeder nachvollziehen.

[Socke]

Wenn ich deinen Code und deine Beschreibung richtig interpretiere (was bei dir allerdings nicht gerade einfach ist), dann dürftest du hiermit glücklich werden:

Code: Alles auswählen

Caption := StringsReplace(Medizin.Text, ['(r)', '(c)', '(tm)'], ['®', '©', '™'], [rfReplaceAll, rfIgnoreCase]);

Diese Variante funktioniert übrigens auch dann noch einwandfrei, wenn in Medizin.Text ein ungültiger Wert enthalten ist. Ungültig wäre in deiner Funktion ein Wert, wenn nach einer öffnenden runden Klammer nicht mindestens zwei Zeichen folgen. Bei dir hättest du schnell eine Zugriffsverletzung (im besten Fall).

Warum jetzt ein elseif besser als else if sein soll konntest du trotzdem nicht darlegen.

Es soll leichter lesbar sein. Deine Argumente unten zielen natürlich genau dagegen und zeigen deutlich, dass Lesbarkeit nicht nur Geschmackssache ist, sondern ein Grundvoraussetzung um effizienter zu kommunizieren (oder auch zu produzieren).

Von dem oben genannten Makro halte ich übrigens gar nichts. Damit wird nur eine neue, unnütze und gefährliche Methode etwas zu codieren eingeführt. Unnütz, weil die Einsparung von einem Leerzeichen gar nichts bringt. Gefährlich, weil es für andere Entwickler schwieriger wird sich durch den Code zu lesen. Man muss immer wieder nachschauen was dieser Makrobezeichner macht.

Das ist so ziemlich der zweitwichtigste Punkt, der mich an der Sprache C stört. Dort wird für alles ein Makro geschrieben, nur weil man keine ganzen Funktionen in eine Header-Datei hineinschreiben möchte (oder per Konvention nicht tut; technisch wäre es aber möglich).
Dass ich dieses Makro hier hineingestellt habe, heißt auch nur, dass ich die technische Machbarkeit demonstriere. Eine mächtige Programmiersprache zeichnet sich nicht dadurch aus, dass ein mächtiger Präprozessor zum Sprachumfang dazugehört.

[Maik81ftl]

Wenn ich deinen Code und deine Beschreibung richtig interpretiere (was bei dir allerdings nicht gerade einfach ist), dann dürftest du hiermit glücklich werden:

Code: Alles auswählen

Caption := StringsReplace(Medizin.Text, ['(r)', '(c)', '(tm)'], ['®', '©', '™'], [rfReplaceAll, rfIgnoreCase]);

Diese Variante funktioniert übrigens auch dann noch einwandfrei, wenn in Medizin.Text ein ungültiger Wert enthalten ist. Ungültig wäre in deiner Funktion ein Wert, wenn nach einer öffnenden runden Klammer nicht mindestens zwei Zeichen folgen. Bei dir hättest du schnell eine Zugriffsverletzung (im besten Fall).

HIer habt ihr beide bzw du socke mich auf einen ggf. auftauchenden Fehler gelenkt.

Code: Alles auswählen

(|)

| ist jetzt mal angenommen ein X-beliebiger char.

Warum jetzt ein elseif besser als else if sein soll konntest du trotzdem nicht darlegen.

Es soll leichter lesbar sein. Deine Argumente unten zielen natürlich genau dagegen und zeigen deutlich, dass Lesbarkeit nicht nur Geschmackssache ist, sondern ein Grundvoraussetzung um effizienter zu kommunizieren (oder auch zu produzieren).

Socke! Hier hast du gerade recht. ich will deshalb auf dieses Macro umsteigen, da ich bei CoDeSys auch diesen befehl verwenden kann, darf und/oder muß. Wäre glaube sehr umständlich und Kontraproduktiv, wenn die Externen Mitarbeiter schon mit elseif arbeiten und ich dies Übergehe und was anderes verwende.

[Socke]

Socke! Hier hast du gerade recht. ich will deshalb auf dieses Macro umsteigen, da ich bei CoDeSys auch diesen befehl verwenden kann, darf und/oder muß. Wäre glaube sehr umständlich und Kontraproduktiv, wenn die Externen Mitarbeiter schon mit elseif arbeiten und ich dies Übergehe und was anderes verwende.

Kompatibilität mit einem anderen Produkt herzustellen ist natürlich ein legitimer Grund, was dann aber ein Argument gegen diese Produkte/-kombination ist CoDeSys ist mir überhaupt kein Begriff …

[Maik81ftl]

Socke! Hier hast du gerade recht. ich will deshalb auf dieses Macro umsteigen, da ich bei CoDeSys auch diesen befehl verwenden kann, darf und/oder muß. Wäre glaube sehr umständlich und Kontraproduktiv, wenn die Externen Mitarbeiter schon mit elseif arbeiten und ich dies Übergehe und was anderes verwende.

Kompatibilität mit einem anderen Produkt herzustellen ist natürlich ein legitimer Grund, was dann aber ein Argument gegen diese Produkte/-kombination ist CoDeSys ist mir überhaupt kein Begriff …

CoDeSys ist eine auf Modula Basierende Programmierumgebung für die SABO-SPS-Systeme, welche ich Programmieren und Optimieren muß. Näheres hier. CoDeSys, SPS Steuerungen oder CoDeSys

EDIT* Da ja die Eigendliche Frage geklärt ist, kann dies nun als Off-Tropic behandelt werden.

Hier mal die Function in lauffähiger Art. Ohne Probleme...

Code: Alles auswählen

var count: byte;
begin
  if Key = 13 then begin
    count:= 0;
    repeat
      inc(count);
      if (Medizin.Text[count]='(') then begin
        if (((Medizin.Text[Count+1]='r') or (Medizin.Text[Count+1]='R'))
              and (Medizin.Text[count+2]=')')) then begin
              Meditemp:= Meditemp+('®');
              Inc(count, 2);
              end
        elseif (((Medizin.Text[Count+1]='c') or (Medizin.Text[Count+1]='C'))
                  and (Medizin.Text[Count+2]=')')) then begin
                  Meditemp:= Meditemp+('©');
                  inc(count, 2);
                  end
        elseif (((Medizin.Text[Count+1]='t') or (Medizin.Text[Count+1]='T'))  and
                ((Medizin.Text[Count+2]='m') or (Medizin.Text[Count+2]='M'))) and
                 (Medizin.Text[Count+3]=')') then begin
                  Meditemp:= Meditemp+('™');
                  inc(count, 3);
                 end;
        end
        else Meditemp:= Meditemp+Medizin.Text[Count];
      until Count = length(Medizin.Text);
  Medizin.Text:= Meditemp;
  end;

[m.fuchs]

ich will deshalb auf dieses Macro umsteigen, da ich bei CoDeSys auch diesen befehl verwenden kann, darf und/oder muß. Wäre glaube sehr umständlich und Kontraproduktiv, wenn die Externen Mitarbeiter schon mit elseif arbeiten und ich dies Übergehe und was anderes verwende.

Hm, finde ich sehr seltsam. Wenn ich ein C-Programm korrigieren muss, dann schreib ich ja auch nicht zuerst:

Code: Alles auswählen

#define BEGIN {
#define END }

Solche Makros zu verwenden um Pascal einer anderen Sprache anzupassen klingt jedenfalls nicht nach einer guten Idee in meinen Ohren. Als Entwickler der in einer neuen Sprache arbeiten muss, würde ich dann ein Verzweigungskonstrukt sehen, welches nicht im FPC-Handbuch beschrieben ist. Ganz übel. Nebenbei fehlt dir dann das Syntaxhiglighting.

Und ganz ehrlich: Mehrere Sprachen zu beherrschen sollte eigentlich in der beruflichen Softwareentwicklung problemlos möglich sein. Klar verwechselt man mal was (this und self tausche ich gelegentlich mal in Pascal und PHP hin und her), aber das ist ja auch kein unlösbares Problem.

Ich würde für sowas jedenfalls den Leuten eins auf die Finger geben.

[Maik81ftl]

Gebe ich dir Bedingt recht m.fuchs. Allerdings ist Modular wenn ich mich nicht Irre eine Pascalart, Habe zugegeben auch bei AVRco diesen Befehl elseif zur Verfügung. Wie das allerdings im Vergleich zu C, Java, php und co. ist, kann ich nicht beurteilen, da ich mich zu nahezu 99% mit Pascal beschäftige.

Das seinen Einwand als des Syntaxhighlighting betrifft, da gebe ich dir 100 Pro recht. Wäre in dem Sinn ein Riesen Vorteil, wenn diese Makro automatisch in den entsprechenden Highlighter Gesetz wird.