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?
Â¥Ö÷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µäÐÍ×é¼þµÄ»ù±¾Ê¹Ó÷½·¨ºÍһЩʹÓü¼ÇÉ¡£Ã¿Ò»¸öʵÀý¶¼ÌṩÁ˳ÌÐòµÄÔ´´úÂë¡¢²Ù×÷²½Ö裬²¢ÇÒÔÚÒ»Ð©ÌØÊâµÄʵÀýÖÐ×¢Ã÷ÁË֪ʶµã¡£Á¦Õùʹ¶ÁÕßͨ¹ýÔĶÁʵÀýºó£¬¿ÉÒԽϺõØÕÆÎÕÿһ¸ö֪ʶµã¡£ ±¾Êé·ÖΪÎåÕ£¬ÄÚÈÝÓÉdzÈëÉî¡¢ÑÐò½¥½ø£¬ÊÊÓÃÓÚ³õ¼¶Óû§ºÍԺУʦÉúѧϰ²Î¿¼¡£ ÏÂÔØÔĶÁ±ßÓñßѧD ......
Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
ǰÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelApp.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelApp.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelApp.WorkBooks.Add ......