ChatGPT sagt dazu:
Delphi-Quellcode:
function RemoveTextBeforeFirstDelimiter(const Input: string; const Delimiter: Char): string;
var
DelimiterPos: Integer;
begin
// Suche die Position des ersten Delimiters
DelimiterPos := Pos(Delimiter, Input);
// Wenn der Delimiter gefunden wird, schneide alles davor ab
if DelimiterPos > 0 then
Result := Trim(Copy(Input, DelimiterPos + 1, Length(Input) - DelimiterPos))
else
// Wenn kein Delimiter gefunden wird, gib den ursprünglichen String zurück
Result := Input;
end;
Und zumindest auf den ersten Blick passt das auch, zumindest wenn Delimiter ein Char ist und kein String mit mehreren Zeichen. Wichtig: Ob das Trim korrekt ist, hängt davon ab, ob Du Leerzeichen am Anfang/Ende beibehalten willst oder nicht. Das geht aus Deiner Aufgabenstellung nicht hervor.