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