Suche Hilfe für Stringverarbeitung mit Copy und Pos ...

[marabu]

Guten Morgen,

hier noch eine Funktion, welche auch mit maskierten Apostrophen fertig wird:

Delphi-Quellcode:

function ExtractValue(const s: string; index: Integer): string;
const
  PREFIX = '(';
  SUFFIX = ')';
  QUOTE  = '''';
var
  iStart, iLength: Integer;
begin
  with {Classes.}TStringList.Create do
  begin
    iStart := Succ(Pos(PREFIX, s));
    iLength := Pos(SUFFIX, s) - iStart;
    CommaText := Copy(s, iStart, iLength);
    if index < Count
      then Result := {SysUtils.}AnsiDequotedStr(Strings[index], QUOTE)
      else Result := '';
    Free;
  end;
end;

Grüße vom marabu