Platzhalter in einem String...

[Markus]

Hallo,

ich weiß nicht ob es sowas schon gibt, aber ich habe eine Funktion geschrieben, die aus einer Maske einen Dateinamen generiert. Hier die Funktion:

Delphi-Quellcode:

function string2filename(maske, interpret, album, titel, track: string): string;
var 
  i, p: integer;
  platzhalter,bezeichnung: TStringList;
begin
  platzhalter := TStringList.create; //erstellen der Stringlisten
  bezeichnung := TStringList.Create;

  platzhalter.Add('%I'); //Hinzufügen der gewünschten Werte u. Bezeichnungen
  bezeichnung.Add(interpret);

  platzhalter.Add('%A');
  bezeichnung.Add(album);

  platzhalter.Add('%T');
  bezeichnung.Add(titel);

  platzhalter.Add('%E');
  bezeichnung.Add('mp3');

  platzhalter.Add('%N');
  bezeichnung.Add(track);


  for i := 0 to platzhalter.Count - 1 do  //Ersetzen der Platzhalter im Maskenstring durch die realen Werte
  begin 
    p := pos(platzhalter.Strings[i], maske);
    if p <> 0 then 
    begin
      delete(maske, p, 2);
      insert(bezeichnung.Strings[i], maske, p);
    end;
  end;

platzhalter.Free;
bezeichnung.Free;

result := maske;
end;

und hier ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(string2filename('%N.%I - %T.%E', 'Otto Mustermann', 'Mein erstes Album', 'Mein Lied', '1'));
end;

Man kann die Funktion beliebig ändern, d.h. neue Werte hinzufügen oder alte löschen.

Für Vorschläge bin ich offen

[edit=Matze]Code formatiert. Mfg, Matze[/edit]