Extract file extension: Difference between revisions
→{{header|FreePascal}}
No edit summary |
|||
Line 1,188:
Function extractextension(fn: String): string;
Var
i:
Begin
fn := 'prefix' + fn; {add charachters before the period}
fn := ExtractFileExt(fn);
If Not IsLetterOrDigit(fn[i]) Then exit('');▼
▲ If Not IsLetterOrDigit(i) Then exit('');
▲ extractextension := fn;
End;
Line 1,214 ⟶ 1,213:
/etc/pam.d/login ->
</pre>
=={{header|Frink}}==
|