- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
procedure interpretation;
var
s,f:string;
i,m,v:integer;
begin
s:=#0;
for I:=0 to form9.Memo2.Lines.Count-1 do begin
s:=form9.Memo2.Lines.Strings[i];//ïðîñìîòð ñòðîê èäåò
//ñâåðõó âíèç
if s='hex' then hex;
if s='acsii' then acsii;
if (s[1]='a') and (s[2]='d') and (s[3]='d') then begin
form9.Edit6.Text:=s[5];
form9.Edit5.Text:=s[7];
peredsim;
end;
if (s[1]='s') and (s[2]='a') and (s[3]='m') then begin
form9.Edit2.Text:=s[5];
form9.Edit4.Text:=s[7];
samsimbyl;
end;
if (s[1]='d') and (s[2]='e') and (s[3]='l') then begin
form9.Edit3.Text:=s[5];
for v:=1 to length(s) do
deletesimbyl;
end;
if (s[1]='d') and (s[2]='e') and (s[3]='l') and (s[4]='s') then begin
form9.Edit3.Text:=s[6];
dels;
end;
if (s[1]='i') and (s[2]='n') and (s[3]='f') then begin
form9.Memo1.Text:=s[5]+form9.Memo1.Text;
end;
if (s[1]='f') and (s[2]='n') and (s[3]='i') then begin
form9.Memo1.Text:=form9.Memo1.Text+s[5];
end;
if (s[1]='p') and (s[2]='h') and (s[3]='e') then RapsrRedel;
if (s[1]='n') and (s[2]='a') and (s[3]='b') then PerstNO;
if (s[1]='a') and (s[2]='t') and (s[3]='s') then acsiitosim;
if (s[1]='h') and (s[2]='t') and (s[3]='s') then hextosim;
if (s[1]='h') and (s[2]='t') and (s[3]='a') then hextoacsii;
if (s[1]='a') and (s[2]='t') and (s[3]='h') then acsiitohex;
end;
end;
Нужно было быстро накодить интерпретатор, которым никто пользоваться не будет, кроме собственно автора программы, для создания простеньких скриптов (сами понимаете семантический анализатор писать, в данном случае не улыбалось). Потому получился такой МегОАдЪовый говнокод!
Follow us!