delphi中的StringGrid单元格中我要选择如图所示，光标切换方向，选择横向的时候，则光标是横着走，选择纵向的时候这是竖着走请问各位大神要如何实现，我只要实现光标横向纵向走即可

delphi StringGrid某一列字体黑色加粗？ 如下图，让‘金额’列字体显示黑色加粗 

![CSDN移动问答][1]excel导入stringgrid过程： procedure TForm1.btn1Click(Sender: TObject); var ExcelApp,sheet:Variant; ExcelRowCount,ExcelcolCount,i,j,m,n,k:Integer; str,str1:string; wbk:OleVariant; EclApp, WorkBook : Variant; begin if dlgOpen1.Execute then begin try EclApp := CreateOleObject ('Excel.Application'); WorkBook := CreateOleObject ('Excel.Sheet'); except ShowMessage ('您的计算机上没有 Microsoft Excel!'); Exit; end; ExcelApp:=CreateOleObject ('Excel.Application'); //建立Excel对象 WBK := ExcelApp.WorkBooks.Open(dlgopen1.FileName); //打开指定文件 sheet := ExcelApp.WorkSheets[1]; ExcelApp.Visible := False; //不显示Excel ExcelRowCount := ExcelApp.WorkSheets[1].UsedRange.Rows.Count; //行数 ExcelColCount := ExcelApp.WorkSheets[1].UsedRange.Columns.Count; //列数 // showmessage(inttostr(ExcelColCount)); strngrd1.RowCount:= ExcelRowCount+1; strngrd1.ColCount:=ExcelcolCount+1; with strngrd1 do begin for n:=0 to ExcelcolCount -1 do begin if n<=ExcelcolCount then begin Cells[n,0]:=IntToStr(n+1); end; end; for k:=0 to ExcelRowCount do begin if k<=ExcelRowCount then begin Cells[0,k]:=IntToStr(k+1); end; end; end; pb1.Visible:=True; pb1.Max:=ExcelRowCount* ExcelcolCount; m:=0; for i := 1 to ExcelRowCount do begin for j := 1 to ExcelColCount do begin Application.ProcessMessages; str := sheet.cells[i,j]; if LeftStr(Trim(sheet.cells[i,j]),1)='.' then begin str1:='0'+str; strngrd1.Cells[j,i] :=FormatDateTime('hh:mm:ss',FloatToDateTime(StrToFloat(Trim(str1))));;//这里做了转换 ; ; end else begin strngrd1.Cells[j,i] := str; end; inc(m); end; pb1.Position:=m; end; WBK.Close(SaveChanges := True); ShowMessage('表格导入完成'); 导入excel表，时间栏结果： 23：45：23 9.8923611111111E-02 请各位大仙帮助解决为谢！

问题描述 1.我在mainform的FormMouseWheel的事件里边写了相应鼠标滚轮的事件。然后刚进系统，鼠标滚动，滚动条也能正常滚动。 procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ・・・ if WheelDelta < 0 then sbxts200001.perform(WM_VSCROLL, SB_LINEDOWN, 0) else sbxts200001.perform(WM_VSCROLL, SB_LINEUP, 0) ・・・ 2.但进入stringgrid编辑东西后，鼠标滚动，貌似是响应了stringgrid的滚动条，之后就无法让scrollbox相应鼠标滚动了。 3.好像问题点在于： stringgrid编辑之前，鼠标针对的对象是form stringgrid编辑之后，鼠标滚动的对象就变成了stringgrid了。 但 我在stringgrid的onexit事件中写了Form1.SetFocus; 结果还是不对 4.问下各位大侠，有什么办法，在编译stringgrid之后，重新让scrollbox相应鼠标滚动呢？？

在Delphi7编程时，用了Advstringgrid控件，在StringGrid2GetEditorType事件中，给第3列增加了控件 if ACol = 3 then begin aEditor := edEditBtn; end; 我的想法是：即可以通过按钮调取数据列表，然后选择数据，也可以在输入数据后，系统自动判断输入数据的合合法性，如果合法则通过，不合法则提示不合法，并清空刚才输入数据。 我在StringGrid2SetEditText事件中，写入如下语句，但是不生效，刚才输入的数据还在，我现在就想怎么可以把数据清空。 stringgrid2.cells[3,ARow]:=''; stringgrid2.Refresh; 全部的代码是 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, BaseGrid, AdvGrid; type TForm1 = class(TForm) StringGrid2: TAdvStringGrid; procedure StringGrid2GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); procedure StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.StringGrid2GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); begin if ACol = 3 then begin aEditor := edEditBtn; end; end; procedure TForm1.StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin stringgrid2.cells[3,ARow]:='bbbbb'; stringgrid2.Refresh; end; end.

