String zwische zwei Zeichen lesen

[StefanDP]

Probier es mal mit Copy Pos bzw. PosEx

wie ist der Text im Memo jetzt genau aufgebaut?
"$Heute$,$Morgen$" ??
2 verschiedene Zeichen würde den Vorgang erheblich erleichtern!
"$Heute#,$Morgen#"

ansonsten mal eine Idee:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  ergebnis: String;
  n: Integer;
begin
  s := '$Heute$,$Morgen$,$Gähn$';
  n := 1;
  while true do
  begin
    ergebnis := Copy(s,PosEx('$',s,n)+1,PosEx('$',s,n + 1) - PosEx('$',s,n) - 1);
    if ergebnis = '' then exit;
    ShowMessage(ergebnis);
    n := PosEx('$',s,PosEx('$',s,n)+1) + 2;
  end;
end;