...Map a string to a specific record?

Author: Mosquito

Category: Strings

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
;

 

printed from
www.swissdelphicenter.ch
developers knowledge base