تقسيم النص

[SMP3]

و عليكم السلام
حل على السريع :

PHP كود :

procedure Split20(AMemo: TMemo);
var
  i: integer;
  tStr, Str, TmpStr: String;
begin
  if AMemo.Lines.Count = 0 then
    Exit;

  TmpStr := '';
  tStr := '';

  for i := 0 to AMemo.Lines.Count do
    begin
      Str := TmpStr + AMemo.Lines[i];
      TmpStr := Copy(Str, 21, Length(Str)) + ' ';
      Str := (Copy(Str, 0, 20));
      if i = 0 then
        tStr := tStr + Str
      else
        tStr := tStr + #13#10 + Str;
    end;
  tStr := tStr + #13#10 + TmpStr;
  AMemo.Text := tStr;
end; 


PHP كود :

Split20(mmo1);