В Memo не выводится то что требуется!

[JasperCRT]

Смысл программы это нахождение всех файлов с расширением *.mp3 в заданной директории и вывод Id3Tag инфы в мемо с последующим сохранением в txt! Проблема в том что мне нужно сначала вывести порядковый номер файла а после этого имя исполнителя и название трека в мемо но получается полная чепуха! Порядковый номер зашкаливает за тысячи с первого же трека а тире и название трека не выводятся вовсе! Ниже часть кода программы. Кто может помогите)

procedure Tform1.readID3Tag(FilePath: string);///Добавляет инфо в мемо

var
  FS: TFileStream;
  Buffer: array [1..64] of Char;
  Titel: string[30];
  Artist: string[30];
  i:integer;
begin
  FS := TFileStream.Create(FilePath, fmOpenRead or fmShareDenyWrite);
  try
    FS.Seek(-125, soFromEnd);
    FS.Read(Buffer, 64);
    begin
      inc (i);
      Titel := Copy(Buffer, 1, 30);
      Artist := Copy(Buffer, 34, 30);
      TagCr.Lines.Add(inttostr(i)+'.'+artist+' - '+titel);
    end;
  finally
    FS.Free;
  end;
end;

procedure Tform1.GetFiles( Path: string);///Ищет файлы с расширением *.mp3
 var
 sRec: TSearchRec;
 isFound: boolean;
 begin
 isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
 while isFound do
 begin
 if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
 begin
 if ( sRec.Attr and faDirectory ) = faDirectory then
 GetFiles( Path + '\' + sRec.Name);
 if pos('.mp3',copy(sRec.Name, length(sRec.Name)-3,4))=1 then begin
 readID3Tag(Path+'\'+sRec.Name);
 end;
 end;
 Application.ProcessMessages;
 isFound := FindNext( sRec ) = 0;
 end;
 FindClose( sRec );
 end;

Получается такая каша:

[JasperCRT]

В идеале должно быть так:

[SNUPY]

попробуйте-ка вот так:

TagCr.Lines.Add(inttostr(TagCr.Lines.Count+1)+'.'+artist+' - '+titel);

[Аватар]

Ну с порядковым номером все ясно - переменная i в readID3Tag - пишет естественно чепуху. Передавайте номер п/п как параметр и считайте его в GetFiles. Насчет Titel и Artist - скорее всего не потому смещению считываете, разбирайтесь

[fate]

переменная i должна быть или глобальной или как предложил Аватар передавать ее в функцию, SNUPY тоже дело написал.

еще обратил внимание что в этом условии лишнего напихал
if pos('.mp3',copy(sRec.Name, length(sRec.Name)-3,4))=1 then begin

проще ж так
if pos('.mp3',sRec.Name)>0 then begin

или так
if ExtractFileExt(sRec.Name)='.mp3' then

[Step_UA]

      Titel := Copy(Buffer, 1, 30);
      delete(Titel, pos(#0,Titel),29);
      Artist := Copy(Buffer, 31, 30);
      delete(Artist, pos(#0,Artist),29);

а переменную i объявите глобально и инициализируйте ее

[JasperCRT]

SNUPY Спасибо с числами помогло!
Аватар в GetFiles она пишет туже чепуху! Помог код который дал SNUPY Title и Artist считываю точно! Проверял по одному

TagCr.Lines.Add(titel);
TagCr.Lines.Add(artist);

отображается всё нормально;

[JasperCRT]

Step_UA Спасибо огромное помогло! Можешь объяснить для чего delete(Artist, pos(#0,Artist),29); ?
Всем кто принимал участие тоже огромное спасибо!

[Step_UA]

в файле находится так называемая ASCII-Z последовательность, 0 - признак конца строки. после простого копирования получится "нужная строка"#0#0...

[JasperCRT]

Спасибо огромное за информацию!