String Formatierung

[Wishmaster]

Hi

brauche mal wieder eure Hilfe bei einem kleinem Problem. Ich habe mir en CD-Ripper/Converter geschrieben.

das Problem ist ich komme bei der File Formatierung nicht weiter!

Hier ein kleines Beispiel wie ich es mir Vorstelle.

Delphi-Quellcode:

{
%1 = Artist
%2 = Title
%3 = Album
%4 = Year
%5 = Track
%6 =  -

 fTag =     'Sylver,The End,Crossroads,12,2006,Pop';
 fFormat =  '%1%6%2';
}

Function Get_Filename(fFormat, fTag) : String;
begin
  // ?

         // %1%6%2;
  result:= 'Sylver - The End'
 or      // %5%6%1%6%2
  result:= '12 - Sylver - The End';
end;

für das Separieren des (fTag) habe ich schon ne lösung.

Delphi-Quellcode:

type
  {$IFNDEF COMPILER4_UP}
  TSysCharSet = set of Char;
  {$ENDIF}
  TCharSet = TsysCharSet;


function ExtractDelimited(N: Integer; const S: string;          
  const Delims: TCharSet): string;
var
  CurWord: Integer;
  I, Len, SLen: Integer;
begin
  CurWord := 0;
  I := 1;
  Len := 0;
  SLen := Length(S);
  SetLength(Result, 0);
  while (I <= SLen) and (CurWord <> N) do
  begin
    if S[I] in Delims then
      Inc(CurWord)
    else
    begin
      if CurWord = N - 1 then
      begin
        Inc(Len);
        SetLength(Result, Len);
        Result[Len] := S[I];
      end;
    end;
    Inc(I);
  end;
end; 



var  c : TCharSet;
begin
   c:= [','];
  result:=  ExtractDelimited(1, fTag, c)

thx