8
8
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
9
FileUtil, StdCtrls, Laz_XMLStreaming, Laz_DOM, Laz_XMLCfg, Buttons, TypInfo;
9
FileUtil, StdCtrls, Laz_XMLStreaming, Laz2_DOM, Laz2_XMLCfg, Buttons, TypInfo;
12
12
TMyEnum = (myEnum1, myEnum2, myEnum3);
79
79
procedure WriteComponents;
80
80
procedure ReadComponents;
81
procedure OnFindComponentClass(Reader: TReader; const AClassName: string;
81
procedure OnFindComponentClass({%H-}Reader: TReader; const AClassName: string;
82
82
var ComponentClass: TComponentClass);
83
83
property Filename: string read FFilename write SetFilename;
368
368
Item: TMyCollectionItem;
370
writeln('TMyComponent.WriteDebugReport ');
371
writeln(' MyDouble=',MyDouble);
372
writeln(' MySingle=',MySingle);
373
writeln(' MyEnum=',GetEnumName(TypeInfo(TMyEnum),ord(MyEnum)));
374
writeln(' MySet=',HexStr(Cardinal(MySet),8));
375
writeln(' MyString=',MyString);
376
writeln(' MyWideString=',MyWideString);
377
writeln(' MyInteger=',MyInteger);
378
writeln(' MyInt64=',MyInt64);
379
writeln(' MyCollection.Count=',MyCollection.Count);
370
debugln('TMyComponent.WriteDebugReport ');
371
debugln([' MyDouble=',MyDouble]);
372
debugln([' MySingle=',MySingle]);
373
debugln([' MyEnum=',GetEnumName(TypeInfo(TMyEnum),ord(MyEnum))]);
374
debugln([' MySet=',HexStr(Cardinal(MySet),8)]);
375
debugln([' MyString=',MyString]);
376
debugln([' MyWideString=',MyWideString]);
377
debugln([' MyInteger=',MyInteger]);
378
debugln([' MyInt64=',MyInt64]);
379
debugln([' MyCollection.Count=',MyCollection.Count]);
380
380
for i:=0 to MyCollection.Count-1 do begin
381
381
Item:=TMyCollectionItem(MyCollection.Items[i]);
382
writeln(' ',i,' MyString=',Item.MyString);
382
debugln([' ',i,' MyString=',Item.MyString]);
384
writeln(' MyStrings='+dbgstr(MyStrings.Text));
384
debugln([' MyStrings='+dbgstr(MyStrings.Text)]);