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;