Changeset 16 for trunk/StudioCommon/USource.pas

Timestamp:

Aug 6, 2012, 3:16:26 PM (12 years ago)

Author:

chronos

Message:

• Modified: Definition of text source file moved to new package Basic.

File:

• trunk/StudioCommon/USource.pas (modified) (7 diffs)

trunk/StudioCommon/USource.pas

@@ -9 +9 @@
 
 type
-
-  { TSourceType }
-
-  TSourceType = class
-    Extension: string;
-    Title: string;
-    Form: TForm;
-    constructor Create; virtual;
-  end;
-
-  TFileTypeClass = class of TSourceType;
-
-  { TFileTypes }
-
-  TFileTypes = class(TListObject)
-    function GetDialogFilter: string;
-  end;
+  TSourceType = class;
 
   { TSource }
@@ -36 +20 @@
     Modified: Boolean;
     Form: TForm;
+    FileType: TSourceType;
     property Name: string read FName write SetName;
   end;
@@ -44 +29 @@
     Items: TListObject; // TListObject<TSource>
     Main: TSource;
+  end;
+
+
+  { TSourceType }
+
+  TSourceType = class
+    Extension: string;
+    Title: string;
+    Form: TFormClass;
+    SourceClass: TSourceClass;
+    constructor Create; virtual;
+  end;
+
+  TFileTypeClass = class of TSourceType;
+
+  { TFileTypes }
+
+  TFileTypes = class(TListObject)
+    function GetDialogFilter: string;
+    function FindByExt(Extension: string): TSourceType;
   end;
 
@@ -84 +89 @@
   TConvertorClass = class of TConvertor;
 
-  { TSourceText }
-
-  TSourceText = class(TSource)
-  private
-  public
-    Loaded: Boolean;
-    Content: TStringList;
-    constructor Create;
-    destructor Destroy; override;
-  end;
-
-
 
 implementation
@@ -107 +100 @@
 begin
   inherited;
+  SourceClass := TSource;
 end;
 
@@ -151 +145 @@
 end;
 
+function TFileTypes.FindByExt(Extension: string): TSourceType;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < count) and (TSourceType(Items[I]).Extension <> Extension) do Inc(I);
+  if I < Count then Result := TSourceType(Items[I])
+    else Result := nil;
+end;
+
 { TConvertor }
 
@@ -169 +173 @@
 end;
 
-{ TSourceText }
-
-constructor TSourceText.Create;
-begin
-  Content := TStringList.Create;
-end;
-
-destructor TSourceText.Destroy;
-begin
-  Content.Free;
-  inherited Destroy;
-end;
-
 end.