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

Question

我有一个分隔文本字符串,即:Value1:Value2:Value3:Value4:Value5:Value6

例如,我将如何提取特定值Ie: Label.caption := GetValuefromDelimitedText(2);获取Value2

提前致谢

保罗

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;

希望有所帮助