Hi,
du hast ein TStrings und möchtest die Einträge abarbeiten? Warum nicht ganz stupides Matching? Du definierst einfach alle Befehle, die möglich sind (sollten hier nicht soviele sein). Sagen wir mal AN1..AN4, AUS1..AUS4 und Delay(xxx).
Dann lädst du einfach dieses TStringsObjekt und gehst jede Zeile einzeln durch, schreib dir eine Methode die den String parst und eine die über diese Liste iteriert
Delphi-Quellcode:
procedure parseString(command : String);
begin
if command = 'AN1' then
begin
...
end
else if command = 'AUS1' then
begin
end
...
end;
procedure start;
var i : Integer;
begin
if self.Memo.Lines.Count > 0 then
begin
for i := 0 to self.Memo.Lines.Count - 1 do
begin
parseString(self.Memo.Lines.Strings[i]);
end;
end;
end;
Ist nicht das Eleganteste, dürfte dir aber vielleicht schon reichen.
Gruß Der Unwissende