[Janom]

Функция проверки на имя:

Код:

function NameRevision(S:String):boolean;
const A: array [0..7] of byte = (7,8,10,11,13,14,15,16);
var i,x:Cardinal;
begin
Result:=True;
For i:=1 to Length(S) do
  if S[i]='\' then x:=i;
Delete(S,1,x);
Form1.Caption:=S;
if (Length(S)<>20) or (Pos('saved',S)<>1) or (S[6]<>' ') or (S[9]<>'-')
    or (S[12]<>'-') or (S[17]<>'.') or (S[18]<>'t')
    or (S[19]<>'x') or (S[20]<>'t') then
  begin
    Result:=False;
    exit;
  end;
for i:=0 to Length(A)-1 do
  if not (S[A[i]] in ['0'..'9'])then Result:=False;
end;

Вот как использовать:

Код:

if OpenDialog1.Execute then
  begin
    if NameRevision(OpenDialog1.FileName) then
      begin
        ShowMessage('Все КРУТО!!!');
        //Действия если все ништя и имя нам подходит...
      end else begin
        ShowMessage('Имя файла не соответствует необходимому!!!');
      end;
  end;