![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|
|
#1
|
|||
|
|||
|
Símplemente añadiendo carácteres
![]() Ahora, si te refieres en que no puedes en la misma instrucción, prueba a dividirlo en varias. Código:
var str := string; begin str := 'mi super long string de menos de 255 caracteres'; str := str + ' más la concatenación que lo hace mayos a 255'; ![]() |
|
#2
|
|||
|
|||
|
si, pero el problema es que no conozco la longitud, ya que se modifica en ejecución y no se como hacer.
|
|
#3
|
|||
|
|||
|
Pon algo de código a ver si podemos ayudarte a partir esas asignaciones
|
|
#4
|
|||
|
|||
|
unidades:='!!Alarma: Reponer =';
adotalm.first; while not adotalm.Eof do begin if adotalm['UNIDADES']<adotalm['MIN'] then begin alarma:=true; unidades:=unidades+'//'+adotalm['REF']; end; adtalm.next; end; |
|
#5
|
|||
|
|||
|
Pero, a ver, esto te da algún error? Si es así, cuál?
Lo que "impide" Delphi es la asignación de un string de más de 255 caracteres, pero con concatenaciones como la que haces.... nunca he tenido problemas (bueno, tampoco se si he superado alguna vez los 255) Bueno, acabo de hacer esta prueba y sin problemas: Código:
var
str: string;
i: integer;
begin
str := '';
for i := 1 to 270 do
str := str + IntToStr(i);
showmessage(str);
Código:
if length(adotalm['REF']) <= 255 then
unidades := unidades + '//' + adotalm['REF']
else
unidades := unidades + '//' +
copy(adotalm['REF'], 0, 250) +
copy(adotalm['REF'], 250, length(adotalm['REF']));
![]() |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|