Delphi tips

转载 2004年06月25日 12:00:00

【文章】如何用Delphi控制Excel儲存格合併? 【編輯】領航天使 
 【作者】a6475
【內文】來源:http://delphi.ktop.com.tw/topic.asp?topic_id=45774

Q:
我用下列方法動態create excel ole物件
msexcel:= CreateOleObject('Excel.Application');

1.我要把 A1..Z1 CELL合併, 該下何指令?
.我如何知道 cell[2,3]= B3, cell[1,1]=A1
2.以往我們都是指定 cell[2,3]內的值, 但如果想知道是那一個格址呢?
(除了用計算公式去算出來外, 有沒有指令馬上知道)


A:
1.MyExcel.Range['C1','D8'].Select;
MyExcel.Selection.Merge; //合拼儲存格
2.cell[1,3].address
or
cell[1,3].address(xlA1)
3.以下是C++ Builder將Excel的Cell Merge方法您參考看看:

//合併CELL
/*
Cells=Worksheet.OlePropertyGet("Cells");
Variant Cell1=Cells.OlePropertyGet("Cells",x1,y1);
Variant Cell2=Cells.OlePropertyGet("Cells",x2,y2);
Range=Worksheet.OlePropertyGet("Range",Cell1,Cell2);
Range.OleFunction("Merge");
4.參考這一篇:
http://delphi.ktop.com.tw/topic.asp?topic_id=28371

 

 【文章】如何更改ShowMessage的字體? 【編輯】領航天使 
 【作者】liorex
【內文】來源:http://delphi.ktop.com.tw/topic.asp?topic_id=29646


var
 from : TForm ;
 lab : TLabel ;
begin
  from := CreateMessageDialog('afsdfadsfasd',mtInformation, [mbOK]);
  with from do
  begin
    lab := TLabel(FindComponent('Message')) ;
    if lab <> nil then
    begin
      lab.Font.Color := clRed ; //你要的顏色在這裡設
      lab.Font.Size := 12 ;   //字體
      lab.Font.Name := '標楷體';//字型
    end ;
    from.ShowModal;
  end;
  from.Destroy ;
  FreeAndNil(from);

end;


 

 【文章】如何將逗點連接的字串拆開? 【編輯】領航天使 
 【作者】qoo1234 / P.D.
【內文】來源:http://delphi.ktop.com.tw/topic.asp?topic_id=45586
Q:
請問如何把字串拆開 ?

s:='abc,bbb,ccc,aaa,add,ddc';

以上字串如何把它分開為 :
abc
bbb
ccc
aaa
add
ddc


A1:

 

procedure TForm1.Button1Click(Sender: TObject);
var Str:String;
    SL:TStringList;
begin
 Str:='abc,bbb,ccc,aaa,add,ddc';
 SL:=TStringList.Create;
 SL.CommaText:=Str;
 ShowMessage(SL.Text);
 SL.Free;
end;

 

A2:

 

function TSysUT.getaryStr(var AryList: Array of string;        mString: string): boolean;
        var xpos: string;
            xFind: integer;
            i: integer;
begin
     xpos:= '';
     xfind:= -1;
     result:= True;
     i:= 0;
     while xfind <> 0 do
     try
        xfind:= pos(',',mString);
        if xfind = 0 then break;
        xpos:= copy(mString,1,xfind-1);
        AryList[i]:= xpos;
        Delete(mString,1,length(xpos)+1);
        inc(i);
     except
        on E: Exception do begin
           result:= False;
           Break;
        end;
     end;
end;

 

用法
myAry:= array[0..3] of string;
myStr:= 'AAA,BBB,CCC,DDD'

getaryStr(myAry,myStr);
你就可以發現自動將四組字串分給四個陣列
其他你就再發揮創意來運用吧!

layer ui插件显示tips时,修改字体颜色

今天做调查问卷,又遇到一个蛋疼小问题,记录下。 调查问卷有很多选项是要求必填的,如果不填的话,需要给出友好的提示。用的如下组件:http://layer.layui.com/ 1、之前一直默认用的...
  • wodeai1235
  • wodeai1235
  • 2017年03月07日 14:19
  • 4429

一些技巧吧!Unity Tips(日常使用)

孙广东 2015.10.30 1、按组件名称搜索 场景的hierarchy 层次结构, 就是得到 使用了这个组件的对象 2、如何查找文档快捷方式(就是很快的方式找到 组件的文档) ...
  • u010019717
  • u010019717
  • 2015年10月30日 08:51
  • 3255

这些Tips让你的App更容易维护

提高App的可维护性和可扩展性
  • sdkfjksf
  • sdkfjksf
  • 2016年04月09日 17:34
  • 2202

Delphi and C++Builder Tips and Techniques

  • 2009年05月17日 13:14
  • 124KB
  • 下载

delphi tips(2)

  • 2007年09月25日 13:55
  • 5.35MB
  • 下载

ShaderX1.-.Vertex.and.Pixel.Shader.Tips.and.Tricks.pdf

  • 2017年12月03日 13:15
  • 7.35MB
  • 下载

Swifter - Swift 开发者必备 Tips第四版 代码和书籍

  • 2017年12月29日 14:27
  • 3.13MB
  • 下载

Swifter - Swift必备Tips(第三版)

  • 2017年10月25日 15:26
  • 2.5MB
  • 下载

Swifter-Swift开发者必备Tips(第四版,适配Swift4)

  • 2018年01月09日 09:37
  • 3.15MB
  • 下载

jupyter notebook tips tricks

  • 2017年11月24日 10:53
  • 1.06MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi tips
举报原因:
原因补充:

(最多只允许输入30个字)