Записать Array of AnsiChar в Array of AnsiChar

[Anton911]

Всем привет, появилась проблема.

type ArchFiles=record
aFileNameChr:array[1..24] of AnsiChar;
end;

procedure GetFilesInfoFromImg;
  var
  FileNameChr: array[1..24] of AnsiChar;
begin
FileStream.Read(FileNameChr,24);
Files[FileIndex].aFileNameChr:=FileNameChr;
end;

На выделенной строке возникает ошибка E2008 Incompatible types, в чем проблема?

[GunSmoker]

Потому что это разные типы.

Если хочешь, чтобы они были одним типом - так и пиши:

type
  TArchName = array[1..24] of AnsiChar;

  TArchFiles = record
    aFileNameChr: TArchName;
  end;

procedure GetFilesInfoFromImg;
var
  FileNameChr: TArchName;
begin
  FileStream.Read(FileNameChr, SizeOf(FileNameChr));
  Files[FileIndex].aFileNameChr := FileNameChr;
end;

И вообще:

procedure GetFilesInfoFromImg;
begin
  FileStream.Read(Files[FileIndex].aFileNameChr, SizeOf(Files[FileIndex].aFileNameChr));
end;

[Anton911]

Странная штука какаето

type
  TArchName = array[1..24] of AnsiChar;

procedure GetFilesInfoFromImg;
  var
  FileOffset:DWORD;
  FileStrange:DWORD;
  FileNameChr: TArchName;
  FileIndex:LongInt;
begin
Process.Min:=0;
Process.Max:=ElementCount;
SetLength(DeleteFiles,0);
DeleteFilesCount:=0;
try
Begin
 for FileIndex := 0 to 8 do
    Begin
    FilesCount:=FilesCount+1;
    SetLength(Files,FilesCount);
    ImgArhStream.Seek(FileIndex*32+8,0);  
    Files[FileIndex].aRecordFileOffset:=ImgArhStream.Position; 
    ImgArhStream.Read(FileOffset,4);    
    ImgArhStream.Read(FileStrange,4);  
    ImgArhStream.Read(FileNameChr,24);  
    Files[FileIndex].aFileOffset:=FileOffset;
    Files[FileIndex].aOldFileOffset:=FileOffset;
    Files[FileIndex].aFileStrange:=FileStrange;
    Files[FileIndex].aOldFileStrange:=FileStrange;
    Files[FileIndex].aFileNameChr:=FileNameChr;
    Files[FileIndex].aFileNameStr:=String(FileNameChr);
    With Files[FileIndex] do
    Begin
    Memo_Console.Lines.Add('Название '+aFileNameChr'
     +Файл: Номер '+IntToStr(FileIndex)
      +'; Размер в блоках '+IntToStr(aFileStrange)
        +'; Смещение в блоках '+IntToStr(aFileOffset)
          +'; Смещение записи в байтах '+IntToStr(aRecordFileOffset));
    End;
    Process.Position:=FileIndex;
    Form1.Caption:=IntToStr(FileIndex);
    End;
End;
except
on E: Exception do
  begin
  showmessage('Ошибка, не важно');
  end;
end;

end;

В мемо выводится

Название bbb_lr_slv1.dff
Название bbb_lr_slv2.dff
Название bntl_b_ov.dff
Название bntl_b_sq.dff
Название bntr_b_ov.dff
Название bntr_b_sq.dff
Название bnt_b_sc_l.dff
Название bnt_b_sc_m.dff
Название bnt_b_sc_p_l.dff

Остальное не выводится. А если переделаю строку так

   Memo_Console.Lines.Add('Файл: Номер '+IntToStr(FileIndex)
      +'; Размер в блоках '+IntToStr(aFileStrange)
        +'; Смещение в блоках '+IntToStr(aFileOffset)
          +'; Смещение записи в байтах '+IntToStr(aRecordFileOffset)
            +'; Название '+aFileNameChr);

Тогда нормально выводится как надо

Файл: Номер 0; Размер в блоках 5; Смещение в блоках 257; Смещение записи в байтах 8; Название bbb_lr_slv1.dff
Файл: Номер 1; Размер в блоках 3; Смещение в блоках 262; Смещение записи в байтах 40; Название bbb_lr_slv2.dff

Теперь всплывают побочные эффекты этой штуки. Функция поиска файла не находит файл, даже если название такого файла существует.

function FindFile(FileName:String):integer;
  var
    Res,FileIndex:integer;
begin
Res:=-1;
  for FileIndex := 0 to FilesCount - 1 do
    Begin
      if Files[FileIndex].aFileNameStr=FileName then
      Begin
      Res:=FileIndex;
      break;
      End;
    End;
Result:=Res;
end;

Помогите пожалуйсто разобраться.

[Serge_Bliznykov]

Anton911, Вы серьёзно думаете, что по ОГРЫЗКУ Вышего кода, без описания, что это, для чего нужно, без исходников проекта, без исходных данных, кто-то посмотрит на код и скажет Вам, что Вы делаете не так?!!
Мне кажется, что это не очень вероятно..

p.s. Название темы - Записать Array of AnsiChar в Array of AnsiChar
мне кажется, что ответ GunSmoker это проблему разрешил, и то, что Вы тут продолжаете ВЫХОДИТ за рамки темы.
Думаю, что эту тему лучше закрыть, а обсуждение новой проблемы продолжить в новой (вновь Вами созданной теме), где Вы опишете суть проблемы и обеспечите форумчан возможностью лично смоделировать и пронаблюдать проблему.
А данную тему я бы закрыл. Согласны?!

[Stilet]

Абсолютно согласен. Ответ дан четко.