Обработка данных

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

скинь весь проект(без elements, у меня он есть)

[nefakt]

Вот http://rghost.ru/41290822

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

procedure TForm1.Button1Click(Sender: TObject);
var
  count, i: Integer;
  fFile:TFileStream;
begin
  if not OpenDialog1.Execute then exit;
 fFile := TFileStream.Create(OpenDialog1.FileName, (fmOpenRead));
     //открыли файл и начинаем читать
 fFile.Read(version,sizeof(version));//FS это поток наш
 if(version<>69) then //версия не та что мы ожидаем
  begin
   ShowMessage('Неправильная версия файла');
   fFile.Free;
   exit;
  end;
 fFile.Read(sign,sizeof(sign));//просто запомнить надо.
 //начинаем первый лист
 fFile.Read(List1.offsetdata[0],Length(List1.offsetdata));
 fFile.Read(count,sizeof(count));
 SetLength(List1.data,count);
 for i:=0 to count-1 do
  fFile.Read(List1.data[i],sizeof(TElList1Element));
 //начинаем чтение второго листа(добавил начиная отсюда)
 fFile.Read(count,sizeof(count));
 SetLength(List2.data,count);
 for i:=0 to count-1 do
  fFile.Read(List2.data[i],sizeof(TElList2Element));
 fFile.Free;
end;

и так, к каждому листу надо будет добавлять.

(у меня то в парсере на шарпе простр экспорт, без редактора+ у меня по конфигам)

[nefakt]

Спасибо большое сейчас попробую=) а на счет .pck как я писал нужно .pck распаковать и в программе указывать путь до распакованной папки ?

и ещё как вот из исходного кода эти значений "float" писать правильно ? "int" идет как integer "unsigned int" тоже идет как я понял integer вот это "char file_model_right[128];
" как я понял писать так "file_model_right: array [0..128] of Char;" "string:128" писать как "str1: string" а вот как Float писать чет понять не могу

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

и ещё как вот из исходного кода эти значений "float" писать правильно ? "int" идет как integer "unsigned int" тоже идет как я понял integer вот это "char file_model_right[128];
" как я понял писать так "file_model_right: array [0..128] of Char;" "string:128" писать как "str1: string" а вот как Float писать чет понять не могу

int = integer
unsigned int = LongWord;
char file_model_right[128] = file_model_right: array [0..127] of Char
string:128 = см выше
wstring:128 = array [0..63] of WideChar
float = single
double = double

[nefakt]

Спасибо =)
Посмотри правильно написано

var i:integer;
s: string;
begin
 if ListBox1.ItemIndex>0 then
  begin
   i:=ListBox1.ItemIndex;
   Label1.Caption:=IntToStr(List^.data[i].id);
   Edit1.Text:=WideCharArToWideStr(List^.data[i].name);
   Edit2.Text:=WideCharArToWideStr(List^.data[i].str1);
   Edit3.Text:=WideCharArToWideStr(List^.data[i].str2);
   Edit4.Text:=FloatToStr(List^.data[i].str3);
   Edit5.Text:=FloatToStr(List^.data[i].str4);
   Edit2.Text:=FloatToStr(List^.data[i].str5);
   Edit3.Text:=FloatToStr(List^.data[i].str6);
   Edit4.Text:=FloatToStr(List^.data[i].str7);
   Edit5.Text:=FloatToStr(List^.data[i].str8);
   Edit4.Text:=FloatToStr(List^.data[i].str9);
   Edit5.Text:=IntToStr(List^.data[i].int1);

.

TElList3Element=record
 id:integer;
 name: array [0..32] of WideChar;
 str1: array [0..127] of Char;
 str2: array [0..127] of Char;
 str3: single;
 str4: single;
 str5: single;
 str6: single;
 str7: single;
 str8: single;
 str9: single;
 int1: integer;
end;

просто при открытии
вот так показывает хотя все расписал вроде правильно


А и ещё я заметил на первом листе и на втором самый первый итем не показывает свой id и доп статы все работать начинает со второго итема и дальше

[nefakt]

Все с итемами разобрался но вот с третьей страницей так и не смог, не понимаю почему он так криво считывает лист.

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

первыц массив должен быть array[0..31] of WideChar.
array of char не нужно через процедуру прогонять.

[nefakt]

С этим я уже разобрался. Я хотел узнать как сохранение сделать? И как добавить функцию копирование определенного итема в ListBox`е и поиск по ID или имени?!

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

сохранение чего и куда?

поиск просто проходить циклом и сравнивать