2010-5-6 18:31
zjy
选择块转大写,可以用这个:
[code]{*******************************************************}
{ }
{ Pascal Script Source File }
{ Run by RemObjects Pascal Script in CnWizards }
{ }
{ Generated by CnPack IDE Wizards }
{ }
{*******************************************************}
program Script3;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ToolsAPI, CnWizUtils;
var
View: IOTAEditView;
begin
View := CnOtaGetTopMostEditView(nil);
if (View <> nil) and (View.GetBlock <> nil) then
begin
View.GetBlock.UpperCase;
end;
end.[/code]