Changeset 53
- Timestamp:
- Jul 26, 2012, 3:40:30 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r52 r53 196 196 procedure TMainForm.FormShow(Sender: TObject); 197 197 begin 198 Core.CoolTranslator1.Translate; 198 199 LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey); 199 200 PageControlMain.TabIndex := 0; -
trunk/Target/UTarget.pas
r52 r53 75 75 FCompiled: Boolean; 76 76 function SourceReadNext: Char; 77 function IsOpcode(Opcode: Char): Boolean;78 77 function CheckClear: Boolean; 79 78 function CheckOccurence(C: TBrainFuckCommand): Integer; … … 409 408 Free; 410 409 end; 411 if FileExistsUTF8(CompilerPath) then 412 try 413 Process := TProcess.Create(nil); 414 Process.CurrentDirectory := ExtractFilePath(CompilerPath); 415 Process.CommandLine := LongFileName(CompilerPath) + ' ' + LongFileName(CompiledFile); 416 Process.Options := [poWaitOnExit]; 417 Process.Execute; 418 finally 419 Process.Free; 420 end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath])); 410 if CompilerPath <> '' then begin 411 if FileExistsUTF8(CompilerPath) then 412 try 413 Process := TProcess.Create(nil); 414 Process.CurrentDirectory := ExtractFilePath(CompilerPath); 415 Process.CommandLine := LongFileName(CompilerPath) + ' ' + LongFileName(CompiledFile); 416 Process.Options := [poWaitOnExit]; 417 Process.Execute; 418 finally 419 Process.Free; 420 end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath])); 421 end; 421 422 end; 422 423 … … 566 567 end; 567 568 568 function TTarget.IsOpcode(Opcode: Char): Boolean;569 begin570 Result := (Opcode = '+') or (Opcode = '-') or (Opcode = '<') or (Opcode = '>') or571 (Opcode = '[') or (Opcode = ']') or (Opcode = ',') or (Opcode = '.');572 end;573 574 569 function TTarget.CheckClear: Boolean; 575 570 begin
Note:
See TracChangeset
for help on using the changeset viewer.