Moin,
Naja, da würde mir nur die Brecheisenmethode einfallen, sprich, Pos und Delete/Copy. Wenn keine Klammer vorhanden ist, wird auch nichts gelöscht.
Kleiner (vielleicht fehlerbehafteter, bin gerade nicht am Produktiv-System, also kein Delphi) Code zur Veranschaulichung bzw. ein Lösungsvorschlag:
Delphi-Quellcode:
function DeleteBracket(lString: string): string;
var
I: Integer;
begin
I := Pos('(', lString);
if I <> 0 then
begin
Result := Copy(1, I - 1, lString); // Bei der genauen Sysntax und dem -1 bin ich nicht ganz sicher, einfach testen!
end
else
begin
Result := lString;
end;
end;
Grüße,
Max
Edit: Kleine Code Anpassung (der IF-Teil)