文档章节

给 Memo 排序的函数

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 187
阅读 10
收藏 0
本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{给 Memo 排序的函数}
procedure SortMemo(const m: TMemo);
begin
  with TStringList.Create do
  begin
    Sorted := True;
    Text := m.Text;
    m.Text := Text;
    Free;
  end;
end;

{测试}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Align := alLeft;
  Memo1.Lines.CommaText := 'zzz,xxx,yyy,aaa,ccc,bbb,333,222,111';
  Button1.Caption := '排序';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SortMemo(Memo1);
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 143
  ClientWidth = 166
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 8
    Width = 73
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 79
    Top = 32
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/07/04/1235809.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
【刷题系列1】前端笔试面试题

第一题 实现一个flatten函数,将一个嵌套多层的数组 array(数组) (嵌套可以是任何层数)转换为只有一层的数组,数组中元素仅基本类型的元素或数组,不存在循环引用的情况。 Ex: 查看答案 第...

青青
2017/09/07
0
0
使用Autofac实现依赖注射及Ioc

Ioc(Inverse of control)已经是叫嚷了很久的技术了,一直没有机会细看,最近因为看源代码的关系,研究了一点,拿出来分享一下。 当前网络上有很多Ioc的框架,比如说微软的企业库就使用Ioc...

技术小美
2017/11/12
0
0
nodejs Async详解之三:集合操作

Async提供了很多针对集合的函数,可以简化我们对集合进行异步操作时的步骤。如下: forEach:对集合中每个元素进行异步操作 map:对集合中的每个元素通过异步操作得到另一个值,得到新的集合...

90后爱国
2015/06/23
0
1
【初探Underscore】再说模版引擎 前言

前言 Underscore 是一个JavaScript实用库,提供了类似Prototype.js (或 Ruby)的一些功能,但是没有扩展任何JavaScript内置对象。 它弥补了部分jQuery没有实现的功能,同时又是Backbone.js必不可...

范大脚脚
2017/11/10
0
0
JavaScript Memoization:让函数也有记忆功能

realazy在blog上给出了一个JavaScript Memoization的实现,Memoization就是函数返回值的缓存,比如一个函数参数与返回结果一一对应的hash列表,wiki上其实也有详细解释,我不细说了,只讨论一...

文艺小青年
2017/04/14
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Linux 命令

#查看系统版本cat /etc/issuecat /etc/redhat-release#yum源库路径/etc/yum.repos.d#更新源yum makecache#解包:tar zxvf FileName.tar#打包:tar czvf FileName...

MrPei
2分钟前
0
0
ZStack——自动化测试系统1:集成测试

测试,对于一个IaaS软件的可靠性、成熟度和可维护性而言,是一个重要的因素.测试在ZStack中是全自动的。这个自动化测试系统包括了三个部分:集成测试,系统测试,基于模块的测试。其中集成测...

ZStack社区版
7分钟前
0
0
springboot 中注入service为空

注意:在Controller中的方法必须用public 参考:spring boot 中使用@Autowired注入服务 服务为空没有注入成功

Skqing
18分钟前
3
0
PyCharm入门教程——IDE概要

PyCharm最新版本下载 JetBrains PyCharm是一种Python IDE,其带有一整套可以帮助用户在使用Python语言开发时提高其效率的工具。此外,该IDE提供了一些高级功能,以用于Django框架下的专业Web...

电池盒
22分钟前
1
0
JVM 知识

一、类加载机制 二、对象的创建的过程 三、JVM内存结构 四、JVM GC 从垃圾回收的角度,由于现在收集器基本都采用分代垃圾收集算法,所以Java堆还可以细分为:新生代和老年代:再细致一点有:...

梦想_与_现实
23分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部