fctreenode 加stringdata的问题

2011-04-22 12:33:41 182 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ESP8266-Arduino网络编程实例-异步TCP客户端本次实例将使用ESPAsyncTCP库实现一个简单的客户端。阅读详情

fctreenode本身有stringdata和stringdata2，我想再加几个如stringdata3、stringdata4、stringdata5、stringdata6，改了TfcTreeNode 类如下：
TfcTreeNode = class(TPersistent)
private
FMultiSelected: boolean;
FCheckboxType: TfcTreeViewCheckboxType;
FChecked: boolean;

FOwner: TfcTreeNodes;
FText: string;

FStringData1: string;

FStringData2: string;
FStringData3: string;
FStringData4: string;
FStringData5: string;
FStringData6: String;
在程序运行中可以正常访问到StringData3到stringdata6，但是用delphi设计窗体时添加节点总是数据部正确，writedata的代码如下：
procedure TfcTreeNode.WriteData(Stream: TStream; Info: PfcNodeInfo);
var
Size, L, ItemCount: Integer;
Node: TfcTreeNode;
//sl : TStringList ;
begin
L := Length(Text);
if L > 255 then L := 255;

Size := GetSizeOfNodeInfo + L - 255;

// Size := SizeOf(TfcNodeInfo) + L - 255;
FillChar(Info^, SizeOf(TfcNodeInfo), 0);
{$warnings off}
Info^.Text := Text;
{$warnings on}
Info^.ImageIndex := ImageIndex;
Info^.SelectedIndex := SelectedIndex;
Info^.OverlayIndex := OverlayIndex;
Info^.StateIndex := StateIndex;
Info^.Data := Data;
ItemCount := Count;
Info^.Count := ItemCount;
Info^.CheckboxType:= CheckboxType;
Info^.Checked:= ord(Checked) + $02 * Ord(Grayed);
Info^.Expanded := Expanded;
Info^.StringDataSize1:= length(StringData);

Info^.StringDataSize2:= length(StringData2);

Info^.StringDataSize3:= length(StringData3);

Info^.StringDataSize4:= length(StringData4);

Info^.StringDataSize5:= length(StringData5);

Info^.StringDataSize6:= length(StringData6);

Stream.WriteBuffer(Size, SizeOf(Size));
Stream.WriteBuffer(Info^, Size);

{ Support StringData properties }
if Info^.StringDataSize1>0 then begin
Stream.WriteBuffer(PChar(StringData)^, length(StringData));

end;

if Info^.StringDataSize2>0 then begin
Stream.WriteBuffer(PChar(StringData2)^, length(StringData2));
end;

if Info^.StringDataSize3>0 then begin
Stream.WriteBuffer(PChar(StringData3)^, length(StringData3));
end;

if Info^.StringDataSize4>0 then begin
Stream.WriteBuffer(PChar(StringData4)^, length(StringData4));
end;

if Info^.StringDataSize5>0 then begin
Stream.WriteBuffer(PChar(StringData5)^, length(StringData5));
end;

if Info^.StringDataSize6>0 then begin
Stream.WriteBuffer(PChar(StringData6)^, length(StringData6));
end;

Node := GetFirstChild;
while Node <> nil do
begin
Node.WriteData(Stream, Info);
Node := Node.GetNextSibling;
end;

// for I := 0 to ItemCount - 1 do Item[I].WriteData(Stream, Info);
end;
readdata的代码如下：
procedure TfcTreeNode.ReadData(Stream: TStream; Info: PfcNodeInfo);
var
I, Size, ItemCount: Integer;
StrBuffer: PChar;
Temp: Integer;
UseExpanded:Boolean;
begin
Owner.ClearCache;
Stream.ReadBuffer(Size, SizeOf(Size));

{ 7/6/99 - Save for fcTreeCombo streaming }
{$ifdef fcDelphi4Up}
ReadDataSize:= Size;
{$endif}

{ RSW - Advance if somehow size is greater than node size }
Stream.ReadBuffer(Info^, fcmin(Size, SizeOf(Info^)));
Temp := SizeOf(TfcNodeInfo) - (255 - Length(Info^.Text));

{ Support StringData property }
if Info^.StringDataSize1>0 then
begin
StrBuffer:= StrAlloc(Info^.StringDataSize1+1);
StrBuffer[Info^.StringDataSize1]:= #0;
Stream.ReadBuffer(StrBuffer^, Info^.StringDataSize1);
StringData:= StrPas(StrBuffer);
StrDispose(StrBuffer);
end
else StringData:= '';

{ Support StringData property }
if Info^.StringDataSize2>0 then
begin
StrBuffer:= StrAlloc(Info^.StringDataSize2+1);
StrBuffer[Info^.StringDataSize2]:= #0;
Stream.ReadBuffer(StrBuffer^, Info^.StringDataSize2);
StringData2:= StrPas(StrBuffer);
StrDispose(StrBuffer);
end
else StringData2:= '';
{ Support StringData property }
if Info^.StringDataSize3>0 then
begin
StrBuffer:= StrAlloc(Info^.StringDataSize3+1);
StrBuffer[Info^.StringDataSize3]:= #0;
Stream.ReadBuffer(StrBuffer^, Info^.StringDataSize3);
StringData3:= StrPas(StrBuffer);
StrDispose(StrBuffer);
end
else StringData3:= '';
{ Support StringData property }
if Info^.StringDataSize4>0 then
begin
StrBuffer:= StrAlloc(Info^.StringDataSize4+1);
StrBuffer[Info^.StringDataSize4]:= #0;
Stream.ReadBuffer(StrBuffer^, Info^.StringDataSize4);
StringData4:= StrPas(StrBuffer);
StrDispose(StrBuffer);
end
else StringData4:= '';
{ Support StringData property }
if Info^.StringDataSize5>0 then
begin
StrBuffer:= StrAlloc(Info^.StringDataSize5+1);
StrBuffer[Info^.StringDataSize5]:= #0;
Stream.ReadBuffer(StrBuffer^, Info^.StringDataSize5);
StringData5:= StrPas(StrBuffer);
StrDispose(StrBuffer);
end
else StringData5:= '';
{ Support StringData property }
if Info^.StringDataSize6>0 then
begin
StrBuffer:= StrAlloc(Info^.StringDataSize6+1);
StrBuffer[Info^.StringDataSize6]:= #0;
Stream.ReadBuffer(StrBuffer^, Info^.StringDataSize6);
StringData6:= StrPas(StrBuffer);
StrDispose(StrBuffer);
end
else StringData6:= '';

{$warnings off}
Text := Info^.Text;
{$warnings on}
ImageIndex := Info^.ImageIndex;
SelectedIndex := Info^.SelectedIndex;
StateIndex := Info^.StateIndex;
OverlayIndex := Info^.OverlayIndex;
Data := Info^.Data;
ItemCount := Info^.Count;
CheckboxType:= Info^.CheckboxType;
Checked:= (Info^.Checked and $01)<>0;

Grayed:= (Info^.Checked and $02)<>0;

UseExpanded:= Info^.Expanded;

for I := 0 to ItemCount - 1 do
with Owner.AddChild(Self, '') do ReadData(Stream, Info);

// 1/31/2002-PYW-Added new property to respect expanded node settings.
if (Owner.Owner<>nil) and (Owner.Owner.StreamExpandedNode) then
Expanded := UseExpanded;

if TreeView.StreamVersion=1 then
if Size > Temp then Stream.Position:= Stream.Position + (Size - Temp);
end;
哪位大哥给指点一下

...全文