Jelajahi Sumber

small change for some XE4 installations

Unknown 7 tahun lalu
induk
melakukan
270e549662
1 mengubah file dengan 3 tambahan dan 3 penghapusan
  1. 3 3
      Quick.SMTP.pas

+ 3 - 3
Quick.SMTP.pas

@@ -5,9 +5,9 @@
   Unit        : Quick.SMTP
   Unit        : Quick.SMTP
   Description : Send Emails
   Description : Send Emails
   Author      : Kike Pérez
   Author      : Kike Pérez
-  Version     : 1.1
+  Version     : 1.2
   Created     : 12/10/2017
   Created     : 12/10/2017
-  Modified    : 07/03/2018
+  Modified    : 07/04/2018
 
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
 
@@ -124,7 +124,7 @@ end;
 
 
 constructor TSMTP.Create;
 constructor TSMTP.Create;
 begin
 begin
-  inherited;
+  inherited Create;
   fMail := TMailMessage.Create;
   fMail := TMailMessage.Create;
   Port := 25;
   Port := 25;
   UseTLS := TIdUseTLS.utNoTLSSupport;
   UseTLS := TIdUseTLS.utNoTLSSupport;