الدالة post

[onexite]

اخي onexite لقد جربت الكود الدي كتبه على الشكل التالي ولكن تضهر لي رسالة الخطا **** ان تفيدني اكثر انا مبتداة بالبرمجة
memo1.lines:=Memo2.lines StringReplace(text
,'#', ' ',
; [rfReplaceAll, rfIgnoreCase])

الكلمات المحجوزة غير كاملة اكمليها انت

PHP كود :

procedure TForm2.Button1Click(Sender: TObject);
  const
  //mots réservés
  mots  : array[0..11]of string =('.','int','write',':','var','begin','array','procedure','function','end',',',';' );
var i:Byte; text:string;
begin
text:=Memo1.Text;
 for i := 0 to High(mots) do
text:=StringReplace(text,mots[i], mots[i]+'#',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=text;

end;