Extract file extension: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,188: / Line 1,188: @@
 Function extractextension(fn: String): string;
 Var
-  i: char;
+  i: integer;
 Begin
   fn := 'prefix' + fn; {add charachters before the period}
   fn := ExtractFileExt(fn);
-  delete(fn,1,1); {remove the period}
+  For i := 2 to length(fn) Do {skip the period}
+    If Not IsLetterOrDigit(fn[i]) Then exit('');
-  For i In fn Do
+ extractextension := fn;
-    If Not IsLetterOrDigit(i) Then exit('');
-  extractextension := fn;
 End;
@@ Line 1,214: / Line 1,213: @@
                    /etc/pam.d/login ->
 </pre>
 =={{header|Frink}}==