![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|
|
#1
|
|||
|
|||
|
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; |
|
#2
|
|||
|
|||
|
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 | |
|
|
|