String in einer Stringliste an Trennzeichen zerlegen

[Uwe Raabe]

Wir wäre es denn hiermit:

Delphi-Quellcode:

function ExtractCallerID(const AFileName: string): string;
var
  lst: TStringList;
begin
  lst := TStringList.Create;
  try
    lst.LoadFromFile(AFileName);
    lst.NameValueSeparator := ':';
    Result := Trim(lst.Values['CallerIDNum']);
  finally
    lst.Free;
  end;
end;