+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر (/showthread.php?tid=4283)
كيف عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر - M_Mori2010 - 17-06-2012
السلآم عليكم ورحمةا لله وبركاته
كيف يمكنني عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر حيث انني اذا اردت عرض السمايل يجب ان اكتب التالي <img border="0" src="c:\morvac\smily\1.gif">
فهل من طريقة لصنع اختصار ؟
وجزاكم الله كل خير
كيف عمل اختصار للسمايلات مثل الاختصارات الموجودة في المسنجر - sa7er100 - 21-06-2012
وعليكم السلام
جرب هذا
كود :
function ReplaceSmileys(strtext: string): string;
begin
//New Smileys
strtext := StringReplace(strtext, ':)', '<img src="' + GetCurrentDir + 'C:\Smily\1.gif' + '">', [rfReplaceAll, rfIgnoreCase]);
end;