نکات برنامه نویسی در دلفی

[mbshareat]

تصحیح کدهای خراب سایت:

Var

  S:String;

begin

  S:=Memo1.Text;

  S:=StringReplace(S,'(','(',[rfReplaceAll]);

  S:=StringReplace(S,')',')',[rfReplaceAll]);

  S:=StringReplace(S,':',':',[rfReplaceAll]);

  S:=StringReplace(S,'[','[',[rfReplaceAll]);

  S:=StringReplace(S,']',']',[rfReplaceAll]);

  S:=StringReplace(S,'&lt;','<',[rfReplaceAll]);

  S:=StringReplace(S,'&#123;','{/',[rfReplaceAll]);

  S:=StringReplace(S,'&#125;','/}',[rfReplaceAll]);

  Memo1.Text:=S;

  Memo1.SelectAll;

  Memo1.CopyToClipboard;

  Memo1.SelLength:=0;

end;

ValidCode.rar