Файл не читается (

[element]

Здраствуйте,
скажите вот пытаюсь файл прочесть, замучился уже.
как он в другой проге:


а как в моей


((

type
     Tlistik = record
     Number: string[200];
     name: integer;
   end;

   TCop = record
     Name: string[200];
     id: string[200];
  end;

var
Form1: TForm1;
Listik: Tlistik;
Cop: TCop;
Stream: TFileStream;



procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  try
   
    Stream := TFileStream.Create(edit1.Text, fmOpenRead);
   except
     ShowMessage('Cannot open file.');
     Exit;
   end;
   listbox2.Clear;
  listbox3.Clear;
  try
  for i:= 1 to strtoint(edit2.Text) do
   begin
     Stream.ReadBuffer(listik, SizeOf(Tlistik));
     Listbox2.Items.Add(listik.number + '-' + inttostr(listik.Name));
   end;
  for i := 1 to strtoint(edit2.Text) do
   begin
     Stream.ReadBuffer(Cop, SizeOf(TCop));
     Listbox3.Items.Add(Cop.Name + ' - ' + Cop.id);
   end;
  finally
    Stream.Free;
 end;
 end;

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

а вы его структуру знаете?
похоже что нет

[element]

Сообщение от Пепел Феникса

а вы его структуру знаете?
похоже что нет

не знаю структуры, но есть оффсеты листов. как с оффсетами их получить не подскажете?

Elements.data informations = 10309-MYEN-cli
Start offset = 4
Start From : 4 to 8,
Bytes skipped(4) : 9EE8A848
list0.length in bytes = 0
	========	
Start offset = 8
list1.length : 1905
list1.length in bytes = 160024
	========	
Start offset = 160032
list2.length : 7
list2.length in bytes = 480
	========	
Start offset = 160512
list3.length : 24
list3.length in bytes = 8548
	========	
Start offset = 169060
list4.length : 1819
list4.length in bytes = 2553880
	========	
Start offset = 2722940
list5.length : 7
list5.length in bytes = 480
	========	
Start offset = 2723420
list6.length : 17
list6.length in bytes = 1228
	========	
Start offset = 2724648
list7.length : 1487
list7.length in bytes = 1641652
	========	
Start offset = 4366300
list8.length : 3
list8.length in bytes = 208

и т.д.

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

это смещения и размеры самих данных а вам нужна их структура
иначе не прочесть(можно попробывать повытягивать данные используя смещение и длину)
и попытатся понять структуру блока

[element]

а как их повытягивать?

[Ntlegend]

попробуй каким нибудь редактором посмотреть (типа блокнот или чтото такое)..

[element]

структура нашлась, спасибо Ntlegend

[element]

Ntlegend ,ошибку дает



код этот:

type
 TList1 = record
 xz0: INTEGER;
 Name: string[64];
 xz1: integer;
end;

var List1:array of TList1;


.....
procedure TForm1.Button1Click(Sender: TObject);
var
f:cardinal;
br:cardinal;
p : pchar;
begin
//количество итемов
//list1.length : 1905
p := pchar(fnameedit.Text);
Setlength(List1, 1905);
f:=CreateFile(p,GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING, 0,0);
try
//смещение до начала листа
//Start offset = 8
SetFilePointer(f, 8, nil, 0);

//длинна в байтах всех итемов
//list1.length in bytes = 160024
ReadFile(f, List1[0], 160024, br, nil);//читаем в первый элемент масива
finally
CloseHandle(f);
end;
end;

[Ntlegend]

list1{
[ID, Name, ??, ??, ??, ??]
int>1
Wstring:64
int>4

после строки не одно а 4 поля integer!!

P.S. не флуди на форуме.. по вопросам в асю пиши