文档章节

通过 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
深圳
程序员
私信 提问
基于Lucene查询原理分析Elasticsearch的性能

前言 Elasticsearch是一个很火的分布式搜索系统,提供了非常强大而且易用的查询和分析能力,包括全文索引、模糊查询、多条件组合查询、地理位置查询等等,而且具有一定的分析聚合能力。因为其...

亦征
10/29
0
0
【图解数据结构】 一组动画演示选择排序

前言 由于LeetCode上的算法题很多涉及到一些基础的数据结构,为了更好的理解后续更新的一些复杂题目的动画,推出一个新系列 -----《图解数据结构》,主要使用动画来描述常见的数据结构和算法...

公众号_五分钟学算法_每日更新
12/06
0
0
Python基础教程系列:三、序列

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

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

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

FungLeo
01/23
0
0
[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法

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

xalion
2012/10/23
0
0

没有更多内容

加载失败,请刷新页面

加载更多

正则表达式匹配不包含

^((?!xxx).)*$

安小乐
12分钟前
1
0
python Windows tkinter应用开发3 列出目录的所有文件

在本章中,我们将编写程序来执行此操作。 1)选择文件夹。 2)在UI的标签部分打印该文件夹中的所有文件名(带文件扩展名)。 首先,修改selectFile函数以打开文件夹。主文件如下: from tki...

python测试开发人工智能安全
13分钟前
1
0
使用Laya引擎开发微信小游戏(上)

  使用一个简单的游戏开发示例,由浅入深,介绍了如何用Laya引擎开发微信小游戏。      img      作者:马晓东,腾讯前端高级工程师。      微信小游戏的推出也快一年时间了,...

SEOwhywhy
18分钟前
1
0
react程序开发问题记录

1、webpack.config.dev.js文件的publicpath配置

teamlog
30分钟前
2
0
javascript 值转换为布尔值

任意javascript 的值都可以转换为布尔值。 特别是在 if() 等判断中使用的时候: 下面这些值会被转换为 false undefined , null , 0 , -0 , NaN , "" 空字符串 来自 JavaScript 权威指南 书籍...

之渊
33分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部