String nach bestimmten muster auflösen

[Zacherl]

Zitat von Overphil:

Danke erstmal für die vielen Antworten, das mit dem TreeView klappt zwar gut, doch wie mache ich es jetzt, dass ich eine Funktion habe, der man einen string mitgibt und dann den fertigen aufgelösten string wieder zurückgibt?

Warum willst du den Tree denn überhaupt wieder in einen String auflösen? Du kannst doch jetzt wunderbar über die Struktur traversieren und die darin enthaltenen Befehle direkt ausführen.

Auf die Schnelle aus dem Kopf:

Delphi-Quellcode:

procedure Execute(Node: TTreeNode);
var
  S: String;
  I, J: Integer;
begin
  S := Node.Text;
  if (S[1] = 'W') then
  begin
    for I := 1 to {Anzahl an Iterationen} do
    begin
      for J := 0 to Node.Childs.Count - 1 do
      begin
        Execute(Node.Childs[J]);
      end;
    end;
  end else if (S[1] = 'V') then
  begin
    // ..
  end else if (S[1] = 'R') then
  begin
    // ..
  end;
end;

[Overphil]

Alles klar, jetzt klappt alles ich danke euch!