String Formatierung

[taaktaak]

Moin, Moin,

unter der Voraussetzung, dass die Reihenfolge der Einträge in FTag immer gleich ist und du die Benennung deiner Formatangabe %1..%x an die Reihenfolge der Einträge in FTag anpasst, sollte folgendes funktionieren ...

Delphi-Quellcode:

function Get_Filename(fFormat,fTag:String):String; 
var SL : TStringList;
    i  : Integer;
begin 
  SL:=TStringList.Create;
  
  try
    SL.SetText(pchar(StringReplace(fTag,',',#13,[frReplaceAll]);

    i:=0;
    repeat
      Result:=Result+SL[pred(StrToInt(copy(fFormat,i+2,1)))];
      inc(i,2)
      until i=length(fTag)

  finally
    SL.Free
    end

end;

// edit: Na, ich sehe gerade den %6 für den Bindestrich, das muss natürlich noch eingebaut werden. Sollte aber kein Problem darstellen ...