摘要：D7, classes tstrings 没有strictdelimiter属性,在string转tstrings时,不能分别字符串带空格的情况,View Code function StrToStrs(s:string,cp:chr, rs_s:^TStrings);Var T : integer;begin T := 1; While True do begin if PosEx(cp,s,T) = 0 then begin rs_s.Add(Midstr(s,T,Length(s)-T+1)); Break; end; rs_s.Add(Midstr(s,T,(PosEx(cp,s,T) 阅读全文

摘要：unit uModuleFrame;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TModuleFrame = class(TFrame)public constructor Create(AOwner: TComponent); virtual; function BeforeLoad: boolean; virtual; abstract; function BeforeShow: boolean; virtual; abstract; function 阅读全文