Cita:
Empezado por JoseFco
Hola amigos.
Tengo dias tratando de declarar este buffer y me da error de declaracion.
Quien me de una ayudadita a ver que pasa con esta declaracion que no se deja?
Un Saludo.
|
Pues si, no veo donde esté declarado
buffer, incluso no veo donde declaras
HexBufOut que por lo que veo es del mismo tipo
buffer.....
No se, algo así
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
buffer = Array [0..100] of Byte; TForm1 = class(TForm)
Button1: TButton;
private
function writeline(ADDR,RECLEN,RECTYPE:integer;
var buf:buffer): string;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.writeline(ADDR,RECLEN,RECTYPE:integer;
var buf:buffer): string;
var
i:integer;
CHKSUM:byte;
begin
CHKSUM:=0;
result:=':'+inttohex(RECLEN,2)+inttohex(ADDR,4)+inttohex(RECTYPE,2);
CHKSUM:=RECLEN+lo(ADDR)+hi(ADDR);
for i:=0 to RECLEN-1 do begin
result:=result+inttohex(buf[ADDR+i],2);
CHKSUM:=CHKSUM+buf[ADDR+i];
end;
result:=result+inttohex(256-CHKSUM,2);
end;
end.
Salud OS