文档章节

通过 TStringList 给系列数字倒排序 - 回复 lancerning 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 175
阅读 3
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/04/07/1134178.html#1141173
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

{写一个按数字大小倒排序的函数}
function DescCompareInt(List: TStringList; I1, I2: Integer): Integer;
begin
  I1 := StrToIntDef(List[I1], 0);
  I2 := StrToIntDef(List[I2], 0);
  Result := I2 - I1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create;
  List.CommaText := '5,21,4,65,87,1,3';
  List.CustomSort(DescCompareInt); {排序时调用那个函数}
  ShowMessage(List.Text);          {87 65 21 5 4 3 1}
  List.Free;
end;

end.

 
 
 
 
 

 

 

  
另外, 你问的再对应其他数据的问题, 可以利用 TStringList 的 Names 和 ValueFromIndex 属性解决, 也可以在提取是使用 case 语句.

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Python基础教程系列:三、序列

接下来,我们说一下Python的序列类型,他的成员都是有序排列的,可以通过下标偏移量访问它的成员。第一感觉就是像你熟悉的数组。在Python中序列主要包括这些:字符串(普通的字符串和unicode...

东方神剑
2015/01/22
0
0
Python3 初学实践案例(13)构建不重复特殊数组

Python3 初学实践案例(13)构建不重复特殊数组 前言 今天遇到一个问题,很难用一句话描述。所以,我用一段文字来描述这个问题。 输入一个数字,比如 , 得到一个这样的数组: 里面的数字可以...

FungLeo
01/23
0
0
算法知识梳理(6) - 数组第三部分

面试算法代码知识梳理系列 算法知识梳理(1) - 排序算法 算法知识梳理(2) - 字符串算法第一部分 算法知识梳理(3) - 字符串算法第二部分 算法知识梳理(4) - 数组第一部分 算法知识梳理(5) - 数...

泽毛
2017/12/12
0
0
[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法

TStringList不是线程安全的,当我们在线程用到他是,要做保护。方法有两种,一种是用delphi自带的Critical,另外一种就是kbmMW为我们提供的TkbmMWLock类。 现在我们看看如何用TkbmMWLock为T...

xalion
2012/10/23
0
0
像这样的集合该怎么排序呀?

集合:[(212,1,<>), (346,1,<>), (359,2,<>), (379,3,<>), (380,1,<>), (387,1,<>), (402,1,<>), (402,1,<>)]。 请问各位大牛怎么对这个集合进行排序呢(每个元素的第二个数字代表频率就是第......

浪里小白龙java终结者
2015/05/27
28
0

没有更多内容

加载失败,请刷新页面

加载更多

74.expect脚本同步文件以及指定host同步文件 构建分发系统文件和命令

20.31 expect脚本同步文件: 在expect脚本中去实现在一台机器上把文件同步到另外一台机器上去。核心命令用的是rsync ~1.自动同步文件 #!/usr/bin/expect set passwd "123456" spawn rsync -a...

王鑫linux
20分钟前
0
0
TypeScript项目引用(project references)

转发 TypeScript项目引用(project references) TypeScript新特性之项目引用(project references) 项目引用是TypeScript 3.0中的一项新功能,允许您将TypeScript程序构建为更小的部分。 通过这...

durban
24分钟前
0
0
爬虫入门

导读 网络爬虫(Web crawler),是一种按照一定的规则,自动地抓取万维网信息的程序或者脚本,它们被广泛用于互联网搜索引擎或其他类似网站,可以自动采集所有其能够访问到的页面内容,以获取...

问题终结者
25分钟前
0
0
ppwjs之bootstrap文字排版:无序列表项不换行

<!DOCTYPT html><html><head><meta http-equiv="content-type" content="text/html; charset=utf-8" /><title>ppwjs欢迎您</title><link rel="icon" href="/favicon.ico" ......

ppwjs
31分钟前
0
0
SpringBoot 学习一

本文将从以下几个方面介绍: 前言 HelloWorld 读取配置文件 例子(CURD) 前言 Spring Boot是由Pivotal团队提供的全新框架,其设计目的是用来简化新Spring应用的初始搭建以及开发过程。该框架...

tsmyk0715
31分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部