StringGrid使用全书资源-CSDN文库

String使用书

需积分: 11 177 浏览量 2018-12-15 14:37:40 上传评论 2 收藏 29KB DOC 举报

资源推荐

资源详情

资源评论

StringGrid 使用全书( 一)

procedure QuickSort(Grid: TStringGrid; iLo, iHi: Integer);

var

 Lo, Hi : Integer;

 Mid: String ;

begin

 Lo := iLo ;

 Hi := iHi ;

 Mid := Grid.Cells[ACol,(Lo + Hi) div 2];

 repeat

 if Order and not NumOrStr then //按正序、字符排

 begin

 while Grid.Cells[ACol,Lo] < Mid do Inc(Lo);

 while Grid.Cells[ACol,Hi] > Mid do Dec(Hi);

 end ;

 if not Order and not NumOrStr then //按反序、字符排

 begin

 while Grid.Cells[ACol,Lo] > Mid do Inc(Lo);

 while Grid.Cells[ACol,Hi] < Mid do Dec(Hi);

 end;

 if NumOrStr then

 begin

 if Grid.Cells[ACol,Lo] = '' then Grid.Cells[ACol,Lo] := '0' ;

 if Grid.Cells[ACol,Hi] = '' then Grid.Cells[ACol,Hi] := '0' ;

 if Mid = '' then Mid := '0' ;

 if Order then

 begin //按正序、数字排

 while StrToFloat(Grid.Cells[ACol,Lo]) < StrToFloat(Mid) do Inc(Lo);

 while StrToFloat(Grid.Cells[ACol,Hi]) > StrToFloat(Mid) do Dec(Hi);

 end else

 begin //按反序、数字排

 while StrToFloat(Grid.Cells[ACol,Lo]) > StrToFloat(Mid) do Inc(Lo);

 while StrToFloat(Grid.Cells[ACol,Hi]) < StrToFloat(Mid) do Dec(Hi);

 end;

 end ;

 if Lo <= Hi then

 begin

 MoveStringGridData(Grid, Lo, Hi) ;

 Inc(Lo);

 Dec(Hi);

 end;

 until Lo > Hi;

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余2页未读，立即下载

内容反馈

qingshan2018

粉丝: 0
资源: 4

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip