Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi TStringList Ó÷¨Ïê½â

delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {Ìí¼Ó}
  List.Add('Strings2');
  List.Exchange(0,1);             {Öû»}
  List.Insert(0,'Strings3');      {²åÈë}
  i := List.IndexOf('Strings1');  {µÚÒ»´Î³öÏÖµÄλÖÃ}
  List.Sort;                      {ÅÅÐò}
  List.Sorted := True;   {Ö¸¶¨ÅÅÐò}
  List.Count;                     {×ÜÊý}
  List.Text;                      {Îı¾¼¯ºÏ}
  List.Delete(0);                 {ɾ³ý, 0ÊǵÚÒ»¸öÊý¾Ý}
  List.LoadfromFile('c:\tmp.txt');{´ò¿ª}
  List.SaveToFile('c:\tmp.txt');  {±£´æ}
  List.Clear;                     {Çå¿Õ}
  List.Free;                      {ÊÍ·Å}
end;
//¶ÁÈë×Ö·û´®
var
  List: TStringList;
begin
  List := TStringList.Create;
  List.CommaText := 'aaa,bbb,ccc,ddd';
//Ï൱ÓÚ: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';
  ShowMessage(IntToStr(List.Count)); //4
  ShowMessage(List[0]); //aaa
  List.Free;
end;
//Öû»·Ö¸ô·û
var
  List: TStringList;
begin
  List := TStringList.Create;
  Li


Ïà¹ØÎĵµ£º

Delphi Äܲ»ÄÜ´ÓRing 3½øÈëRing 0

Delphi Äܲ»ÄÜ´ÓRing 3½øÈëRing 0?
Â¥Ö÷skyworld_xm£¨skyworld£©2004-11-19 09:58:55 ÔÚ Delphi / Windows SDK/API ÌáÎÊ
Delphi   Äܲ»ÄÜ´ÓRing   3½øÈëRing   0?  
  ÓÐÀý×ÓÂð?  
  ¶àл. ÎÊÌâµãÊý£º100¡¢»Ø¸´´ÎÊý£º20Top
1 Â¥jinjazz£¨½üÉí¼ô£©»Ø¸´ÓÚ 2004-11-19 10:13:27 µÃ ......

±ßÓñßѧDelphi±à³Ì

±¾Êéͨ¹ýµäÐ͵ÄʵÀý£¬ÏµÍ³µØ½éÉÜÁËDelphiµäÐÍ×é¼þµÄ»ù±¾Ê¹Ó÷½·¨ºÍһЩʹÓü¼ÇÉ¡£Ã¿Ò»¸öʵÀý¶¼ÌṩÁ˳ÌÐòµÄÔ´´úÂë¡¢²Ù×÷²½Ö裬²¢ÇÒÔÚÒ»Ð©ÌØÊâµÄʵÀýÖÐ×¢Ã÷ÁË֪ʶµã¡£Á¦Õùʹ¶ÁÕßͨ¹ýÔĶÁʵÀýºó£¬¿ÉÒԽϺõØÕÆÎÕÿһ¸ö֪ʶµã¡£ ±¾Êé·ÖΪÎåÕ£¬ÄÚÈÝÓÉdzÈëÉѭÐò½¥½ø£¬ÊÊÓÃÓÚ³õ¼¶Óû§ºÍԺУʦÉúѧϰ²Î¿¼¡£ ÏÂÔØÔĶÁ±ßÓñßѧD ......

DelphiÖÐÁ÷µÄʹÓ㨱ȽÏÈ«Ãæ£©

Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
ǰÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......

Delphi¿ØÖÆExcel2000ÐĵÃ

(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