📄 cd6_1u.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "cd6_1u.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String sort[5]; //为显示方便而用
int s[5],st[5]; //为比较及置换而用
int cnt=0,i,j,k,temp;
int c1,c2,c3,c4,c5,timer=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::einKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift) //输入事件函数
{
if(cnt<5) //设置排序量最大为5
{
if(Key==13||Key==108) //108是数字键上的Enter
{
sort[cnt]=ein->Text; //保存输入值
s[cnt]=StrToInt(ein->Text);
st[cnt]=s[cnt]; //一数组用于执行结果,另一个存储数据
ein->Text="";
cnt++;
switch(cnt) //将输入值显示出来
{
case 1:l1->Caption=sort[0];
break;
case 2:l2->Caption=sort[1];
break;
case 3:l3->Caption=sort[2];
break;
case 4:l4->Caption=sort[3];
break;
case 5:l5->Caption=sort[4];
break;
}
}
}
else
{
sin->Caption=" 请执行排序";
sin->Color=clRed;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
sgout->Cells[0][0]=" 状态/位置";
sgout->Cells[0][1]=" 原始数据";
lbout->Items->Add("
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -