Ver Mensaje Individual
  #1  
Antiguo 21-06-2007
Avatar de walito
walito walito is offline
Miembro
 
Registrado: jun 2005
Posts: 121
Reputación: 21
walito Va por buen camino
Problemas con lazarus

Buenas, les cuento el inconveniente que estoy teniendo para ver si alguno le paso alguna vez.

Resulta que el siguiente codigo anda en delphi pero no en lazarus:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  array1: array of byte;
  txt: string;
begin
    SetLength(array1, 20);
    ZeroMemory(@array1[0], high(array1));

    txt := 'hola mundo';

    StrPLCopy(@array1[0], txt, High(array1));
end;

este ejemplo lo encontre en el foro y en delphi anda bien, ahora en lazarus me da la impresion que el SetLength no funciona ya que hace cualquier cosa, por empezar no me setea a la longitud que yo quiero y el ZeroMemory no me pone en #0 los valores.

Que puede ser? ya no se que mas buscar, en la pagina de la documentacion del freepascal sale que se usa asi pero ami no me anda.

Algun TIP por ahi?

Gracias
Responder Con Cita