Delphi中查找记录时如何不区分大小写

有些delphi文字输入输出控件有忽略大小写的属性，就是个布尔型的开关，但多数情况下没有。怎么办呢，我通常是“不是大就是小”原则，避开这个问题的发生。就是在赋值或判断时，在内存中转换为大写再进行处理。如:

B:=getchar();

A:=upcase(B);

if

upcase(B)='D'

then

…

…

文字不会妨碍其他的 *** 作．如果是 那用Word2000就可以运行Word2000，新建一空白Web文档，然后点击视图|工具栏|Web工具箱，就会出现Web工具箱，最后一个图标就是滚动文字框的图标，单击该图标，就会出现滚动文字对话框，在"请在此键入滚动文字"下面空白框内输入你所想好的文字（你输入的文字将最终显示在屏幕上），然后选择滚动文字的滚动方式、背景颜色、滚动方向、滚动次数及滚动速度，经过一番 *** 作之后，你可以在最下面的预览框里很直观地看到你所设置的效果。一切OK后退出滚动文字对话框。再对文字进行格式化（因为Word2000对滚动文字的设置默认为三号仿宋自动颜色），选中插入滚动文字框的当前行，然后对当前行文字的大小、颜色、修饰等进行格式化，滚动文字框内的文字就会跟你所设置的颜色、大小、修饰等一样，立即在页面上显示出来。然后设置页面背景了，单击格式|背景，在背景工具栏里有填充、颜色和水印三种效果，依个人喜爱而进行选择。本人在填充效果里面发现有一项是填充，可以插入自己喜爱的作为背景（这个背景也就是最后直接显示在桌在上的墙纸背景）。完成这一步后就是存盘了（注意文件要存为Web 页），单击文件另存为C盘（假设你的Windows装在C盘下面）WindowsWebwallpaper目录下面，（桌面墙纸存放在这个目录下面）存盘后，退出Word2000。右键单击桌面，点击属性，在背景对话框内，在"选择Html文档或"下面你是不是看到了你刚才所编辑的Html文档的名称，单击它，然后确定。桌面上就会显示出你设置的Html文档的墙纸，看到滚动文字了吧？

把图像加入字符串列表　

上节已介绍如何把对象加入字符串列表 例程把位图对象加入Tabset 的Tabs中

procedure TForm FormCreate(Sender: TObject);varBitmap: TBitMap;beginListbox Items := Screen Fonts;Bitmap := TBitmap Create;Bitmap LoadFromFile( PHONE BMP );Tabset Tabs AddObject( phone Bitmap);Bitmap := TBitmap Create;Bitmap LoadFromFile( PRINTER BMP );Tabset Tabs AddObject( printer Bitmap);end;　 绘制自画项目　

当部件的Style属性是自画式时 Windows不再绘制部件 相反Windows为每个可视项目产生事件 而应用程序必须在事件中绘制项目

在应用程序绘制自画控制之前 Windows产生测量项目事件 这个事件告诉程序项目显示的位置

通常由Windows决定项目显示的大小 但应用程序可以处理这个事件并自己选择显示区域 例如 程序要用位图代替文本显示 则需要把区域设置成位图的大小 测量项目事件的名称随部件的名称不同而不同 对于列表框和组合框 该事件叫OnMeasureItem 对于Tabset 该事件叫OnMeasureTab

测量项目事件有两个重要参数: 项目索引号与项目的大小 这个大小是变化的 后继项目的输出位置由前面项目的大小决定 例如 在自画式列表框中 如果应用程序把第一个项目的高度设置成 个象素点 则第二个项目在第六个象素点开始输出 列表框和组合框中 应用程序只能设置成项目的高度 而项目的宽度就是部件的高度 在Tabset中 tabs的宽度是可变的 而高度则是固定的 自画式网格允许应用程序改变网格单元的高度和宽度

OnMeasureItem的声明如下

ListBox MeasureItem(Control: TwinControl;Index: Integer; var Height: Integer);

例程中响应OnMeasureItem事件的代码如下:

procedure TForm ListBox MeasureItem(Control: inControl; Index: Integer;var Height: Integer);beginwith ListBox Canvas dobeginFont Name := ListBox Items[Index];Height := TextHeight( A );end;end;　procedure TForm TabSetMeasureTab(Sender: TObject; Index: Integer;var TabWidth: Integer);varBitmapWidth: Integer;beginBitmapWidth := TBitmap( TabSet Tabs Objects[Index]) Width;Inc(TabWidth + BitmapWidth);end;

在OnMeasureItem事件发生后 Windows激发一个叫OnDrawItem的事件 这个事件也随部件名称不同而不同 常见的有OnDrawItem OnDrawTab OnDrawCell

OnMeasureItem的声明如下

DrawItem( Control: inControl; Index: integer; Rect: TRect; State: TOwnerDraw);　

其中Control是包含项目的部件引用

Index　是项目的索引号

Rect　 是绘制的矩形

State 是项目的状态 如选中 得到焦点等

在例程的列表框中 所列项目是屏幕支持的各种字体名称 当列表框发生OnDrawItem事件时 程序把输出字体设置成该项目所代表的字体 因而　列表框的项目呈现出不同的字体 其代码如下

lishixinzhi/Article/program/Delphi/201311/24764

;   ——此文章摘自《Delphi开发经验技巧宝典》定价 ￥特价 ￥ 购买>>//track linktech cn/m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

    获取文字中英文单词的个数

    本实例是通过空格 逗号 句号 问号和感叹号来判断字符串中有多少个单词 运行结果如图 所示

//develop csai cn/delphi/images/ jpg >图   获取文字中英文单词的个数

    程序代码如下     procedure TForm Button Click(Sender: TObject);     var      s:String;      i t:Integer;     begin      t:= ;      s:=trim(Edit Text);      for i:= to Length(s) do      begin       if (((Copy(s i )>= a ) and (Copy(s i )<= z )) or ((Copy(s i )>= A )       and (Copy(s i )<= Z ))) then       begin        if (not (((Copy(s i+ )>= a )and(Copy(s i+ )<= z ))or((Copy(s i+ )>= A )        and(Copy(s i+ )<= Z )))) or (Copy(s i+ )=# ) or (Copy(s i+ )= ) or        (Copy(s i+ )= ) or (Copy(s i+ )= ) or (Copy(s i+ )= ! ) then        begin         t := t+ ;        end;       end;      end;      Label Caption := IntToStr(t);     end;

    两个子字符串之间的字符的个数

    本实例是用pos()函数来获取子字符串在字符串中的起始位置 并用后面的子字符的起始位置减去前面子字符串的起始位置 再减去前面子字符串的长度 这样 就得到了字符串中两个子字符串之间的字符的个数 运行结果如图 所示

//develop csai cn/delphi/images/ jpg >图   两个子字符串之间的字符的个数

lishixinzhi/Article/program/Delphi/201311/8464

procedure TForm1Button1Click(Sender: TObject);

var

v:variant;

begin

webbrowser1Navigate('>老大，你就不能登陆后再调用这个过程吗？保持在线并传入此时的>

delphi使得文字随界面缩放， 首先，在Win10的桌面点击鼠标右键，选择“显示设置”

在“显示设置”的界面下方，点击“高级显示设置”

在“高级显示设置”的界面中，点击下方的“文本和其他项目大小的调整的高级选项”

然后，点击“更改项目的大小”下面的“设置自定义缩放级别”

以上就是关于Delphi中查找记录时如何不区分大小写全部的内容，包括:Delphi中查找记录时如何不区分大小写、Delphi 怎么在桌面屏幕上显示文字呢、Delphi字符串列表及应用（四）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！