Código Delphi [-] // CAST Var pantalla : String; longitud : integer;Begin captura_pantalla(1,Pchar(pantalla),longitud,0); ........// Mover datos Var pantalla : Pchar; Buffer : Array [0..???] Of char; longitud : integer; s : String;Begin pantalla := @Buffer; captura_pantalla(1,pantalla,longitud,0); Move( buffer , s , longitud ); SetLength(s, longitud ); // ó SetLength(s, longitud ); s:=buffer; ........
// CAST Var pantalla : String; longitud : integer;Begin captura_pantalla(1,Pchar(pantalla),longitud,0); ........// Mover datos Var pantalla : Pchar; Buffer : Array [0..???] Of char; longitud : integer; s : String;Begin pantalla := @Buffer; captura_pantalla(1,pantalla,longitud,0); Move( buffer , s , longitud ); SetLength(s, longitud ); // ó SetLength(s, longitud ); s:=buffer; ........