unit UnitTranslatefilename1;
{

i need to have no fixed filename but command special to formating text in filename property via "<" and ">" (LESS THAN (UP) and MORE THAN(DOWN) character delimiter).

---> For example for this case :
Property FileName = dir1\hel<exename>lo.native.ini
(my full executable named execu1.exe)

result real FileName will be dir1\helexecu1lo.native.ini   :-) ;-)
- if i RENAME after my executable program execu1.exe to myexecu2user.exe and after re-run it (this new executable), real FileName change consequencly too dynamically  to dir1\helmyexecut2userlo.native.ini

Add property (published and read only?) ResultFileName  (or FileNameInterpreted ?) to know resulting FileName property interpeted (see my example to know result string) after interpreting.

with this feature, we can :
- Improve changing filename dynamically
- get exename to change "exe" extention to "ini" extention
- add special text in ini filename as : date actual, time actual, randomize, string number, etc...

see example to format/replacing FileName property:
<exename> is replaced by executable filename runned but WITHOUT ".exe" extention and WHITHOUT path directory. for example c:\dir1\myeXe1.exe give myeXe1
<filename> is replaced by full file name without ".exe" extention (give for example c:\dir1\myeXe1)
<exedir> give the actual directory where is the executable WITHOUT trailing backslash, for example, for c:\dir1\dir2\app1.exe , give dir2
<fullexedir> give full actual directory of exe : c:\dir1\dir2\app1.exe , give dir1\dir2
<date> give 21-05-2006
<time> give 21h53.97 (or 21h53 ?, or 21h53m58)
<random(52)> give integer(or float?) number between 0..52
<random> give float number between 0 and 1
<randomstr(5)> give string randomly with maximum 5 characters
<...>
....
....
etc ... ( we can add new "command" substitute)

possibility to mixed rules, for example :
user<exename>-curr-<date><random(5)>.ini


special function  : it's easy! see above :
}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ translatefilename : to replace special text formatted by string result of function}

function translatefilename(filename:string):string;
var i,j:integer;
s:string;
begin
  result:='';
  while filename<>'' do
  begin
    i:=pos('<',filename);
    if i=0 then
    begin
      result:=result+filename;
      filename:='';
          // here, we can test if '>' is present, because it's arror! because
          //  '<' should be placed BEFORE '>' : maybe we can ignore, delete this char,
          //   or raise exception? me i think delete this char is best solution
      // result:=StringReplace(result,'>','',[rfReplaceAll]); // delete '>' ?
    end
     else
    begin
      result:=result+copy(filename,1,pred(i));
      delete(filename,1,i);
      j:=pos('>',filename);
      s:=copy(filename,1,pred(j));
     // s:=StringReplace(s,'>','',[rfReplaceAll]); // delete '<' ?
      delete(filename,1,j);
      result:=result+'+'+uppercase(s)+'-';  // uppercase or special function to replace command!
//      result:=result+'+'+processcommand(s)+'-';  // uppercase or special function to replace command!
      s:='';
    end;
  end;
end;

{
function processcommand(s:string):string;
begin
  if upcase(s)='exename' then result:=....... else
  if s='random' then .... else
  if s='date' then..... else
  if pos('addition('=1 then ..... else // then addition (a,b) = a+b variable!
  ..................... else    // for example 'multiplie(4,5),-> result=20 ! :)
  result:='';
end;
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.Text:=translatefilename(edit1.Text);
end;

end.