delphi4arab منتديات دلفي للعرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلآم عليكم ورحمةا لله وبركاته
كيف يمكنني عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر حيث انني اذا اردت عرض السمايل يجب ان اكتب التالي <img border="0" src="c:\morvac\smily\1.gif">
فهل من طريقة لصنع اختصار ؟
وجزاكم الله كل خير

وعليكم السلام

جرب هذا

كود :
function ReplaceSmileys(strtext: string): string;

begin

//New Smileys
strtext := StringReplace(strtext, ':)', '<img src="' + GetCurrentDir + 'C:\Smily\1.gif' + '">', [rfReplaceAll, rfIgnoreCase]);
end;

M_Mori2010

sa7er100