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
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.