Crear un String de mas de 256 caracteres

[gabrielkc]

y sumando 2 string?

str1:string[255];
str2:string[173];
str3:string;

y al final haces

str3:=str1+str2;//// creo que debe funcionar

[Ñuño Martínez]

En vez de STRING utiliza ANSISTRING. También puedes utilizar la marca {$H+} que hace que todas las cadenas declaradas como STRING a partir de esa línea sean tratadas en realidad como ANSISTRING.

[roman]

No entiendo para qué enredarse con PChars o arreglos de caracteres. Usar simplemente un tipo string que es el que acepta millones de caracteres, al menos con {$H+} como comenta Ñuño, que, al ser la opción por default, ni hace falta ponerla.

// Saludos

[alberto grande]

hola amigos agradeceria muchisimo si algien pudiera ayudarme con este tema, comento: va entre lo del string de mas de 255 (q si q con + se pueden poner mas)y el mailto, tengo un aaplicacion q estoy haceiendo y me gustaria mandar email a todoslos clientes, ahora mismo es muy chapucera xq abre un form con las direcciones las copio y las pego y el problema es ese q al ser mas de 255 letras nose si es el mailto el q no lo acepta o el string(creo q el mail to xq sino supongo q daria error de compilacio) bueno aki os dejo el codigo aber si algien me puede hechar una mano please, porcierto trabajo(hobby) en delphi7, y l abase de datos es en mysql



Código Delphi [-]procedure TCUSTOMERS.Image2Click(Sender: TObject);
{$H+}var {$H+}
{$H+}direcciones: {$H+}string;
begin
cont:=0;
direcciones:='';
datamodule2.QUERYCUSTOMERS.First;
direcciones:=datamodule2.QUERYCUSTOMERSEmail.value;
datamodule2.QUERYCUSTOMERS.next;
while not datamodule2.querycustomers.Eof do begin
if datamodule2.QUERYCUSTOMERSEmail.value = '' then begin

datamodule2.querycustomers.next;
end;
if datamodule2.QUERYCUSTOMERSEmail.value <> '' then begin
direcciones := direcciones + ';' +' '+ datamodule2.QUERYCUSTOMERSEmail.value;
cont:=cont+1;
datamodule2.querycustomers.next;
end;
end;

direcciones := direcciones+';';
ShellExecute(GetDesktopWindow,nil,pChar('mailto:'+direcciones+'?subject=Murren Murkina Information'),nil,nil ,SW_SHOWNORMAL);
//MAIL.show;
//MAIL.EDIT1.text:=direcciones;


gracias por adelantado y lo siento de veras si me salto algunas reglas pero es mi primer mensaje(y soy novato en esto hay q reconocerlo un modulo superior no da para tanto) y leido mucho y me encanta la web y me lei le hilo de comportamiento pero nose seguro q me dejo algo no¿? gracias de nuevo

[alberto grande]

hola hola! bueno escribo esto xq supuestamente se actualiza y se pone primero no (mejor q duplicar dudas)¿ bueno aki sigo con mi problema

[[Lepe]]

subir si sube, pero si no sé la solución, mejor me callo.

Si puedo aportar alguna mejora, pero el código hace lo mismo.

Código Delphi [-]
procedure TCUSTOMERS.Image2Click(Sender: TObject);
{$H+}var {$H+}
{$H+}direcciones: {$H+}string;
begin
cont:=0;
direcciones:='';
datamodule2.QUERYCUSTOMERS.First;
while not datamodule2.querycustomers.Eof do 
begin
  if datamodule2.QUERYCUSTOMERSEmail.value <> '' then 
  begin
    direcciones := direcciones + datamodule2.QUERYCUSTOMERSEmail.value +'; ';
    cont:=cont+1;
  end;
  datamodule2.querycustomers.next;
end;

ShellExecute(GetDesktopWindow,nil,pChar('mailto:'+direcciones+'?subject=Murren Murkina Information'),nil,nil ,SW_SHOWNORMAL);
//MAIL.show;
//MAIL.EDIT1.text:=direcciones;

Saludos y suerte.