Memo abarbeiten...

[pacman1986]

Delphi-Quellcode:

var I : integer;
begin
  for I  := 1 to Memo1.Lines.Count do begin
    if memo1.lines[i-1] = 'Befehl_1' 
      then begin
        //Ausführen von Befehl_1
      end;
    if memo1.lines[i-1] = 'Befehl_2' 
      then begin
        //Ausführen von Befehl_2
      end;
    if memo1.lines[i-1] = 'Befehl_3' 
      then begin
        //Ausführen von Befehl_3
      end;
...
  end;
end;

Einfach eine Schleife Benutzen

das hab ich totalö vergessen (case weg if her)