Tips (1541)

Tip Bewertung (4):

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;