old style delphi records really helpfull to manage serial protocols

by Ivan Revelli
in Delphi, Posts, Programmazione
on July 30, 2020

TMiaStruttura = record
    case integer of
      0 : (content : array[0..19] of char);
      1 : (
        primidue : array[0..1] of char;
        dalduealquattro : array[0..1] of char;
        cognome : array[0..15] of char;
      )
    end;

TMiaStruttura = record

case integer of

0 : (content : array[0..19] of char);

1 : (

primidue : array[0..1] of char;

dalduealquattro : array[0..1] of char;

cognome : array[0..15] of char;

)

end;

procedure TForm7.Button1Click(Sender: TObject);
begin
  a.content := '0123456789ABCDEFGHIL';

  ShowMessage(a.dalduealquattro);

  a.dalduealquattro := 'BB';

  ShowMessage(a.content);


end;

procedure TForm7.Button1Click(Sender: TObject);

begin

a.content := '0123456789ABCDEFGHIL';

ShowMessage(a.dalduealquattro);

a.dalduealquattro := 'BB';

ShowMessage(a.content);

end;

thank’s to my self obviusly

old style delphi records really helpfull to manage serial protocols

old style delphi records really helpfull to manage serial protocols

Ricerca Articolo

Categorie