Zitat:
{ Content auf Command Parsen }
CommandPos := Pos(Content, ' ');
Commands := Copy(Content, 0, CommandPos +4);
Memo1.Lines.Add('Parse Commands: ' + Commands);
{ Content auf Ausführung Parsen }
TextPos := Pos(Content, ' ');
Text := Copy(Content, 6, TextPos +Length(content));
Memo1.Lines.Add('Parse Text: ' + Text);
Wenn ich mich richtig entsinne ist Pos so aufgebaut:
Pos(Substring, String), du hast glaube ich (String, Substring) benutzt.
So suchst du dann nach Content in ' '
Weiterhin ermittelst du das Leerzeichen im String Content, das an Position 5 ist.
Es reicht also zu sagen:
Delphi-Quellcode:
Commands := Copy(Content, 0, CommandPos-1)
Text := Copy(Content, CommandPos+1, length(Content)-CommandPos)
Wobei du das CommandPos vielleicht in Trennzeichen oder so umtaufen solltest, weil
es nichts mehr mit dem Command zu tun hat, sonder als Trennung von Command und Text
dient.
Gruß Minz