String Formatierung

[Wishmaster]

Hi

ich habe es zum laufen gekriegt.

Hier ist meine Lösung

Delphi-Quellcode:

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

  for I := 1 to Length(fTag) do            { TODO : Length bug }
   begin
    if Copy(fFormat, i, 2) = '%1' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // Artist

    if Copy(fFormat, i, 2) = '%2' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // Title

    if Copy(fFormat, i, 2) = '%3' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // Album

    if Copy(fFormat, i, 2) = '%4' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // Year

    if Copy(fFormat, i, 2) = '%5' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // Track

    if Copy(fFormat, i, 2) = '%6' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // Genre

    if Copy(fFormat, i, 2) = '%7' then
     s:= s + SL[pred(StrToInt(copy(fFormat, i + 1, 1)))];     // ' - '
   // or s:= s + ' - '
   end;
  finally
    Result:= s;
    SL.Free;
   end
end;

Thx