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

Новый фильм от создателей Матрицы : Romeo Must Die
Генеральный спонсор : Microsoft

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 155 • TDictionary Custom Sort 6 216 • Fast Watermark Sources 6 017 • 3D Designer 8 913 • Sik Screen Capture 6 352 • Patch Maker 6 770 • Айболит (remote control) 6 752 • ListBox Drag & Drop 5 628 • Доска для игры Реверси 96 192 • Графические эффекты 6 973 • Рисование по маске 6 242 • Перетаскивание изображений 5 143 • Canvas Drawing 5 512 • Рисование Луны 5 213 • Поворот изображения 4 765 • Рисование стержней 3 367 • Paint on Shape 2 620 • Генератор кроссвордов 3 510 • Головоломка Paletto 2 799 • Теорема Монжа об окружностях 3 612 • Пазл Numbrix 2 365 • Заборы и коммивояжеры 3 046 • Игра HIP 2 001 • Игра Go (Го) 1 926 • Симулятор лифта 2 284 • Программа укладки плитки 1 987 • Генератор лабиринта 2 441 • Проверка числового ввода 2 123 • HEX View 2 459 • Физический маятник 2 079