如何提取子字符串？

Question

我在delphi中有功能

function GetHardDiskSerial(const DriveLetter: Char): string;
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
    VolumeFlags, nil, 0);
  Result := Format('%8.8X',
    [VolumeSerialNumber])
end;

---

如何将输出字符取2到4.

示例:7121334

• 结果必须是:121

cSerial.text = ......................................

Answer 1

您可以使用该Copy函数从字符串中提取字符序列:

cSerial.Text := Copy(Result, 2, 3);

请注意,第三个参数是要提取的字符数,而不是最后一个字符的索引.