Delphi技巧集五 ,用copy函数从左到右截取字符串

var S: string;

begin

S := '计算机世界';

S := Copy(S, 1, 6); { '计算机' }

end;