22-02-2011, 03:29 PM
السلام عليكم،
اقترح هذه الدالة هي من صنعي تقريبا و تقوم باتسترجاع اسم ملف مرفقا بامتداده من مسار مباشر في الانترنت **** ان تنال اعجابكم.
------
اقترح هذه الدالة هي من صنعي تقريبا و تقوم باتسترجاع اسم ملف مرفقا بامتداده من مسار مباشر في الانترنت **** ان تنال اعجابكم.
كود :
const
PathDelim = '/';
DriveDelim = '/';
PathSep =';';كود :
function webnamextractor(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter(PathDelim + DriveDelim, FileName);
Result := Copy(FileName, I + 1, MaxInt);
end;