Forum: Sonstige Fragen zu Delphi
Delphi
by jfheins,
4. Apr 2009
So - jetzt dann jetzt meine vorläufige Endversion:
:arrow: In meinem D2006 compiliert es :)
:arrow: Arbeitet mit Sets
:arrow: Kein goto :stupid:
:arrow: case-Statement statt "else if" :mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by jfheins,
3. Apr 2009
Was passiert, wenn man der Prozedur jetzt einen String übergibt, in dem weder Ziffern noch Zeichen drin sind?
Also sowas wie :?:
Forum: Sonstige Fragen zu Delphi
Delphi
by jfheins,
3. Apr 2009
Kein Problem :)
Verwundert mich ein wenig aber okay :)
Hach, ich vermisse das "elseif"-Schlüsselwort aus PHP - in Delphi muss man dafür "else if" schreiben :stupid:
Außerdem ist meine Einrückung ein wenig an das case angelehnt (das hier ja nicht geht weil Mengen verglichen werden) man könnte also noch ein paar andere Fälle abdecken, ohne dass der letzte Fall ganz weit rechts steht...
Forum: Sonstige Fragen zu Delphi
Delphi
by jfheins,
3. Apr 2009
Sooo, ich hab den Code mal etwas verändert.
Sets eingebaut und das goto entfernt :)
Was haltet ihr davon?
program test;
{$APPTYPE CONSOLE}
uses SysUtils;
Forum: Sonstige Fragen zu Delphi
Delphi
by jfheins,
3. Apr 2009
Nichts für ungut, aber ich hätte da noch ein paar Verbesserungsvorschläge:
1. Nicht =True überprüfen
2. Was passiert wenn man ein Leerzeichen übergibt? " "
3. Schlecht eingerückt (ok - darüber kann an streiten)
4. Evtl. vorzeitug abbrechen wenn das Ergebnis schon feststeht (wenn beide Arten vorkommen => break;)