flint2 писал(а):
Tad, забыл Перезалил в первом посте.
Кстати, прекрасно работает и просто Ext :=__DelimiterLast(PChar( FileName), '.') + ',';, которое, к слову, применяется в коловской функции ExtractFileExt
Из kol.pas
function ExtractFileExt( const Path : String ) : String;
var P: PChar;
begin
P := __DelimiterLast( PChar( Path ), '.' );
Result := P;
end;
multiext.zip
Поиск
Друзья
Администрация