Código Delphi [-] unit Mime; ... {ALen=Largo de la cadena de texto} if (ADiscard > 0) then begin {Elimina ADiscard caracteres...} Delete(ACode,ALen - ADiscard + 1,ADiscard); //remove the padding indicators {Adiciona ADiscard caracteres El largo de la cadena no ha sido alterado...} ACode:=ACode + StringOfChar('A',ADiscard); //replace them with the 0 byte MIME code - always A end; {AQUI el problema Si el largo de la cadena no se altera, Porqué incrementa el largo en ALen en ADiscard...? Esto proboca el error - Sugerencia comente la línea } //inc(ALen,ADiscard);
unit Mime; ... {ALen=Largo de la cadena de texto} if (ADiscard > 0) then begin {Elimina ADiscard caracteres...} Delete(ACode,ALen - ADiscard + 1,ADiscard); //remove the padding indicators {Adiciona ADiscard caracteres El largo de la cadena no ha sido alterado...} ACode:=ACode + StringOfChar('A',ADiscard); //replace them with the 0 byte MIME code - always A end; {AQUI el problema Si el largo de la cadena no se altera, Porqué incrementa el largo en ALen en ADiscard...? Esto proboca el error - Sugerencia comente la línea } //inc(ALen,ADiscard);