[[egostar]]

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; //Declaras el tipo buffer, caracter, byte o lo que se necesite....
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
      function writeline(ADDR,RECLEN,RECTYPE:integer;
                         var buf:buffer): string;
  public
    { Public declarations }
  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