String to Byte array DELPHI By Linkgl
Publicado: 10 Abr 2011, 19:06
Convierte una string en byte array
Código: Seleccionar todo
function ArrayToByte(buffer: String;Lar:Integer): TByteArray;
var
i: integer;
begin
SetLength(Result, Lar-1);
for i := 0 to Lar-1 do
begin
Result[i] := ord(buffer[i+1]);
end;
end;