使用AdvStringGrid控件，怎么可以实现某列只能输入数字，不能输入字母和符号。

C++ Builder6 子线程向一个StringGrid写入数据时无法再点击Form上的按钮

原来数据库是用sql sever，下面的语句能正确查询出来相关记录。 adoquery4.close; adoquery4.SQL.Clear; adoquery4.SQL.Add('select 学号,姓名, sum(次数) as 剩余课时数 from '); adoquery4.SQL.Add('(select 学号,姓名, 总课时数 as 次数 from incomingInfo where 费用是否已上完=:0 and 学号 in (select 学号 from studentInfo where 是否在上课=:1) union all '); adoquery4.SQL.Add('select 学号,姓名,-1*count(*) as 次数 from classes where 是否支付费用=:0 and 学号 in (select 学号 from studentInfo where 是否在上课=:1) group by 学号,姓名)'); adoquery4.SQL.Add('group by 学号,姓名 having sum(次数) <=:3'); 换成excel数据库后，上面的语句查询不到任何数据，请问怎么修改啊？

我要实现的功能很简单，就是将Memo中的文本写入word中，求大神解答，最好直接上代码，在线等啊，这个弄了好几天咧，

c++builder设计窗体时，用了个多页窗体PageControl，在PageControl中加了个Stringgrid1,我需要在stringgrid1的第二列加上combobox，但是怎么设置坐标运行结果都错，我是拿stringgrid1的屏幕坐标减去窗体的屏幕坐标在加上单元格相对于stringgrid1的位置，但是运行的位置总是不对，拜托各位大神帮个忙，我这一直弄不出来，下面工作没法继续！刚注册的账号，只有5个c币 ``` z=new TComboBox*[StringGrid1->RowCount-1]; for(int i=0;i< StringGrid1->RowCount-1;i++) { TRect rect = StringGrid1->CellRect(1, i+1);//CellRect：返回第二列单元格的Rect对象，相对于stringgrid的坐标 z[i]=new TComboBox(this->StringGrid1); // int X; int Y; TPoint *pt= new TPoint; TPoint *pt1= new TPoint; TPoint *pt2= new TPoint; pt2->x=FunctionDefine->Left; //窗体的屏幕坐标 pt2->y=FunctionDefine->Top; //Edit7->Text= pt2->x; //Edit8->Text= pt2->y; //Edit1->Text=StringGrid1->Left; //获得客户区坐标 //Edit2->Text=StringGrid1->Top; pt->x=StringGrid1->Left; pt->y=StringGrid1->Top; *pt1=ClientToScreen(pt);//stringgrid的屏幕坐标 // *pt1=ClientToScreen(hwnd,*pt);//stringgrid1的屏幕坐标 X=pt1->x-pt2->x; Y=pt1->y-pt2->y; z[i]->SetBounds(rect.Left+1+X, rect.Top+1+Y, rect.Width()+1, rect.Height()+1) ; z[i]->Parent=this; z[i]->AddItem("布尔",this); z[i]->AddItem("模拟",this); z[i]->ItemIndex=0; z[i]->Show(); } ``` 图片说明](https://img-ask.csdn.net/upload/201503/25/1427253327_955820.jpg)

在断点通过Watch,Evaluate/Modify窗口看StringGrid1->Cells[0][1]或StringGrid1->ColWidths[0]，查看结果显示为： Undefined symbol '_fastcall Grids::TStringGrid::GetCells(int,int)' 但同时看StringGrid1->Name等直接属性值却是可以的 试过重建工程，逐步加入UNIT，开始可以看了，但到最后突然就不行了，好像不是某一个UNIT的关系。

#include<stdio.h> #include<string.h> void StringGrid(int width,int height,const char* s) { int i,k; char buf[1000]; strcpy(buf,s); if(strlen(s)>width-2)buf[width-2]=0; printf("+"); for(i=0;i<width-2;i++)printf("-"); printf("+\n"); for(k=1;k<(height-1)/2;k++){ printf("|"); for(i=0;i<width-2;i++) printf(" "); printf("|\n"); } printf("|"); printf("%*s%s%*s",(width-strlen(s)-2)/2," ",s,(width-strlen(s)-2)/2," "); printf("|\n"); for(k=(height-1)/2+1;k<height-1;k++){ printf("|"); for(i=0;i<width-2;i++)printf(" "); printf("|\n"); } printf("+"); for(i=0;i<width-2;i++) printf("-"); printf("+\n"); } int main(){ StringGrid(20,6,"abcd1234"); return 0; }

C++builder控件TStringGrid 如何实现在FixedCols和FixedRows为0的时候实现 goRowSizing,goColSizing这两个属性类似的功能

 为什么总是报pr未定义，该怎么解决，我是菜鸟，望大神指点迷津

<div class="post-text" itemprop="text"> <p>I am trying to learn Go, and I decided to use Project Euler to help me. I have previously <a href="http://giodamelio.github.io/projectEuler/" rel="nofollow">solved some of the problems in Javascript</a>. I am trying to port #8 to Go.</p> <p>Here it is in Javascript</p> <pre><code>var n = "7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450"; // Split our input into an array n = n.split(""); // Loop through every 13 length chuck multiplying them. Keep track of the largest var largest = 0; for (var i = 0; i &lt; (n.length - 12); i++) { var b = n.slice(i, i + 13); var product = b.reduce(function(prev, current) { return prev * Number(current); }, 1); if (product &gt; largest) { largest = product; } } console.log(largest); </code></pre> <p>And here is my port in Go</p> <pre><code>import ( "fmt" "strconv" "strings" ) var data string = "7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450" func main() { // Get an array of ints var grid []int var stringGrid []string = strings.Split(data, "") for i := 0; i &lt; 1000; i++ { cell, _ := strconv.Atoi(stringGrid[i]) grid = append(grid, cell) } // Find the largest one largest := 0 for i := 0; i &lt; len(grid)-12; i++ { a := grid[i : i+13] total := 1 for b := 0; b &lt; len(a); b++ { total *= a[b] } if total &gt; largest { largest = total } } fmt.Println(largest) } </code></pre> <p>I can't find out what is wrong, if I add a bunch of prints to both of them, the spit out the same sequences of numbers, but the Go one doesn't seem to be doing the multiplication right?!? I double checked by hand. There must be some small thing I am missing?</p> </div>

今年，我也32了 ，为了不给大家误导，咨询了猎头、圈内好友，以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助，记得帮我点赞哦。 目录： 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时，拿着傲人的工资，想着好好干，以为我们的人生是这样的： 等真到了那一天，你会发现，你的人生很可能是这样的： ...

程序员在一个周末的时间，得了重病，差点当场去世，还好及时挽救回来了。

互联网公司工作，很难避免不和黑客们打交道，我呆过的两家互联网公司，几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口，有的是寻找线上服务器可能存在的漏洞，大部分都...

“亚马逊丛林里的蝴蝶扇动几下翅膀就可能引起两周后美国德州的一次飓风……” 这句人人皆知的话最初用来描述非线性系统中微小参数的变化所引起的系统极大变化。 而在更长的时间尺度内，我们所生活的这个世界就是这样一个异常复杂的非线性系统…… 水泥、穹顶、透视——关于时间与技艺的蝴蝶效应 公元前3000年，古埃及人将尼罗河中挖出的泥浆与纳特龙盐湖中的矿物盐混合，再掺入煅烧石灰石制成的石灰，由此得来了人...

最近有个老铁，告诉我说，上班一个月，后悔当初着急入职现在公司了。他之前在美图做手机研发，今年美图那边今年也有一波组织优化调整，他是其中一个，在协商离职后，当时捉急找工作上班，因为有房贷供着，不能没有收入来源。所以匆忙选了一家公司，实际上是一个大型外包公司，主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错，所以就立马入职去上班了。但是后面入职后，发现薪酬待遇这块并不是HR所说那样，那个HR自...

昨天看到一档综艺节目，讨论了两个话题：（1）中国学生的数学成绩，平均下来看，会比国外好？为什么？（2）男生的数学成绩，平均下来看，会比女生好？为什么？同时，我又联想到了一个技术圈经常讨...

提到“程序员”，多数人脑海里首先想到的大约是：为人木讷、薪水超高、工作枯燥…… 然而，当离开工作岗位，撕去层层标签，脱下“程序员”这身外套，有的人生动又有趣，马上展现出了完全不同的A/B面人生！ 不论是简单的爱好，还是正经的副业，他们都干得同样出色。偶尔，还能和程序员的特质结合，产生奇妙的“化学反应”。 @Charlotte：平日素颜示人，周末美妆博主 大家都以为程序媛也个个不修边幅，但我们也许...

有个好朋友ZS，是技术总监，昨天问我：“有一个老下属，跟了我很多年，做事勤勤恳恳，主动性也很好。但随着公司的发展，他的进步速度，跟不上团队的步伐了，有点...

私下里，有不少读者问我：“二哥，如何才能写出一份专业的技术简历呢？我总感觉自己写的简历太烂了，所以投了无数份，都石沉大海了。”说实话，我自己好多年没有写过简历了，但我认识的一个同行，他在阿里，给我说了一些他当年写简历的方法论，我感觉太牛逼了，实在是忍不住，就分享了出来，希望能够帮助到你。 01、简历的本质 作为简历的撰写者，你必须要搞清楚一点，简历的本质是什么，它就是为了来销售你的价值主张的。往深...

今天给你们讲述一个外包程序员的幸福生活。男主是Z哥，不是在外包公司上班的那种，是一名自由职业者，接外包项目自己干。接下来讲的都是真人真事。 先给大家介绍一下男主，Z哥，老程序员，是我十多年前的老同事，技术大牛，当过CTO，也创过业。因为我俩都爱好喝酒、踢球，再加上住的距离不算远，所以一直也断断续续的联系着，我对Z哥的状况也有大概了解。 Z哥几年前创业失败，后来他开始干起了外包，利用自己的技术能...

本文介绍一些C++的两个新特性，它们虽然微小，但对你的编程十分重要 一、Template表达式内的空格 C++11标准之前建议在“在两个template表达式的闭符之间放一个空格”的要求已经过时了 例如： vector&lt;list&lt;int&gt; &gt;; //C++11之前 vector&lt;list&lt;int&gt;&gt;; //C++11 二、nullptr ...

场景 日常开发，if-else语句写的不少吧？？当逻辑分支非常多的时候，if-else套了一层又一层，虽然业务功能倒是实现了，但是看起来是真的很不优雅，尤其是对于我这种有强迫症的程序"猿"，看到这么多if-else，脑袋瓜子就嗡嗡的，总想着解锁新姿势：干掉过多的if-else！！！本文将介绍三板斧手段： 优先判断条件，条件不满足的，逻辑及时中断返回； 采用策略模式+工厂模式； 结合注解，锦...

大家现在应该都对Springboot很熟悉，但是你对他的启动原理了解吗？

有小伙伴问松哥这个问题，他在上海某公司，在离职了几个月后，前公司的领导联系到他，希望他能够返聘回去，他很纠结要不要回去？ 俗话说好马不吃回头草，但是这个小伙伴既然感到纠结了，我觉得至少说明了两个问题：1.曾经的公司还不错；2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说，松哥之前也有过类似的经历，今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点，就是离职了也没必要和老东家弄的苦...

不知道是不是只有我这样子，还是你们也有过类似的经历。 上学的时候总有很多光辉历史，学年名列前茅，或者单科目大佬，但是虽然慢慢地长大了，你开始懈怠了，开始废掉了。。。 什么？你说不知道具体的情况是怎么样的？ 我来告诉你： 你常常潜意识里或者心理觉得，自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间，还有无限的可能，自己还能逆风翻盘，只不是自己还没开始罢了，自己以后肯定会变得特别厉害...

二哥，有个事想询问下您的意见，您觉得应届生值得去外包吗？公司虽然挺大的，中xx，但待遇感觉挺低，马上要报到，挺纠结的。

当HR压你价，说你只值7K时，你可以流畅地回答，记住，是流畅，不能犹豫。 礼貌地说：“7K是吗？了解了。嗯~其实我对贵司的面试官印象很好。只不过，现在我的手头上已经有一份11K的offer。来面试，主要也是自己对贵司挺有兴趣的，所以过来看看……”（未完） 这段话主要是陪HR互诈的同时，从公司兴趣，公司职员印象上，都给予对方正面的肯定，既能提升HR的好感度，又能让谈判气氛融洽，为后面的发挥留足空间。...

HashMap底层实现原理，红黑树，B+树，B树的结构原理 Spring的AOP和IOC是什么？它们常见的使用场景有哪些？Spring事务，事务的属性，传播行为，数据库隔离级别 Spring和SpringMVC，MyBatis以及SpringBoot的注解分别有哪些？SpringMVC的工作原理，SpringBoot框架的优点，MyBatis框架的优点 SpringCould组件有哪些，他们...

面试阿里p7被问到的问题(当时我只知道第一个)：@Conditional是做什么的?@Conditional多个条件是什么逻辑关系？条件判断在什么时候执...

最近面试了一个31岁8年经验的程序猿，让我有点感慨，大龄程序猿该何去何从。

二本的读者，在老东家不断学习，最后逆袭

说实话，自己的算法，我一个不会，太难了吧

已经连续五年参加大厂校招、社招的技术面试工作，简历看的不下于万份 这篇文章会用实例告诉你，什么是差的程序员简历！ 疫情快要结束了，各个公司也都开始春招了，作为即将红遍大江南北的新晋UP主，那当然要为小伙伴们做点事（手动狗头）。 就在公众号里公开征简历，义务帮大家看，并一一点评。《启舰：春招在即，义务帮大家看看简历吧》 一石激起千层浪，三天收到两百多封简历。 花光了两个星期的所有空闲时...

我们都玩过Windows操作系统中的经典游戏扫雷（Minesweeper），如果把质数当作一颗雷，那么，表格中红色的数字哪些是雷（质数）？您能找出多少个呢？文中用列表的方式罗列了10000以内的自然数、质数（素数），6的倍数等，方便大家观察质数的分布规律及特性，以便对算法求解有指导意义。另外，判断质数是初学算法，理解算法重要性的一个非常好的案例。

正确选择比瞎努力更重要！

大厂竟然要考我SSO，卧槽。

作者 | 伍杏玲出品 | CSDN（ID：CSDNnews）格子衬衫、常掉发、双肩包、修电脑、加班多……这些似乎成了大众给程序员的固定标签。近几年流行的“跨界风”开始刷新人们对程序员的...

来看几个问题想不想月薪超过5万？想不想进入公司架构组？想不想成为项目组的负责人？想不想成为spring的高手，超越99%的对手？那么本文内容是你必须要掌握的。本文主要详解bean的生命...

不小心拿了几个offer，有点烦

不怕告诉你，我自从喜欢上了这12个UP主，哔哩哔哩成为了我手机上最耗电的软件，几乎每天都会看，可是吧，看的越多，我就越觉得自己是个废柴，唉，老天不公啊，不信你看看…… 间接性踌躇满志，持续性混吃等死，都是因为你们……但是，自己的学习力在慢慢变强，这是不容忽视的，推荐给你们！ 都说B站是个宝，可是有人不会挖啊，没事，今天咱挖好的送你一箩筐，首先啊，我在B站上最喜欢看这个家伙的视频了，为啥 ，咱撇...

某站后端代码被“开源”，同时刷遍全网的，还有代码里的那些神注释。 我们这才知道，原来程序员个个都是段子手；这么多年来，我们也走过了他们的无数套路… 首先，产品经理，是永远永远吐槽不完的！网友的评论也非常扎心，说看这些代码就像在阅读程序员的日记，每一页都写满了对产品经理的恨。 然后，也要发出直击灵魂的质问：你是尊贵的付费大会员吗？ 这不禁让人想起之前某音乐app的穷逼Vip，果然，穷逼在哪里都是...

2020年截止目前，我面试了阿里巴巴、腾讯、美团、拼多多、京东、快手等互联网大厂。我发现数据库事务在面试中出现的次数非常多。

早前，平安产险科技一名外包程序员和一名外包产品经理干架的视频几乎在互联网圈都传遍了，因为产品提了一个需求：要求用户App的主题颜色能根据手机壳自动调整。 首先说这个需求对于应用开发工程师来说，确实是有点奇葩，当然并非不能实现。这块涉及图形图像处理，用机器学习和人工智能来提取图像颜色，这是基本图像识别过程，对于采集图像，可以提示对着镜子自拍一张，上传图片，通过大量的训练数据，来识别手机体颜色。当然并...

小弟最近在学校无聊的很哪，浏览网页突然看到一张图片，都快流鼻血。。。然后小弟冥思苦想，得干一点有趣的事情python 爬虫库安装https://s.taobao.com/api?_ks...