jbgpina
02-03-2004, 13:05:32
Ante todo disculparme por si lo que expongo a continuacion es una supina estupidez, pero solo proguntando se aprende.
Vengo del mundo Clipper y alli el manejo de variables no es tan estrixto como en Delphi.
Mi problema es el siguiente.:
procedure TForm1.cVisorHexChange(Sender: TObject);
var i:integer;
Var Buffer:array[0..15] of char;
begin
{ esta es la funcion que pretendo usar.:
function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer
Si entiendo bien
Text := a la cadena de caracteres a convertir
Buffer := Puntero al inicio del array donde queremos salvar el resultado
BufSize := Tamaño del Buffer
El problema viene al usar form1.cVisorHex.Text que es la cadena que contiene el valor a convertir pero que es de tipo TCaption y me da el siguiente error .:
[Error] Fecha.pas(202): Incompatible types: 'TCaption' and 'PAnsiChar'
La pregunta es.: como paso de un tipo a otro, con que funcion?????
}
i := HexToBin( form1.cVisorHex.Text, Buffer; Sizeof( Buffer ) )
end;
Vengo del mundo Clipper y alli el manejo de variables no es tan estrixto como en Delphi.
Mi problema es el siguiente.:
procedure TForm1.cVisorHexChange(Sender: TObject);
var i:integer;
Var Buffer:array[0..15] of char;
begin
{ esta es la funcion que pretendo usar.:
function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer
Si entiendo bien
Text := a la cadena de caracteres a convertir
Buffer := Puntero al inicio del array donde queremos salvar el resultado
BufSize := Tamaño del Buffer
El problema viene al usar form1.cVisorHex.Text que es la cadena que contiene el valor a convertir pero que es de tipo TCaption y me da el siguiente error .:
[Error] Fecha.pas(202): Incompatible types: 'TCaption' and 'PAnsiChar'
La pregunta es.: como paso de un tipo a otro, con que funcion?????
}
i := HexToBin( form1.cVisorHex.Text, Buffer; Sizeof( Buffer ) )
end;