Вытащить часть строки из имени файла

[calypso]

Задача такая,найти все файлы по шаблону в папке с программой (без внутренних каталогов),например:
Dump_02B60000_00040000.bin
Открываем его через CreateFile,далее необходимо выдернуть из имени 2 параметра:
02B60000
00040000

Как проще всего это сделать?

[Stilet]

Искать по FindFirst() FindNext().
Открывал бы я его через TFileStream.
Насчет параметров обычные Copy() Pos() Delete() помогут разделить имя файла на части. Или:

with TStringList.create do begin 
 Delimiter:='_'; 
 DelimitedText:='Dump_02B60000_00040000';
 ...
 теперь Strings[] является массивом с разделенными частями в имени файла
 ...
free;
end;

[Yurk@]

uses StrUtils;

var
  s, s1, str : string;
  i, i1 : integer;
begin
  str := 'Dump_02B60000_00040000.bin';
  i := pos('_', str);    // получаем индекс первого "подчеркивания"
  i1 := posex('_',str,i+1); // получаем индекс второго "подчеркивания"
  s := copy(str,i+1, i1-i-1); // получаем первый параметр
  s1 := copy(str,i1+1, Length(str)-i1-4); // получаем второй параметр отсекая сразу и расширение файла (-4)

[execom]

Ну как искать файл я совсем недавно писал ТУТ
очевидно что искать нужно по маске *.bin так же судя по всему формат названия всегда един т.е. Dump_XXXXXXXX_YYYYYYYY.bin следовательно можно чекать строки как-то так:

{$APPTYPE CONSOLE}
const
  st='Dump_02B60000_00040000.bin';

type
  Param = record
    a : string;
    b : string;
  end;

function CheckParam(fName : string) : Param;
begin
Result.a:=copy(fName,6,8);
Result.b:=copy(fName,15,8);
end;

var
  p : Param;
begin
p := CheckParam(st);
writeln(p.a);
writeln(p.b);
readln;
end.

[calypso]

очевидно что искать нужно по маске *.bin так же судя по всему формат названия всегда един т.е. Dump_XXXXXXXX_YYYYYYYY.bin

Да это файлы дампа памяти,ХХХХХХХХ это адрес смещения в памяти,а YYYYYYYY размер блока памяти.Прога будет их обнаруживать и автоматически проецировать в память