Texto en Memoria compartida

[ElDuc]

Gracias Escafandra.

Ya había pensado en el array de chr, pero no sé como utilizarlo.

Si puedes, te agradecirí mucho que me pongas un pequeño ejemplo.


Muchas gracias.

[ElDuc]

Pongo un pequeño ejemplo de lo que necesito y no consigo.

Código Delphi [-]
Var
  Texto:Array[0..64000] Of Char;

procedure TForm2.Button1Click(Sender: TObject);
Var
    S1, S2:String;
begin
Texto:='Hola mundo';
S1:=Texto;
S2:=' Cómo estás?';
// Qué hacer para conseguir que Texto = 'Hola mundo Cómo estás?'
// Es decir ¿cómo añadir texto al final del que ya hay?
end;

Gracias otra vez

[[escafandra]]

Creo que es esto lo que quieres hacer con un buffer de memoria:

Código Delphi [-]
var
  Buffer: PByte;
  Texto:  AnsiString;
  S1, S2, R: AnsiString;
begin
  GetMem(Buffer, 64001);   // Reservamos espacio de memoria 
  // asignamos un texo
  Texto:= 'Hola mundo';
  // Pasamos el texto al buffer copiando el bloque de memoria añadiendo el cero final que ya da PAnsiChar
  CopyMemory(buffer, PAnsiChar(Texto), Length(Texto)+1);
  // Pasamos a S1 el texto simplemente asignando con un casting a puntero PAnsiChar 
  S1:= PAnsiChar(Buffer);
  S2:= ' cómo estás?';
  // Ya solo queda sumar cadenas
  R:= S1 + S2;
  // Y mostrarlas de algún modo...
  ShowMessage(R);
  FreeMem(Buffer);        // Liberamos la memoria del buffer
end;

Saludos.

[ElDuc]

Muchas gracias a todos, he estado malito, por eso no he contestado antes.

[Casimiro Noteví]

Empezado por ElDuc

Muchas gracias a todos, he estado malito, por eso no he contestado antes.

Nos alegra de que ya estés mejor