vor dem ersten Delimiter alles löschen

[Rollo62]

Delphi-Quellcode:

program RemoveBeforeFirstDelimiter;

uses
  SysUtils;

var
  InputString: string;
  Delimiter: Char;
  Position: Integer;
begin
  // Ursprünglicher String
  InputString := 'heute ist ein schöner tag 123 / das wetter ist toll / gewitter / regen / sonne 435/';
  Delimiter := '/';

  // Position des ersten Delimiters suchen
  Position := Pos(Delimiter, InputString);

  if Position > 0 then
    // Alles nach dem ersten Delimiter behalten (einschließlich des Delimiters selbst)
    InputString := Trim(Copy(InputString, Position + 1, Length(InputString)));

  // Ausgabe des Ergebnisses
  Writeln(InputString);
end.