So I added dialog boxes so anyone can just type in the strings of text that need replacing... PROCEDURE FindRenameClasses; { Modded by Andrew Chau based on Renameclasses by ? Petri Sakkinen 1997 - 2009 } VAR className, newName, cs1, cs2 {cs1 is the trigger or to be replaced, cs2 is the replacement} : STRING; i, j, n : INTEGER; BEGIN cs1:=StrDialog(Concat('Find text string in class name to rename...',Chr(13),Chr(13),'Find:'), 'S_'); IF NOT DidCancel THEN cs2:=StrDialog(Concat('Rename text
    • Like
    1