Problem mit Pos/PosEx

[KodeZwerg]

Vielleicht so besser?

Delphi-Quellcode:

program Project13;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

const
  derText = '[[Hamburg]] || 2008 ||data-sort-value="Diplomica"| [[Diplomica Verlag|Verlagsgruppe Diplomica]] || Belletristik, Sachbuch';
// |data-sort-value="" soll raus
var
  sArr: TArray<string>;
  cArr: array[0..0] of Char;
  i: Integer;
  s: string;
begin
  try
    cArr[0] := '|';
    sArr := derText.Split(cArr);
    for i := Low(sArr) to High(sArr) do
      if Pos('data-sort-value', sArr[i], 1) = 0 then
        s := s + sArr[i] + '|';
    s := Copy(s, 1, Length(s) - 1);
    WriteLn(s);
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Ergebnis ist wie aus Post #2