Changeset 51 for branches/DelphiToC


Ignore:
Timestamp:
Aug 9, 2010, 3:50:42 PM (14 years ago)
Author:
george
Message:

Renamed some files.
Added support for custom record types.

Location:
branches/DelphiToC
Files:
6 added
5 deleted
8 edited

Legend:

Unmodified
Added
Removed

  • branches/DelphiToC/DelphiToC.lpi

    r50 r51  
    4040      </Item2>
    4141    </RequiredPackages>
    42     <Units Count="21">
     42    <Units Count="20">
    4343      <Unit0>
    4444        <Filename Value="DelphiToC.lpr"/>
    … …  
    4848        <TopLine Value="4"/>
    4949        <CursorPos X="1" Y="29"/>
    50         <UsageCount Value="112"/>
     50        <UsageCount Value="113"/>
    5151        <Loaded Value="True"/>
    5252      </Unit0>
    5353      <Unit1>
    54         <Filename Value="UMainForm.pas"/>
     54        <Filename Value="Forms\UMainForm.pas"/>
    5555        <IsPartOfProject Value="True"/>
    5656        <ComponentName Value="MainForm"/>
    … …  
    6262        <TopLine Value="97"/>
    6363        <CursorPos X="60" Y="112"/>
    64         <UsageCount Value="112"/>
     64        <UsageCount Value="113"/>
    6565        <Loaded Value="True"/>
    6666        <LoadedDesigner Value="True"/>
    … …  
    7373        <TopLine Value="1"/>
    7474        <CursorPos X="1" Y="1"/>
    75         <UsageCount Value="112"/>
     75        <UsageCount Value="113"/>
    7676      </Unit2>
    7777      <Unit3>
    78         <Filename Value="UPascalSource.pas"/>
    79         <IsPartOfProject Value="True"/>
    80         <UnitName Value="UPascalSource"/>
     78        <Filename Value="USourceCode.pas"/>
     79        <IsPartOfProject Value="True"/>
     80        <UnitName Value="USourceCode"/>
    8181        <EditorIndex Value="5"/>
    8282        <WindowIndex Value="0"/>
    83         <TopLine Value="141"/>
    84         <CursorPos X="21" Y="155"/>
    85         <UsageCount Value="112"/>
     83        <TopLine Value="637"/>
     84        <CursorPos X="13" Y="668"/>
     85        <UsageCount Value="113"/>
    8686        <Loaded Value="True"/>
    8787      </Unit3>
    8888      <Unit4>
    89         <Filename Value="UPascalCompiler.pas"/>
    90         <IsPartOfProject Value="True"/>
    91         <UnitName Value="UPascalCompiler"/>
     89        <Filename Value="UCompiler.pas"/>
     90        <IsPartOfProject Value="True"/>
     91        <UnitName Value="UCompiler"/>
    9292        <EditorIndex Value="11"/>
    9393        <WindowIndex Value="0"/>
    94         <TopLine Value="101"/>
    95         <CursorPos X="17" Y="102"/>
    96         <UsageCount Value="112"/>
     94        <TopLine Value="1"/>
     95        <CursorPos X="40" Y="16"/>
     96        <UsageCount Value="113"/>
    9797        <Loaded Value="True"/>
    9898      </Unit4>
    … …  
    105105        <TopLine Value="112"/>
    106106        <CursorPos X="48" Y="128"/>
    107         <UsageCount Value="112"/>
     107        <UsageCount Value="113"/>
    108108        <Loaded Value="True"/>
    109109      </Unit5>
    … …  
    116116        <TopLine Value="1"/>
    117117        <CursorPos X="15" Y="13"/>
    118         <UsageCount Value="112"/>
     118        <UsageCount Value="113"/>
    119119        <Loaded Value="True"/>
    120120      </Unit6>
    … …  
    127127        <TopLine Value="128"/>
    128128        <CursorPos X="34" Y="141"/>
    129         <UsageCount Value="112"/>
     129        <UsageCount Value="113"/>
    130130        <Loaded Value="True"/>
    131131      </Unit7>
    132132      <Unit8>
    133         <Filename Value="Analyze\UPascalParser.pas"/>
    134         <IsPartOfProject Value="True"/>
    135         <UnitName Value="UPascalParser"/>
     133        <Filename Value="Analyze\UParser.pas"/>
     134        <IsPartOfProject Value="True"/>
     135        <UnitName Value="UParser"/>
    136136        <EditorIndex Value="0"/>
    137137        <WindowIndex Value="0"/>
    138         <TopLine Value="851"/>
    139         <CursorPos X="31" Y="862"/>
    140         <UsageCount Value="112"/>
     138        <TopLine Value="1021"/>
     139        <CursorPos X="1" Y="1026"/>
     140        <UsageCount Value="113"/>
    141141        <Loaded Value="True"/>
    142142      </Unit8>
    143143      <Unit9>
    144         <Filename Value="UMainForm.lfm"/>
    145         <WindowIndex Value="0"/>
    146         <TopLine Value="1"/>
    147         <CursorPos X="1" Y="1"/>
    148         <UsageCount Value="0"/>
    149         <DefaultSyntaxHighlighter Value="LFM"/>
     144        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\packages\fcl-base\src\contnrs.pp"/>
     145        <UnitName Value="contnrs"/>
     146        <WindowIndex Value="0"/>
     147        <TopLine Value="78"/>
     148        <CursorPos X="14" Y="91"/>
     149        <UsageCount Value="55"/>
    150150      </Unit9>
    151151      <Unit10>
    152         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\packages\fcl-base\src\contnrs.pp"/>
    153         <UnitName Value="contnrs"/>
    154         <WindowIndex Value="0"/>
    155         <TopLine Value="78"/>
    156         <CursorPos X="14" Y="91"/>
    157         <UsageCount Value="56"/>
    158       </Unit10>
    159       <Unit11>
    160152        <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    161153        <UnitName Value="StdCtrls"/>
    … …  
    164156        <CursorPos X="1" Y="1"/>
    165157        <UsageCount Value="4"/>
     158      </Unit10>
     159      <Unit11>
     160        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutilh.inc"/>
     161        <EditorIndex Value="3"/>
     162        <WindowIndex Value="0"/>
     163        <TopLine Value="61"/>
     164        <CursorPos X="7" Y="68"/>
     165        <UsageCount Value="40"/>
     166        <Loaded Value="True"/>
    166167      </Unit11>
    167168      <Unit12>
    168         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutilh.inc"/>
    169         <EditorIndex Value="3"/>
    170         <WindowIndex Value="0"/>
    171         <TopLine Value="61"/>
    172         <CursorPos X="7" Y="68"/>
    173         <UsageCount Value="39"/>
     169        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutils.inc"/>
     170        <EditorIndex Value="4"/>
     171        <WindowIndex Value="0"/>
     172        <TopLine Value="139"/>
     173        <CursorPos X="16" Y="146"/>
     174        <UsageCount Value="40"/>
    174175        <Loaded Value="True"/>
    175176      </Unit12>
    176177      <Unit13>
    177         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutils.inc"/>
    178         <EditorIndex Value="4"/>
    179         <WindowIndex Value="0"/>
    180         <TopLine Value="139"/>
    181         <CursorPos X="16" Y="146"/>
    182         <UsageCount Value="39"/>
    183         <Loaded Value="True"/>
    184       </Unit13>
    185       <Unit14>
    186178        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysstr.inc"/>
    187179        <WindowIndex Value="0"/>
    … …  
    189181        <CursorPos X="10" Y="947"/>
    190182        <UsageCount Value="8"/>
    191       </Unit14>
    192       <Unit15>
     183      </Unit13>
     184      <Unit14>
    193185        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\systemh.inc"/>
    194186        <WindowIndex Value="0"/>
    … …  
    196188        <CursorPos X="11" Y="847"/>
    197189        <UsageCount Value="4"/>
    198       </Unit15>
    199       <Unit16>
     190      </Unit14>
     191      <Unit15>
    200192        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\objpash.inc"/>
    201193        <WindowIndex Value="0"/>
    … …  
    203195        <CursorPos X="8" Y="166"/>
    204196        <UsageCount Value="13"/>
    205       </Unit16>
    206       <Unit17>
     197      </Unit15>
     198      <Unit16>
    207199        <Filename Value="Visual\USourceTree.pas"/>
    208200        <IsPartOfProject Value="True"/>
    … …  
    211203        <EditorIndex Value="2"/>
    212204        <WindowIndex Value="0"/>
    213         <TopLine Value="209"/>
    214         <CursorPos X="16" Y="218"/>
    215         <UsageCount Value="74"/>
    216         <Loaded Value="True"/>
    217       </Unit17>
    218       <Unit18>
     205        <TopLine Value="254"/>
     206        <CursorPos X="41" Y="268"/>
     207        <UsageCount Value="75"/>
     208        <Loaded Value="True"/>
     209      </Unit16>
     210      <Unit17>
    219211        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    220212        <UnitName Value="ComCtrls"/>
    … …  
    223215        <CursorPos X="3" Y="2669"/>
    224216        <UsageCount Value="4"/>
    225       </Unit18>
    226       <Unit19>
     217      </Unit17>
     218      <Unit18>
    227219        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    228220        <WindowIndex Value="0"/>
    … …  
    230222        <CursorPos X="57" Y="571"/>
    231223        <UsageCount Value="13"/>
    232       </Unit19>
    233       <Unit20>
     224      </Unit18>
     225      <Unit19>
    234226        <Filename Value="Produce\UProducerPascal.pas"/>
    235227        <IsPartOfProject Value="True"/>
    … …  
    237229        <EditorIndex Value="7"/>
    238230        <WindowIndex Value="0"/>
    239         <TopLine Value="104"/>
    240         <CursorPos X="21" Y="112"/>
    241         <UsageCount Value="28"/>
    242         <Loaded Value="True"/>
    243       </Unit20>
     231        <TopLine Value="1"/>
     232        <CursorPos X="23" Y="9"/>
     233        <UsageCount Value="30"/>
     234        <Loaded Value="True"/>
     235      </Unit19>
    244236    </Units>
    245237    <JumpHistory Count="30" HistoryIndex="29">
    246238      <Position1>
    247         <Filename Value="UMainForm.pas"/>
    248         <Caret Line="88" Column="1" TopLine="88"/>
     239        <Filename Value="Analyze\UParser.pas"/>
     240        <Caret Line="1006" Column="1" TopLine="992"/>
    249241      </Position1>
    250242      <Position2>
    251         <Filename Value="UMainForm.pas"/>
    252         <Caret Line="33" Column="1" TopLine="20"/>
     243        <Filename Value="Analyze\UParser.pas"/>
     244        <Caret Line="1004" Column="9" TopLine="991"/>
    253245      </Position2>
    254246      <Position3>
    255         <Filename Value="DelphiToC.lpr"/>
    256         <Caret Line="29" Column="1" TopLine="4"/>
     247        <Filename Value="Analyze\UParser.pas"/>
     248        <Caret Line="1013" Column="16" TopLine="1002"/>
    257249      </Position3>
    258250      <Position4>
    259         <Filename Value="DelphiToC.lpr"/>
    260         <Caret Line="20" Column="36" TopLine="4"/>
     251        <Filename Value="Analyze\UParser.pas"/>
     252        <Caret Line="1021" Column="14" TopLine="1008"/>
    261253      </Position4>
    262254      <Position5>
    263         <Filename Value="Produce\UProducerC.pas"/>
    264         <Caret Line="217" Column="71" TopLine="207"/>
     255        <Filename Value="Analyze\UParser.pas"/>
     256        <Caret Line="1024" Column="35" TopLine="1010"/>
    265257      </Position5>
    266258      <Position6>
    267         <Filename Value="Produce\UProducerC.pas"/>
    268         <Caret Line="216" Column="80" TopLine="203"/>
     259        <Filename Value="Analyze\UParser.pas"/>
     260        <Caret Line="1029" Column="21" TopLine="1016"/>
    269261      </Position6>
    270262      <Position7>
    271         <Filename Value="Produce\UProducerC.pas"/>
    272         <Caret Line="182" Column="44" TopLine="177"/>
     263        <Filename Value="Analyze\UParser.pas"/>
     264        <Caret Line="1011" Column="33" TopLine="1010"/>
    273265      </Position7>
    274266      <Position8>
    275         <Filename Value="Produce\UProducerC.pas"/>
    276         <Caret Line="205" Column="3" TopLine="202"/>
     267        <Filename Value="Analyze\UParser.pas"/>
     268        <Caret Line="67" Column="45" TopLine="54"/>
    277269      </Position8>
    278270      <Position9>
    279         <Filename Value="UPascalCompiler.pas"/>
    280         <Caret Line="128" Column="12" TopLine="111"/>
     271        <Filename Value="Analyze\UParser.pas"/>
     272        <Caret Line="1001" Column="28" TopLine="988"/>
    281273      </Position9>
    282274      <Position10>
    283         <Filename Value="UPascalCompiler.pas"/>
    284         <Caret Line="127" Column="21" TopLine="111"/>
     275        <Filename Value="Analyze\UParser.pas"/>
     276        <Caret Line="1024" Column="57" TopLine="1011"/>
    285277      </Position10>
    286278      <Position11>
    287         <Filename Value="DelphiToC.lpr"/>
    288         <Caret Line="16" Column="36" TopLine="4"/>
     279        <Filename Value="Analyze\UParser.pas"/>
     280        <Caret Line="1022" Column="45" TopLine="1009"/>
    289281      </Position11>
    290282      <Position12>
    291         <Filename Value="UPascalSource.pas"/>
    292         <Caret Line="7" Column="59" TopLine="1"/>
     283        <Filename Value="Analyze\UParser.pas"/>
     284        <Caret Line="1030" Column="39" TopLine="1017"/>
    293285      </Position12>
    294286      <Position13>
    295         <Filename Value="Analyze\UPascalParser.pas"/>
    296         <Caret Line="477" Column="13" TopLine="457"/>
     287        <Filename Value="Analyze\UParser.pas"/>
     288        <Caret Line="1031" Column="41" TopLine="1018"/>
    297289      </Position13>
    298290      <Position14>
    299         <Filename Value="Analyze\UPascalParser.pas"/>
    300         <Caret Line="62" Column="50" TopLine="45"/>
     291        <Filename Value="Analyze\UParser.pas"/>
     292        <Caret Line="1067" Column="63" TopLine="1051"/>
    301293      </Position14>
    302294      <Position15>
    303         <Filename Value="Analyze\UPascalParser.pas"/>
    304         <Caret Line="1037" Column="1" TopLine="1012"/>
     295        <Filename Value="Analyze\UParser.pas"/>
     296        <Caret Line="1058" Column="54" TopLine="1045"/>
    305297      </Position15>
    306298      <Position16>
    307         <Filename Value="Analyze\UPascalParser.pas"/>
    308         <Caret Line="865" Column="62" TopLine="391"/>
     299        <Filename Value="Visual\USourceTree.pas"/>
     300        <Caret Line="207" Column="1" TopLine="193"/>
    309301      </Position16>
    310302      <Position17>
    311         <Filename Value="Analyze\UPascalParser.pas"/>
    312         <Caret Line="910" Column="55" TopLine="900"/>
     303        <Filename Value="Visual\USourceTree.pas"/>
     304        <Caret Line="22" Column="30" TopLine="9"/>
    313305      </Position17>
    314306      <Position18>
    315         <Filename Value="Analyze\UPascalParser.pas"/>
    316         <Caret Line="862" Column="65" TopLine="850"/>
     307        <Filename Value="Visual\USourceTree.pas"/>
     308        <Caret Line="208" Column="1" TopLine="193"/>
    317309      </Position18>
    318310      <Position19>
    319         <Filename Value="Analyze\UPascalParser.pas"/>
    320         <Caret Line="81" Column="3" TopLine="66"/>
     311        <Filename Value="Visual\USourceTree.pas"/>
     312        <Caret Line="22" Column="70" TopLine="9"/>
    321313      </Position19>
    322314      <Position20>
    323         <Filename Value="Analyze\UPascalParser.pas"/>
    324         <Caret Line="862" Column="13" TopLine="850"/>
     315        <Filename Value="Visual\USourceTree.pas"/>
     316        <Caret Line="207" Column="74" TopLine="195"/>
    325317      </Position20>
    326318      <Position21>
    327         <Filename Value="Analyze\UPascalParser.pas"/>
    328         <Caret Line="866" Column="24" TopLine="850"/>
     319        <Filename Value="Visual\USourceTree.pas"/>
     320        <Caret Line="22" Column="15" TopLine="10"/>
    329321      </Position21>
    330322      <Position22>
    331         <Filename Value="UPascalSource.pas"/>
    332         <Caret Line="101" Column="34" TopLine="82"/>
     323        <Filename Value="Visual\USourceTree.pas"/>
     324        <Caret Line="208" Column="16" TopLine="195"/>
    333325      </Position22>
    334326      <Position23>
    335         <Filename Value="Analyze\UPascalParser.pas"/>
    336         <Caret Line="866" Column="24" TopLine="850"/>
     327        <Filename Value="Visual\USourceTree.pas"/>
     328        <Caret Line="22" Column="73" TopLine="9"/>
    337329      </Position23>
    338330      <Position24>
    339         <Filename Value="Analyze\UPascalParser.pas"/>
    340         <Caret Line="864" Column="7" TopLine="850"/>
     331        <Filename Value="Visual\USourceTree.pas"/>
     332        <Caret Line="208" Column="46" TopLine="195"/>
    341333      </Position24>
    342334      <Position25>
    343335        <Filename Value="Visual\USourceTree.pas"/>
    344         <Caret Line="29" Column="64" TopLine="14"/>
     336        <Caret Line="253" Column="77" TopLine="241"/>
    345337      </Position25>
    346338      <Position26>
    347339        <Filename Value="Visual\USourceTree.pas"/>
    348         <Caret Line="112" Column="19" TopLine="105"/>
     340        <Caret Line="261" Column="17" TopLine="248"/>
    349341      </Position26>
    350342      <Position27>
    351343        <Filename Value="Visual\USourceTree.pas"/>
    352         <Caret Line="78" Column="33" TopLine="62"/>
     344        <Caret Line="268" Column="32" TopLine="250"/>
    353345      </Position27>
    354346      <Position28>
    355347        <Filename Value="Visual\USourceTree.pas"/>
    356         <Caret Line="300" Column="1" TopLine="275"/>
     348        <Caret Line="267" Column="13" TopLine="254"/>
    357349      </Position28>
    358350      <Position29>
    359351        <Filename Value="Visual\USourceTree.pas"/>
    360         <Caret Line="84" Column="30" TopLine="65"/>
     352        <Caret Line="266" Column="74" TopLine="254"/>
    361353      </Position29>
    362354      <Position30>
    363         <Filename Value="UPascalCompiler.pas"/>
    364         <Caret Line="102" Column="17" TopLine="101"/>
     355        <Filename Value="Visual\USourceTree.pas"/>
     356        <Caret Line="267" Column="48" TopLine="254"/>
    365357      </Position30>
    366358    </JumpHistory>
    … …  
    371363    <SearchPaths>
    372364      <IncludeFiles Value="Analyze\;Produce\"/>
    373       <OtherUnitFiles Value="Analyze\;Produce\;Visual\"/>
     365      <OtherUnitFiles Value="Analyze\;Produce\;Visual\;Forms\"/>
    374366      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    375367    </SearchPaths>

  • branches/DelphiToC/DelphiToC.lpr

    r46 r51  
    1010  UMainForm in 'UMainForm.pas' {MainForm},
    1111  UTextSource in 'UTextSource.pas',
    12   UPascalSource in 'UPascalSource.pas',
    13   UPascalCompiler in 'UPascalCompiler.pas',
     12  USourceCode,
     13  UCompiler,
    1414  UAssemblerSource in 'Produce\UAssemblerSource.pas',
    1515  UCodeProducer in 'Produce\UCodeProducer.pas',
    1616  UProducerC, UProducerPascal,
    17   UPascalParser in 'Analyze\UPascalParser.pas', USourceTree;
     17  UParser, USourceTree;
    1818
    1919{$R *.res}

  • branches/DelphiToC/Example.pas

    r50 r51  
    22
    33uses System, Crt;
     4
     5type
     6  TPoint = record
     7    X: Integer;
     8    Y: Integer;
     9  end;
    410
    511function Max(A, B: Byte): Byte;
    … …  
    1824  sS: Byte;
    1925  D: Byte;
     26 
    2027begin
    2128  WriteLn(A);

  • branches/DelphiToC/Produce/UAssemblerSource.pas

    r40 r51  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, UPascalSource, UCodeProducer;
     9  Dialogs, USourceCode, UCodeProducer;
    1010
    1111type

  • branches/DelphiToC/Produce/UCodeProducer.pas

    r36 r51  
    66
    77uses
    8   UPascalSource;
     8  USourceCode;
    99
    1010type

  • branches/DelphiToC/Produce/UProducerC.pas

    r50 r51  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, StdCtrls, UPascalSource, UCodeProducer, StrUtils;
     9  Dialogs, StdCtrls, USourceCode, UCodeProducer, StrUtils;
    1010
    1111type

  • branches/DelphiToC/Produce/UProducerPascal.pas

    r50 r51  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, UPascalSource, UCodeProducer, StrUtils;
     9  Dialogs, USourceCode, UCodeProducer, StrUtils;
    1010
    1111type

  • branches/DelphiToC/Visual/USourceTree.pas

    r50 r51  
    66
    77uses
    8   Classes, SysUtils, UPascalSource, ComCtrls;
     8  Classes, SysUtils, USourceCode, ComCtrls;
    99
    1010type
    … …  
    2020    procedure AddNodeMethodList(Node: TTreeNode; Methods: TFunctionList);
    2121    procedure AddNodeParameterList(Node: TTreeNode; Parameters: TParameterList);
     22    procedure AddNodeTypeRecord(Node: TTreeNode; TypeRecord: TTypeRecord);
    2223    procedure AddNodeTypeList(Node: TTreeNode; Types: TTypeList);
    2324    procedure AddNodeVariableList(Node: TTreeNode; Variables: TVariableList);
    … …  
    195196  NewNode: TTreeNode;
    196197  NewNode2: TTreeNode;
     198  NewNode3: TTreeNode;
    197199  I: Integer;
    198200begin
    … …  
    202204    with TType(Types[I]) do
    203205    if not System then begin
    204       NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ');
     206      if TType(Types[I]) is TTypeRecord then begin
     207        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = record');
     208        AddNodeTypeRecord(NewNode2, TTypeRecord(Types[I]));
     209      end else if Assigned(UsedType) then
     210        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ' + UsedType.Name)
     211      else NewNode2 := TreeView.Items.AddChild(NewNode, Name);
    205212    end;
    206213  end;
    … …  
    244251end;
    245252
     253procedure TSourceTree.AddNodeTypeRecord(Node: TTreeNode; TypeRecord: TTypeRecord
     254  );
     255var
     256  NewNode: TTreeNode;
     257  NewNode2: TTreeNode;
     258  NewNode3: TTreeNode;
     259  I: Integer;
     260begin
     261  if TypeRecord.Items.Count > 0 then begin
     262    for I := 0 to TypeRecord.Items.Count - 1 do
     263    with TType(TypeRecord.Items[I]) do
     264    if not System then begin
     265      if TType(TypeRecord.Items[I]) is TTypeRecord then begin
     266        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = record');
     267        AddNodeTypeRecord(NewNode2, TTypeRecord(TypeRecord.Items[I]))
     268      end else if Assigned(UsedType) then
     269        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ' + UsedType.Name)
     270      else NewNode2 := TreeView.Items.AddChild(NewNode, Name);
     271    end;
     272  end;
     273end;
     274
    246275procedure TSourceTree.AddNodeModule(Node: TTreeNode; Module: TModule);
    247276var
Note: See TracChangeset for help on using the changeset viewer.