Crear un String de mas de 256 caracteres

[luigi_cr]

Hola, nesecito crear un String que contenga mas de 255 elementos, 428 para ser exactos, existe una manera de lograr esto o tendre que crear un arreglo de chars?????

este la declaracion del String
XXXXXX : String[428];

y este el error que me tira
[Error] xxxxxxxx.pas(66): String literals may have at most 255 elements


Gracias por la qyuda...

[[cHackAll]]

Me parece que estas utilizando pascal nove? bueno os explico; un String del Pascal, ahora conocido como ShortString se basa en la asignacion de un tipo de variable de 256 caracteres; en el que su primer caracter indica el tamaño de la cadena, desde el String[1] hasta el [255] están los datos de la cadena, en Delphi 5+ cambiaron el asunto por una cadena en la que los primeros cuatro caracteres (DWORD), contiene el tamaño de la cadena, lo que nos permite almacenar hasta 4 billones de caracteres... lindo no?

Bueno visto que tienes tal problema usa el PChar,.... funciona comom un puntero...y si esto no te funciona crea un vector de caracteres de 428 caracteres.

[luigi_cr]

Me dices q puedo crear un string de hasta 4 bill de chars, entonces para ello como declaro el string y que me quede de tamaño de 428... y muchas gracias por tu respuesta

PD: Utilizo Delphi 7

[[cHackAll]]

La declaracion de un "???: string[428];" no es posible solo porque el IDE no te lo permite, un string es como un puntero en el Delphi... así que cuando declaras: "?: string[10]", lo que el compilador hace es inicializar un ShortString (ya comentado)... esta medio complicado de esta forma, pero me parece que lo más correcto al caso es lo siguiente:

Código Delphi [-]
var Str: array [0..428-1] of Char;
begin
 Str := 'viva yo!!!';
 ShowMessage(Str);
...

Otra idea

Código Delphi [-]
var Str: PChar;
begin
 Str := StrAlloc(428);
 StrPCopy(Str, 'viva yo!!!');
 ShowMessage(string(Str));
...

La forma de hacerlo si es que quieres utilizar archivos con registros de tamaño constante te aconsejo que utilices la primera.

Saludos

[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.