Отобразить строку на определённую структуру |
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
DelphiWorld 6.0