String nach bestimmten muster auflösen

[Rollo62]

Nur mal am Rande;

Warum nimmst du nicht die gleichen Zeichenbefehle wie in TPathData ?
Könnte sein das dies so komplett definiert ist.

Bin zwar nicht sicher für alle Elemente, aber zumindest LineTo und MoveTo wird genauso wie in Inkscape geschrieben.
Ich würde einfach mal einen Path in Inkscape schreiben so wie du ihn gerne hättest, und dann mal analysieren
wie dies in Xml kodiert ist.
Wahrscheinlich macht eine solche "Zeichensprache" mehr Sinn wenn sie möglichst kompatibel ist (Inkscape, FireMonkey TPathData).

Rollo

[hathor]

Kennst Du TURTLE ?
http://www.hsg-kl.de/faecher/inf/mat...ten/turtle.php

https://de.wikipedia.org/wiki/Turtle-Grafik

[BUG]

Zitat von Rollo62:

Warum nimmst du nicht die gleichen Zeichenbefehle wie in TPathData ?

Ich vermute, dass das ein krudes proprietäres Format ist, das Overphil unterstützen muss

Langfristig würde ich darüber nachdenken, die Stringersetzung durch einen AST zu ersetzen. Du hast Objekte, die einzelnen Syntaxelemente repräsentieren: in deinem Fall Befehle und Schleifen.
Mit einem Visitor kannst du das Ganze dann ausführen, in ein anderes Format exportieren, oder auch einfach die Schleifen entrollen.

[Overphil]

So, hab es mal mit der Rekursion versucht, allerdings klappt das ganze noch nicht so. Es wird jetzt nur die erste Klammerebene aufgelöst, aber sobald eine wiederholung in einer klammer ist klappt das nicht mehr.

Code:

function TForm1.getRepStr(str:string; count:integer) : string;
var repInt, bracketPlace1, bracketPlace2, i, wCount : integer;
  repStr : string;
begin

     wCount:=0;
     repInt:=getCount(str, count);
     bracketPlace1:=count+Length(IntToStr(repInt))+2;

     i:=bracketPlace1;
     while wCount<>-1 do begin
           if str[i]=')' then begin
              wCount:=wCount-1;
              if wCount=-1 then begin
                 bracketPlace2:=i+1;
                 break;
                 end;
              end
              else if str[i]='(' then begin
                   wCount:=wCount+1;
              end;
     i:=i+1;
     end;

     repStr:=Copy(str, bracketPlace1, bracketPlace2-bracketPlace1-1);

     repStr:=repeatString(repStr, repInt);
     ShowMessage('repStr: ' + repStr);
     if containsW(repStr)=true then repStr:=getRepStr(repStr, 1)
     else result:=repStr;

end;

[Zacherl]

Irgendwie so in der Art könnte es aussehen:

Delphi-Quellcode:

function TForm2.ParseString(Root: TTreeNode; const S: String): Integer;
var
  I, J: Integer;
  T: TTreeNode;
begin
  I := 1;
  while (I <= Length(S)) do
  begin
    if (S[I] in ['W', 'V', 'R']) then
    begin
      J := I + 1;
      while (J <= Length(S)) and (S[J] in ['0'..'9']) do
      begin
        Inc(J);
      end;
      T := TreeView1.Items.AddChild(Root, Copy(S, I, J - I));
      if (S[I] = 'W') then
      begin
        Inc(I, J - I + ParseString(T, Copy(S, J + 1, Length(S))));
      end else
      begin
        Inc(I, J - I);
      end;
    end else if (S[I] = ')') then
    begin
      Inc(I);
      Break;
    end else
    begin
      raise Exception.Create('Failed to parse string.');
    end;
  end;
  Result := I;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  TreeView1.Items.Clear;
  TreeView1.Items.BeginUpdate;
  try
    ParseString(nil, AnsiUpperCase('V900W2(w2(v90))V90W5(V45)'));
  finally
    TreeView1.Items.EndUpdate;
  end;
end;

Geht auf jeden Fall noch eleganter, aber die Lösung hier sollte recht einfach zu verstehen sein. Die Funktion zerlegt den String in seine Einzelteile und ordnet die Befehle dann in einen TreeView ein.

[Dejan Vu]

Hier mal Pseudocode.

Delphi-Quellcode:

procedure Parse;
begin
  While GetNextCommand(command) do
    Execute(command);
end;

Function GetNextCommand(var cmd : TCommand) : Boolean;
var
  c : Char;

Begin
   if AtEof Then Exit(False)
   c := TakeChar;
   if c=')' then Exit(False);
   if not (c in allowedCommands) then raise Exception.Create('Invalid command');
   cmd := TCommand.Create;
   cmd.Command := c;
   cmd.Value := TakeNumber;
   if (cmd.Command = RepeatCmd) then
     if TakeChar<>'(' then Raise Exception.Create('Expected "("')
   result := True;
End;

Procedure Execute (aCmd : TCommand);
Begin
  case aCmd.Command of
    RepeatCmd : Parse;
    ForwardCmd : GoForward (aCmd.Value);
    RightCmd : TurnRight(aCmd.Value);
    ...
  end
end;

Function AtEof : Boolean;
Begin
  result := CurrentPtr>Length(InputString);
End;

Function TakeChar : Char;
Begin
  result := InputString[CurrentPtr];
  inc(CurrentPtr);
End;

Function TakeNumber : Integer;
Var
  p : Integer;

Begin
  p := CurrentPtr;
  While TakeChar in Digits and  Not AtEof;
  if p=CurrentPtr then Raise Exception.Create('Not a number');
  result := StrToInt(Copy(InputString,p,CurrentPtr-p));
end;

Procedure Run (aString : String);
Begin
  InputString := aString;
  CurrentPtr := 1;
  Parse;
End;

Ganz grob skizziert.

[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?

[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;