Pascal XE

[merouane]

Pascal XE

Free Pascal IDE

بديل مجاني ومفتوح المصدر لتوربو باسكال للويندوز (أظن مبرمجه تونسي)

كود :

Description Turbo Pascal IDE. Pascal XE is an IDE for Pascal programming, an alternative to TPW 1.5 (Borland Turbo Pascal for Windows 1.5) and Borland Turbo Pascal 7 for Windows 64-bit (x64) and 32-bit (x86). Pascal XE is a comprehensive and easy to use IDE for Pascal Coding and programming. Pascal XE uses the powerful Delphi compiler 15.0 freely distributed with Delphi 7 personal edition

الموقع:     https://sourceforge.net/projects/pascalxe

كود :

Features [*]Handy Keyboard Shortcuts [*]Multi Syntax Highlighter [*]Smart error indication (&warnings &hints) [*]Code Beautifier [*]Completion proposal [*]Custom GUI Themes [*]Multi-language user interface (English/Arabic/French) [*]Contextual Turbo Pascal help (English/French) [*]Quickly edit multiple lines with multiple carets [*]Toggle case sensitive (Lower/Upper/Title/Alternate/Sentence) [*]Line numbering [*]Print with/without Syntax highlighting [*]Html Export [*]Multi-tab [*]Reopen recently closed tabs [*]Clipboard History [*]Search function [*]Line/word/character count [*]And much more...

[فيديو: https://www.youtube.com/watch?v=bv8XZBCRXbw]

[محمد عبد العزيز]

السلام عليكم
حسب ما فهمت هو واجهة، يعني محرر اكواد والcompiler هو دلفي 7

[merouane]

السلام عليكم
حسب ما فهمت هو واجهة، يعني محرر اكواد والcompiler هو دلفي 7

هذا ما يصرح به صاحب المشروع
في السورس، بعد إطلاع سريع، لم أجد المجمع المذكور، ربما بعد تثبيت الدلفي 7 النسخة الفردية.
أو ربما نسخه إلى المجلد PascalXE\Release\LibBin

PHP كود :

procedure TMainForm.ActionCompileCompileExecute(Sender: TObject);

      PathUnits:=ExtractFilePath(Application.ExeName)+'LibBin';

      if not(FileExists(PathUnits+'\Crt.dcu')) or
         not(FileExists(PathUnits+'\DCC32.EXE')) or
         not(FileExists(PathUnits+'\DCC32.FR')) or
         not(FileExists(PathUnits+'\DCC32EN.EXE')) or
         not(FileExists(PathUnits+'\DCCRES.PXE')) or
         not(FileExists(PathUnits+'\Messages.dcu')) or
         not(FileExists(PathUnits+'\RCEDIT.exe')) or
         not(FileExists(PathUnits+'\ShellAPI.dcu')) or
         not(FileExists(PathUnits+'\SysConst.dcu')) or
         not(FileExists(PathUnits+'\SysInit.dcu')) or
         not(FileExists(PathUnits+'\System.dcu')) or
         not(FileExists(PathUnits+'\SysUtils.dcu')) or
         not(FileExists(PathUnits+'\TPWEN.HLP')) or
         not(FileExists(PathUnits+'\TPWFR.HLP')) or
         not(FileExists(PathUnits+'\Types.dcu')) or
         not(FileExists(PathUnits+'\Win32CRT.dcu')) or
         not(FileExists(PathUnits+'\WinCrt.dcu')) or
         not(FileExists(PathUnits+'\Windows.dcu')) or
         not(FileExists(PathUnits+'\WINHLP32PX.EXE'))
      then
      begin
        TmsOutput.Cells[1,1]:=LanguageDataModule.GetCompilerMessage('MissedUnits');
        TmsOutput.Colors[0,1]:=clYellow;
        FProcessingEventHandler:=false;
        Exit; 


[merouane]

بعد التثبيت، الملفات التي يعتمد عليها البرنامج للتجميع

  Untitled.png (الحجم : 79.09 ك ب / التحميلات : 19)