Как считать определенное количество букв из слова

[Poltev86]

Всем привет!!! Подскажите балбесу....вообщем такая проблемка...у меня есть список файлов я их гружу в базу...но вот с чем столкнулся....вот кусок кода

  q: TSearchRec;
begin
   f:= TStringList.Create();
   if FindFirst('D:\Konvert\*.txt',faAnyFile,q)=0 then
      begin
       repeat

         MaskEdit3.Text:=q.Name;
         f:= TStringList.Create();
         AssignFile(f1,'raspr.txt');rewrite(f1);
         f.LoadFromFile('D:\Konvert\'+q.Name);

вообщем в строке MaskEdit3.Text:=q.Name; получаеться результат 11.txt...а надо чтоб расширения не было..т.е.просто 11.. как это можно реализовать...

[Пепел Феникса]

 MaskEdit3.Text:=Copy(q.name,q.Name,Pos('.',q.name)-1);

возможно жирное не надо(не проверял)

[Poltev86]

Спасибо но правильнее вот так будет...

 MaskEdit3.Text:=Copy(q.Name,Pos('.',q.name)-2);