Delphi字符串排列顺序 Delphi 排序

Delphi字符串排列顺序

直接写个函数不就得了
function upendStr(Rstr:string):string
var
i:integer
str : string
begin
str := Rstr
//如果字符串长度为奇数，未补 if odd(length(RStr)) then
str := Rstr 3
//
for i:=1 to length(str)div 2 do
result:=result str[I*2] str[i*2-1]
end
procedure TForm1.Button1Click(Sender: TObject)
begin
showmessage(upendStr(abcdefg))
end

Delphi 排序

var a:array[0..3] of Integer
    b:Integer
    i,j:Integer
begin
  a[0]:=StrToInt(Edit1.Text)
  a[1]:=StrToInt(Edit2.Text)
  a[2]:=StrToInt(Edit3.Text)
  a[3]:=StrToInt(Edit4.Text)
  for i := 0 to 2 do
  for j := i 1 to 3 do
  if a[i]  begin
    b:=a[i]
    a[i]:=a[j]
    a[j]:=b
  end
  Label1.Caption:=IntToStr(a[0])
  Label2.Caption:=IntToStr(a[1])
  Label3.Caption:=IntToStr(a[2])
  Label4.Caption:=IntToStr(a[3])
end

DElphi字符串排序

procedure TForm1.Button1Click(Sender: TObject)
var a,b:Integer ss:string
begin
with ListBox2 do begin
a:=0
b:=Items.count-1
while a ss:=Items[a]
Items[a]:=Items[b]
Items[b]:=ss
dec(b)
inc(a)
end
end
end

----回复问题补充
b:array[0..500] of char // char是字节，500个字节，想不明白。
就是想倒一下序嘛，其实，你试一下就知道了，没什么搞笑。

delphi 如何排列Delphi的学习顺序??????

别相信书店里面那种从入门到精通之类的书你看完DELPHI最初的书后,看VC的书或许对你DELPHI提高更有帮助.也可以选择DELPHI一些专题方面的..还有,,最重要的,,别老是看书!

Delphi简单的排序

function DescComText(list:TStringListindex1,index2:Integer):Integer
begin
Result:=-AnsiCompareText(list[index1],list[index2])
end
procedure TForm1.Button1Click(Sender: TObject)
var
list:TStringList
begin list:=TStringList.Create
list.Add(aaa) list.Add(bbb)
list.Add(ccc)
list.CustomSort(Desccomtext)
ShowMessage(list.Text)end

它是一个函数类型的参数，比如定义：
function QckSort(List: TStringList Index1, Index2: Integer): Integer
begin
if List[Index1] > List[Index2] then Result := 1
else if List[Index1] < List[Index2] then Result := -1
else Result := 0
end//表示TStringList的所有项按字母升序排列
调用他：
var
StrList: TStringList
begin
StrList := TStringList.Create
//...
StrList.CustomSort(QckSort)
end

delphi如何对数据表中的数据排序

方法很多哈 1.加入一个ADOQUERY。连接DATASOURCE。修改SQL语句可以达到效果
2..在DBGRID的点击事件中修改。方法这没没有现成了的，这个比较麻烦一点不推荐。
3..这个是我极力推荐的，也是DELPHI的神器。把DBCRID这个控件换了，换成CXGRID这个是一个第三方空间，自己百度一下可以找出很多

delphi编程 文本数字排序

不用那么麻烦，用TStringList就可以排序。
procedure ReadFileAndSorted(const AFileName: string var AResult: TStringList)
begin
  AResult.Clear
  AResult.LoadFromFile(AFileName)
  AResult.Sort
end

procedure TForm1.Button1Click(Sender: TObject)
var
  TSResult: TStringList
begin
  TSResult:= TStringList.Create
  ReadFileAndSorted(d: est.txt, TSResult)
  Memo2.Lines.Clear
  Memo2.Lines.AddStrings(TSResult)
  TSresult.Free
end