首页 > 其他 > 详细

System 这四个单元多用用(近期)

时间:2018-07-26 14:20:29      阅读:161      评论:0      收藏:0      [点我收藏+]

 参考:https://www.cnblogs.com/xumenger/p/4687493.html

System.Classes.pas:

TList、TStrings、TStringList

 

System.Contnrs.pas:

TObjectList、

TComponentList、TClassList、TOrderedList、

TStack、TObjectStack、

TQueue、TObjectQueue、

TCustomBucketList

 

System.Generics.Collections.pas:

  TList<T>

  TObjectList<T>

  TDictionary<TKey, TValue>

 

  TStack<T>

  TQueue<T>

 

System.Diagnostics.pas:

procedure TfrmRandomWordSearch.FindGoodWord(const wordTest: TWordCheckDelegate);
var
  word: string;
  isWordOK: boolean;
  time: TStopwatch;
begin
  time := TStopwatch.StartNew;
  repeat
    word := GenerateWord;
    isWordOK := wordTest(word);
  until isWordOK or (time.ElapsedMilliseconds > 10000);
  if isWordOK then
    lbWords.ItemIndex := lbWords.Items.Add(Format(‘%s (%d ms)‘, [word, time.ElapsedMilliseconds]))
  else
    lbWords.ItemIndex := lbWords.Items.Add(‘timeout‘);
end;

  

System 这四个单元多用用(近期)

原文:https://www.cnblogs.com/BSor/p/9371034.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!