18-07-2012, 09:25 AM
كود :
n:=pos('@',s);
if n>0 then
begin
str:=copy(s,1,n-1);
if str='½»Ì¸' then //¸ñʽ:"½»Ì¸"@"toêdzÆ"@"ÄÚÈÝ"
begin
str:=copy(s,n+1,length(s)-n);
name:=copy(str,3,pos('@',str)-3); //½»Ì¸µÄ¶ÔÏóêdzÆ
nei_rong:=copy(str,pos('@',str)+1,length(str)-pos('@',str));//هذا الشرح اخي لو سمحت
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم