delphi - 如何在某个字符处拆分字符串？

Question

如何将一行文本(例如 Hello there*3 )拆分为一个数组？ * 之前的所有内容需要添加到第一个元素和 * 之后的所有内容需要添加到第二个。我确信这是可能的。我需要稍后再记忆一下，第一项和第二项必须相互关联

我正在使用德尔福 7。

Answer 1

type
  TStringPair = array[0..1] of string;

function SplitStrAtAmpersand(const Str: string): TStringPair;
var
  p: integer;
begin
  p := Pos('&', Str);
  if p = 0 then
    p := MaxInt - 1;      
  result[0] := Copy(Str, 1, p - 1);
  result[1] := Copy(Str, p + 1);
end;

或者，如果你不喜欢魔法，

function SplitStrAtAmpersand(const Str: string): TStringPair;
var
  p: integer;
begin
  p := Pos('&', Str);
  if p > 0 then
  begin
    result[0] := Copy(Str, 1, p - 1);
    result[1] := Copy(Str, p + 1);
  end
  else
  begin
    result[0] := Str;
    result[1] := '';
  end;
end;

如果您出于某种完全奇怪且有点奇怪的原因需要一个过程而不是一个函数，那么请执行

procedure SplitStrAtAmpersand(const Str: string; out StringPair: TStringPair);
var
  p: integer;
begin
  p := Pos('&', Str);
  if p > 0 then
  begin
    StringPair[0] := Copy(Str, 1, p - 1);
    StringPair[1] := Copy(Str, p + 1);
  end
  else
  begin
    StringPair[0] := Str;
    StringPair[1] := '';
  end;
end;