Ver Mensaje Individual
  #1  
Antiguo 02-03-2004
jbgpina jbgpina is offline
Registrado
 
Registrado: mar 2004
Posts: 5
Reputación: 0
jbgpina Va por buen camino
convertir de 'TCaption' para usar su valor en 'PAnsiChar'

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;


Agradezco vuestra ayuda por adelantado.
Responder Con Cita