تقسيم النص

[Agmcz]

أيضا

PHP كود :

function Split_Str(Text: TStrings; tStart, tStop: Integer): string;
var
  I: Integer;
  S: string;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    for I := 0 to Pred(Text.Count) do
    begin
      S := S + Text[i];
    end;
    repeat
      if Length(S) > tStop then
      begin
        SL.Add(Copy(S, tStart, tStop));
        Delete(S, tStart, tStop);
      end
      else
      begin
        SL.Add(S);
        Delete(S, tStart, Length(S));
      end;
    until Length(S) = 0;
  finally
    Result := SL.Text;
    SL.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo2.Text := Split_Str(Memo1.Lines, 1, 20);
end;