Changeset 25 for trunk/Forms/UFormImportFormat.pas

Timestamp:

May 8, 2016, 10:56:38 PM (8 years ago)

Author:

chronos

Message:

• Added: Use block start/end for source import format parsing.

File:

• trunk/Forms/UFormImportFormat.pas (modified) (4 diffs)

trunk/Forms/UFormImportFormat.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    EditBlockEnd: TEdit;
+    EditBlockStart: TEdit;
     EditName: TEdit;
     EditAcronymStart: TEdit;
@@ -30 +32 @@
     Label6: TLabel;
     Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
   private
     { private declarations }
@@ -49 +53 @@
 begin
   EditName.Text := ImportFormat.Name;
+  EditBlockStart.Text := ImportFormat.Block.StartString;
+  EditBlockEnd.Text := ImportFormat.Block.EndString;
   EditAcronymStart.Text := ImportFormat.Acronym.StartString;
   EditAcronymEnd.Text := ImportFormat.Acronym.EndString;
@@ -60 +66 @@
 begin
   ImportFormat.Name := EditName.Text;
+  ImportFormat.Block.StartString := EditBlockStart.Text;
+  ImportFormat.Block.EndString := EditBlockEnd.Text;
   ImportFormat.Acronym.StartString := EditAcronymStart.Text;
   ImportFormat.Acronym.EndString := EditAcronymEnd.Text;