delphi - 如何提取子字符串？

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);

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