Hola.
Código Delphi
[-]
function QuitarProvincia(s: string): string;
begin
Result := Trim(Copy(s, Pos(')', s) + 1, MaxInt));
end;
Si las lìneas se encontraran en un
TMemo por ejemplo, podrìas hacer:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Memo1.Lines.Count-1 do
Memo1.Lines[i] := QuitarProvincia(Memo1.Lines[i]);
end;
Saludos