Узнать имя файла

[alaksion]

delphi
--------
Всем привет
надеюсь вы мне поможете, Нужно узнать полное имя файла (файл без расширения)
известны только первые 4 символа а именно "zaro" и дальше рандомные символы к примеру "14564489784897489741564674" (скрин ниже)
Надеюсь на вашу помощь

[newerow1989]

По-моему, здесь нет расширения. Расширение пишется после точки (обычно состоит из 3-4 символов)

[alaksion]

Ну это понятно Мне нужно получить ключ после "zaro" Пытался спарсить вот этой функцией, ничего не получилось

function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;

Пытался получить все файлы из каталога а потом уже спарсить как-нибудь имя файла
Получал вот так:

procedure TForm1.Button4Click(Sender: TObject);
begin
  listbox1.Clear;
  if FindFirst(i+'\' + '*.',faAnyFile,tsr) = 0 then
    repeat
      ListBox1.Items.Add(tsr.name);
    until FindNext(tsr) <> 0;
    FindClose(tsr);
end;

[newerow1989]

Самый простой способ:

Copy(s,Length('zero')+1,Length(s));

[Stilet]

Нифинта не понял, но видимо нужно так:

...:=StringReplace(lowercase(<Имя файла>),'zaro','',[]);

[alaksion]

В том то и дело что имя файла не известно полностью, оно может быть любым. Известны только первые неизменяемые 4 символа а именно zaro а остальные рандомные
к примеру может быть
zaro48947687464
или
zaro4657687811788446145564987894864
мне нужно спарсить символы после zaro

[newerow1989]

См. 4 пост (Copy) - не промахнешься!

[Stilet]

"Раз человек убеждает сам себя что ему это нужно, значит ему это не нужно" (древняя мудрость).
Может быть тебе нужно провести поиск среди файлов и найти все по маске zero*.*?
Иначе не понятно - раз имя файла у тебя уже есть в чем же проблема?

[min@y™]

где файл? неужели в интернете?

[alaksion]

Stilet, да да поиск по паске то, что нужно !!! Немогли бы привести пример ???