Changeset 14 for branches/DelphiToC/UCSource.pas

Timestamp:

Apr 9, 2009, 11:04:41 AM (16 years ago)

Author:

george

Message:

• Opraveno: Chyby v uvolňování paměti.
• Opraveno: Program po rozdělení do více souborů opět funguje jako dříve.

File:

• branches/DelphiToC/UCSource.pas (modified) (1 diff)

branches/DelphiToC/UCSource.pas

@@ -3 +3 @@
 interface
 
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, UPascalSource;
+
+type
+  TCSource = class
+    TextSource: TStringList;
+    PascalSource: TStringList;
+    procedure Generate;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
 implementation
 
+{ TCSource }
+
+constructor TCSource.Create;
+begin
+  TextSource := TStringList.Create;
+end;
+
+destructor TCSource.Destroy;
+begin
+  TextSource.Free;
+  inherited;
+end;
+
+procedure TCSource.Generate;
+begin
+
+end;
+
 end.