string - 如何从分隔文本中获取特定字段

Question

我有一串分隔文本，即:
值 1:值 2:值 3:值 4:值 5:值 6

例如，我将如何提取特定值，即:Label.caption := GetValuefromDelimitedText(2);获得值(value)2

提前致谢

保罗

Answer 1

类似的东西 - 如果你喜欢紧凑的代码(但不如 Davids 的性能):

function GetValueFromDelimitedText(const s: string; Separator: char; Index: Integer): string;
var sl : TStringList;
begin
     Result := '';
     sl := TStringList.Create;
     try
        sl.Delimiter := Separator;
        sl.DelimitedText := s;
        if sl.Count > index then 
           Result := sl[index]; 
     finally
            sl.Free;
     end;
end;

希望有帮助