Программа или модуль для автоматического построения алгоритмов из языка Pascal/Delphi/C

[denisbrain]

Нужен модуль для интеграции в своё приложение возможности рисования блок схем.
есть ли где исходники в свободном доступе (на языке Delphi) или лучше писать свой?

переводчик из кода в схему
пример программы
http://almiur.ru/show_prog_9.html
но нужен исходник или компонент. есть такой в сети или нет. бесплатно

[denisbrain]

функция удаления комментариев из тексте программы

Function DeleteCommentPas(s:string):string;
var l : Integer; // Длина текста
x : Integer; // временная переменная
s2:string; // полученный текст
beg:boolean; // Признак того что началась строка '' например s2:='}';
CommentRow:boolean; // признак того что начался комментарий до конца строки
CommentBlock:boolean; // признак того что начался Блок коментариев

begin
s2:='';
l:=length(s);
beg:=false;
CommentRow:=false;
CommentBlock:=false;
for X:=1 to l do begin
if (not CommentRow) and ( not CommentBlock) // если символ не входит ни в один из блоков то продолжить изучение строки
then begin
if s[x]=#39 {'} then if beg then beg:=false else beg:=true; // если строка началась значит коментарий не может быть
if beg=false then begin // если стока не началась то продолжаем изучение
if (s[x]='{') then CommentBlock:=true
else if (s[x]+s[x+1]='//') then CommentRow:=true
else s2:=s2+s[x];
end else s2:=s2+s[x]; // если стока началась то просто копируем символы строки в исходную строку
end else begin // если символ входит в один из блоков
if CommentRow then begin
if s[x]+s[x+1]=#13#10 then begin CommentRow:=false; s2:=s2+s[x]; end
end;
if CommentBlock then begin
if s[x]='}' then begin CommentBlock:=false; end;
end;


end;
end;
result:=s2;
end;

прошу протестировать

[denisbrain]

определим для программы список ключевых слов Pascal

const
  WordList:array [1..65] of string =('and','except','label','resourcestring',
  'array','exports','library','set','as','file','mod','shl','asm',
  'finalization','nil','shr','begin','finally','not','string','case','for',
  'object','then','class','function','of','threadvar','const','goto','or','to',
  'constructor','if','out','try','destructor','implementation','packed','type',
  'dispinterface','in','procedure','unit','div','inherited','program','until',
  'do','initialization','property','uses','downto','inline','raise','var',
  'else','interface','record','while','end','is','repeat','with','xor');

и напишем процедуру проверки ключевого слова

Function GetSlovoInArray(s:string):Boolean;
 var x:integer;
begin
  result:=false;
  for X:=1 to 65 do if  WordList[x]=s then begin result:=true; exit; end;
end;

и определим список разделителей для операций в паскале

 WordDelimiters := [' ',';',':'];

кроме того необходимо разделить слова на управляющие и те которые могут быть в выражениях
If/then while/do repeat/until

[niki-maximal]

исходника так и не у кого нет? просто я не могу понять