

         	Delphi Struct, v.3.1

          (c)  aka Virgo Style, 2005


    ,     -  , 
  Struct  TP.     
  Delphi,      ,   ;-). 

 ,       .
 ,    class of ,   .

  ,   ,   
    -    
. , ,      :-).

  as is,   ,    
  ,   .      About.
    ,     
.

,   ,  ,    
  .


     ,  drag-and-drop  
   .   ,   , 
   -     .  
     . 

  ,     ,    
. 

     .bak,    - 
  ,    .


    .

type
TMyClass = class(TSomeClass)
  procedure SetName(S:String);
private
  Name:String;
  { Private declarations }
public
  { Public declarations }
end;

...

MyClass:=TMyClass.Create;

try
  if SomeOption then
    MyClass.SetName(SomeName)
  else
  begin
    MyClass.SetName(OtherName);
  end;
finally
  MyClass.Free;
end;

with TSomeClass.Create do
try
  for i:=0 to Names.Count-1 do
    if Names.Strings[i]<>'' then
  begin
    SomeMethod1(Names.Strings[i]);
    SomeMethod2(Names.Strings[i]);
  end;
  SomeMethod3;
finally
  Free;
end;

 ,        
,      ,  
    :

with ... do
  if ... then
    while ... do
      SomeProc;

NextProc;

 :

with ... do
  if ... then
    while ... do
begin
  SomeProc;
end;

NextProc;

         ;-)