Отобразить строку на определённую структуру

Previous  Top  Next

    
 

 

Code:

type

TEmployee = record

   cNo: array [0..3] of Char;

   cName: array [0..7] of Char;

end;

PEmployee = ^TEmployee;

 

procedure ParseData;

const

sData = '0001Mosquito';

var

sNo, sName: string;

begin

with PEmployee(Pointer((@sData)^))^ do

begin

   sNo   := cNo;      // sNo = '0001'

   sName := cName;    // sName = 'Mosquito'

end

end;

 

 

©Drkb::00780

http://delphiworld.narod.ru/

DelphiWorld 6.0