الدالة post

[onexite]

هذا سيفي بالغرض

PHP كود :

procedure TForm2.StartClick(Sender: TObject);
var mystr,Position:string;
  I: Integer;
begin
Memo2.Text:='';
mystr:=Memo1.Text;
 for I := 0 to Length(mystr)-1 do
 if (mystr[i]=' ') or (mystr[i]=';')  then
 begin
 Memo2.Text:=Memo2.Text+mystr[i]+'#' ;
 Position:=Position+' , '+IntToStr(i+1) ;
 end else Memo2.Text:=Memo2.Text+mystr[i] ;


Memo3.Text:=Position;
end;