Changeset 37 for branches/DelphiToC/UMainForm.pas

Timestamp:

Aug 4, 2010, 4:10:35 PM (14 years ago)

Author:

george

Message:

Fixed parsing array range error.

File:

• branches/DelphiToC/UMainForm.pas (modified) (3 diffs)

branches/DelphiToC/UMainForm.pas

@@ -9 +9 @@
   Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource,
   UCSource, ComCtrls;
+
+const
+  ExampleFileName = '../../Example.pas';
 
 type
@@ -125 +128 @@
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Memo1.Lines.SaveToFile('Example.pas');
+  Memo1.Lines.SaveToFile(ExampleFileName);
 end;
 
@@ -141 +144 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
-  Memo1.Lines.LoadFromFile('Example.pas');
+  Memo1.Lines.LoadFromFile(ExampleFileName);
   Button1Click(Self);
 end;