1:
2:
3:
4:
5:
6:

case PatternPtr^ of 
  #0: 
  begin 
    result := StringPtr^ = #0;  //Was soll das denn? das ist immer true
    if result or (StringRes=nil) or (PatternRes=nil) then  //hier steigt er demnach immer aus
      Exit;  //wird wahrscheinlich zur Ablehnung der ganzen Sache führen, da Exit sehr ungern gesehen ist					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function translate(code:string):string;
var zeilen,woerter,zz:TStringArray;
z:integer;
asmcode,errors:string;
begin
  errors:='';
  asmcode:=lesedateiinhalt(lib_verzeichnis+leseiniwert('anfang'));
  zeilen:=Split(code,#13#10);
  for z:=low(zeilen) to high(zeilen) do
  begin
    if not(like(zeilen[z],'*|*'))then//wenn in der Zeile nur eine Anweisung steht
    begin
      woerter:=split(zeilen[z],' ');//Zeile "auseinandernehmen"
      if like(woerter[low(woerter)],'//*')then
        //wenn Kommentar, tue nichts
      else if lowercase(woerter[low(woerter)])='hw' then
        asmcode:=asmcode+#13#10+'Hier kommen die Hello-World-Befehle hin.'
      else//wenn Befehl unbekannt
        errors:=errors+#13#10'Unbekannter Befehl: Z '+inttostr(z+1);
    end
    else//wenn in der Zeile mehrere Anweisungen, durch "|" getrennt, stehen
    begin
      zz:=split(zeilen[z],'|');
      asmcode:=asmcode+#13#10+translate2(stringarray2string(zz,#13#10));
    end;
  end;
                                
  if errors<>'' then //wenn Fehler
    result:='~ERRORS~:'+errors
  else //wenn kein Fehler
    result:=asmcode;
end;