Sollte doch eigentlich nicht schwer sein:
Zitat von
unit SysUtils;:
function AnsiSameText(const S1, S2: string): Boolean;
function WideSameText(const S1, S2: WideString): Boolean;
function Trim(const S: string): string;
function Trim(const S: WideString): WideString;
function ExtractFileExt(const FileName: string): string;
Nur für ExtractFileExt musst Du Dir etwas überlegen.