Maurizio Lotauro wrote:
> Scrive Arno Garrels <[EMAIL PROTECTED]>:
> 
>> This one displays anything below in the private section, does not work
>> at all 
>> 
>> TCustomWSocket = class( {$IFNDEF NO_DEBUG_LOG} TIcsBaseLogComp {$ELSE}
>> TComponent {$ENDIF})
>> 
>> 
>> Displays TCustomWSocket as a private var an puts all other privat vars
>> under protected
>> {$IFNDEF NO_DEBUG_LOG}
>>     TCustomWSocket = class(TIcsBaseLogComp)
>> {$ELSE}
>>     TCustomWSocket = class(TComponent)
>> {$ENDIF}
>> private
>>     FDnsResult          : String;
> 
> Do you mean that TCustomSocket is considered as a var instead of a class?
> What about the line immediatly before?

Please try this:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TMyForm = class(TForm);
{$IFDEF TEST}
  TForm1 = class(TForm)
{$ELSE}
  TForm1 = class(TMyForm)
{$ENDIF}
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.





> 
> 
> Bye, Maurizio.
> 
> ----------------------------------------------------
> This mail has been sent using Alpikom webmail system
> http://www.alpikom.it
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to