Lvl++ script editor

Télécharger le projet
Commenter

Description

cette source n'est que le début d'un long projet

c'est éditeur de texte avec:
-colorisation syntaxique Lvl++, c++, pascal, php avec le composant FireColorSynth
-console des commandes effectuer
-clipboard
-syntaxe msgbox et string & integer variable son fini.

Mon projet:
Créer un language de programmation OpenSource...En Français..Oui!Oui!
j'aimerais innover ce langage en lui permettant de:
-compiler des apps Windows, Linux, Mac et autres si possible,
-de générer des codes source en c++, liberty basic(le langage qui m'a donné l'envie et le besoin de programmer),delphi...etc,
-que n'importe qui puisse développer chez lui et pour lui...

Bien sur je me rend compte de mon tous petit niveau.
Il y en a qui vont rire...
Mais c'est pas grave.

Bien sur s'y il en a que sa intéresse c'est avec grand plaisir.
"On est toujours plus fort avec c'est potes..."de Shuriken (IAM)

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Je Tenais a remercier particulièrement METANIL & f0xi pour leur aide.
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Source / Exemple : 


//===================================================
//======================EXECUTER=====================

procedure TfrmEditeur.ExecuterClick(Sender: TObject);

var sprocess, sprocess2, s, sGo, sCopy, MSGend: ansistring;
  N, msgPos, INT: integer;
  ini: TiniFile;

begin
  Listbox1.Items.Add('Executer EDS');
  txtedition.Lines.BeginUpdate;
  try
    for N := 0 to txtedition.Lines.Count - 1 do
    begin
      s := txtedition.Lines[N];
      sGo := txtedition.Lines[N];
      sprocess := txtedition.Lines[N];
      sprocess2 := Copy(sprocess, 1, 3);
//=======================FIN=====================
      if sprocess2 = 'fin' then
      Break
//=======================MSG=====================
      else if sprocess2 = 'msg' then
//Cherche une chaine de caractère commençant par ' " '.
        while true do begin // si il y en a une...
          msgPos := Pos('"', sGo);
          if msgpos <> 0 then begin
            sCopy := Copy(sGo, msgPos + 1, Length(sGo));
            if pos('"', scopy) > 0 then begin
              MSGend := '"' + copy(scopy, 1, pos('"', scopy));
              delete(sgo, msgpos + 1, length(MSGend));
            end
            else break; // pas de fin de chaine marque par guillemet
            MSGEND := StrReplace(chr(34), '', MSGend);
            showmessage(MSGend); // ---------------dans MSGend ya ton mot
            Listbox1.Items.Add('MessageBox '+'"'+MSGend+'"');
          end
          else break;
        end
//=======================STR=====================
      else if sprocess2 = 'str' then
//Cherche une chaine de caractère commençant par ' " '.
        while true do begin // si il y en a une...
          msgPos := Pos('"', sGo);
          if msgpos <> 0 then begin
            sCopy := Copy(sGo, msgPos + 1, Length(sGo));
            if pos('"', scopy) > 0 then begin
              MSGend := '"' + copy(scopy, 1, pos('"', scopy));
              delete(sgo, msgpos + 1, length(MSGend));
            end
            else break; // pas de fin de chaine marque par guillemet
            ini := tinifile.Create('C:\Lvl.ini');
            MSGEND := StrReplace(chr(34), '', MSGend);
            ini.WriteString('STRING', Msgend, Msgend);
            Listbox1.Items.Add('Var String '+'"'+MSGend+'"'+' '+'Stocké dans (C:\Lvl.ini)');
            ini.Free
          end
          else break;
        end
//=======================STR=====================
      else if sprocess2 = 'int' then
//Cherche une chaine de caractère commençant par ' " '.
        while true do begin // si il y en a une...
          msgPos := Pos('"', sGo);
          if msgpos <> 0 then begin
            sCopy := Copy(sGo, msgPos + 1, Length(sGo));
            if pos('"', scopy) > 0 then begin
              MSGend := '"' + copy(scopy, 1, pos('"', scopy));
              delete(sgo, msgpos + 1, length(MSGend));
            end
            else break; // pas de fin de chaine marque par guillemet
            ini := tinifile.Create('C:\Lvl.ini');
            MSGEND := StrReplace(chr(34), '', MSGend);
            INT := strtoint(MSGend);
            ini.WriteInteger('INTEGER', Msgend, INT);
            Listbox1.Items.Add('Var Integer '+'"'+MSGend+'"'+' '+'Stocké dans (C:\Lvl.ini)');
            ini.Free
          end
          else break;
        end

    end;
  finally
    txtedition.Lines.EndUpdate;
  end;
end;

Conclusion :


Cette source seras mise a jour assez souvent vu le projet.
Si toute fois vous faite des mise a jour de cette source
veuillez me l'envoyer pour que je puis la diffuser.

Merci

Bien sur les idées et conseille sont aussi les bienvenue
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (craftsystem)