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

[nefakt]

Я нажал Step over у меня остановилось на этом

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.Run;
end.

и это "begin" выделено
а если сделаю Trace into
то открывается это

initialization
  EmptyCI.Ready := False;
  EmptyCI.X := -99;
  EmptyCI.X := -99;
  EmptyCI.Bmp := nil;
  EmptyCI.FillColor := clFuchsia;
  
  sFuchsia.C := $FF00FF;
  acScrollBtnLength := GetSystemMetrics(SM_CXHSCROLL);

  acs_MsgDlgOK             := LoadStr(s_MsgDlgOK);
  acs_MsgDlgCancel         := LoadStr(s_MsgDlgCancel);
  acs_MsgDlgHelp           := LoadStr(s_MsgDlgHelp);

  acs_RestoreStr           := LoadStr(s_RestoreStr);
  acs_MoveStr              := LoadStr(s_MoveStr);
  acs_SizeStr              := LoadStr(s_SizeStr);
  acs_MinimizeStr          := LoadStr(s_MinimizeStr);
  acs_MaximizeStr          := LoadStr(s_MaximizeStr);
  acs_CloseStr             := LoadStr(s_CloseStr);

  acs_Calculator           := LoadStr(s_Calculator);

  acs_FileOpen             := LoadStr(s_FileOpen);

  acs_AvailSkins           := LoadStr(s_AvailSkins);
  acs_InternalSkin         := LoadStr(s_InternalSkin);

  acs_ErrorSettingCount    := LoadStr(s_ErrorSettingCount);
  acs_ListBoxMustBeVirtual := LoadStr(s_ListBoxMustBeVirtual);

  // Color dialog
  acs_ColorDlgAdd          := LoadStr(s_ColorDlgAdd);
  acs_ColorDlgDefine       := LoadStr(s_ColorDlgDefine);
  acs_ColorDlgMainPal      := LoadStr(s_ColorDlgMainPal);
  acs_ColorDlgAddPal       := LoadStr(s_ColorDlgAddPal);

  acs_ColorDlgTitle        := LoadStr(s_ColorDlgTitle);
  acs_ColorDlgRed          := LoadStr(s_ColorDlgRed);
  acs_ColorDlgGreen        := LoadStr(s_ColorDlgGreen);
  acs_ColorDlgBlue         := LoadStr(s_ColorDlgBlue);
  acs_ColorDlgDecimal      := LoadStr(s_ColorDlgDecimal);
  acs_ColorDlgHex          := LoadStr(s_ColorDlgHex);

  // Frame adapter
  acs_FrameAdapterError1   := LoadStr(s_FrameAdapterError1);

  // Hint designer
  acs_HintDsgnTitle        := LoadStr(s_HintDsgnTitle);
  acs_HintDsgnPreserved    := LoadStr(s_HintDsgnPreserved);
  acs_HintDsgnStyle        := LoadStr(s_HintDsgnStyle);
  acs_HintDsgnBevelWidth   := LoadStr(s_HintDsgnBevelWidth);
  acs_Blur                 := LoadStr(s_Blur);
  acs_HintDsgnArrowLength  := LoadStr(s_HintDsgnArrowLength);
  acs_HintDsgnHorizMargin  := LoadStr(s_HintDsgnHorizMargin);
  acs_HintDsgnVertMargin   := LoadStr(s_HintDsgnVertMargin);
  acs_HintDsgnRadius       := LoadStr(s_HintDsgnRadius);
  acs_HintDsgnMaxWidth     := LoadStr(s_HintDsgnMaxWidth);
  acs_HintDsgnPauseHide    := LoadStr(s_HintDsgnPauseHide);
  acs_Percent              := LoadStr(s_Percent);
  acs_HintDsgnOffset       := LoadStr(s_HintDsgnOffset);
  acs_HintDsgnTransparency := LoadStr(s_HintDsgnTransparency);
  acs_HintDsgnNoPicture    := LoadStr(s_HintDsgnNoPicture);
  acs_Font                 := LoadStr(s_Font);
  acs_Texture              := LoadStr(s_Texture);
  acs_HintDsgnLoad         := LoadStr(s_HintDsgnLoad);
  acs_HintDsgnSave         := LoadStr(s_HintDsgnSave);
  acs_HintDsgnColor        := LoadStr(s_HintDsgnColor);
  acs_HintDsgnBorderTop    := LoadStr(s_HintDsgnBorderTop);
  acs_HintDsgnBorderBottom := LoadStr(s_HintDsgnBorderBottom);
  acs_Shadow               := LoadStr(s_Shadow);
  acs_Background           := LoadStr(s_Background);
  acs_Gradient             := LoadStr(s_Gradient);
  acs_PreviewHint          := LoadStr(s_PreviewHint);

  acs_Root                 := s_Root;
  acs_SelectDir            := LoadStr(s_SelectDir);
  acs_Create               := LoadStr(s_Create);

  acs_InvalidDate          := LoadStr(s_InvalidDate);
  if acs_InvalidDate = '' then acs_InvalidDate := 'Invalid date';

  acs_DirWithSkins         := s_DirWithSkins;
  acs_SelectSkinTitle      := s_SelectSkinTitle;
  acs_SkinPreview          := s_SkinPreview;

finalization
  if Assigned(SmallShellImages) then FreeAndNil(SmallShellImages);
  if Assigned(LargeShellImages) then FreeAndNil(LargeShellImages);

end.

и выделяется "initialization" если так и нажимать F7 или F8 он переключается на параметр ниже в итоге я жму пока до конца не дойдет а как доходит открывается приложение я опять выбираю файл и опять ошибка та же

Вот это выделилось красным " acs_Percent := LoadStr(s_Percent);" в логе пишет Source Breakpoint at $005B80BD

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

fFile.Read(version,sizeof(version)) ;//FS это поток наш

поставьте здесь бряк.
и отсюда трассируйте.

[nefakt]

Это выделилось

fFile.Read(version,sizeof(version));//FS это поток наш

и в логе пишет Source Breakpoint at $005B0A0A

Вот какой сейчас у меня код исходной

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, acProgressBar, StdCtrls, sLabel, sEdit, sListBox, sButton,
  sDialogs;

    type
TElList1Element=record
 id:integer;
 name: array [0..31] of WideChar;
 int1:integer;
 int2:integer;
 int3:integer;
 int4:integer;
end;

TElList1=record
 offsetdata:array[0..3] of byte;
 data:array of TElList1Element;
end;

TElList2Element=record
 id:integer;
 name: array [0..31] of WideChar;
end;

TElList2=record
 data:array of TElList2Element;
end;

type
  TForm10 = class(TForm)
    sButton1: TsButton;
    sListBox1: TsListBox;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    sEdit4: TsEdit;
    sEdit5: TsEdit;
    sEdit6: TsEdit;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
    sLabel5: TsLabel;
    sLabel6: TsLabel;
    sProgressBar1: TsProgressBar;
    sOpenDialog1: TsOpenDialog;
    procedure sButton1Click(Sender: TObject);
    procedure sListBox1Click(Sender: TObject);
  private
  ListPos: array [1..4] of Integer;  // сюда сохраняем смещения листa
  ListLen: array [1..4] of Integer;  // сюда сохраняем количество элементов
  ffile: tStream;
  procedure OpenList1(lb: TListBox); // это у нас собс-но открытие первого листа
   procedure FillListPos; // это будет заполнение листа
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

var
  ElList1Element: array of TElList2Element;
  version,sign:word;
  List1:TElList1;
  List2:TElList2;
procedure TForm10.OpenList1(lb: TListBox);
 var
  num: integer;
  w: widestring;
begin
  num := lb.ItemIndex;
  sEdit1.Text:=IntToStr(ElList1Element[num].id);
  SetLength(w, 32);
  Move(ElList1Element[num].name[0], w[1], 64);
  sEdit2.Text:=w;
end;

procedure TForm10.sButton1Click(Sender: TObject);
var
  count, i, p: Integer;
  ws: WideString;
begin
  if sOpenDialog1.Execute then  begin
    if not FileExists(sopendialog1.FileName) then exit;

    if Assigned(fFile) then
    begin
      FreeAndNil(fFile);
    end;
    // Создаем поток
    fFile := TFileStream.Create(sOpenDialog1.FileName, (fmOpenReadWrite{or fmShareExclusive}));

    // Читаем лист 1

  end;
     //открыли файл и начинаем читать
 fFile.Read(version,sizeof(version));//FS это поток наш
 if(version<>69) then //версия не та что мы ожидаем
 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));
    begin
SetLength(ws,lstrlenW(@ElList1Element[i].name[0]));
 Move(ElList1Element[i].name[0],ws[1],Length(ws)*2);
 sListBox1.Items.Add(IntToStr(ElList1Element[i].id) + ' - ' + ws);
     end;
end;
 procedure TForm10.FillListPos;//(Обработка данных) чтение из массива
var
  fListLen: Integer;
begin
(*
== подсчет смещений каждого последующего листа ==
8 это смещение первого листа.
8 + 4 + размер первого листа = смещение второго листа.
смещение второго листа + 4 + размер второго листа = смещение третьего, и т.д.
*)
  ListPos[1] := 8;
  if Assigned(fFile) then begin
    fFile.Position := ListPos[1]; // устанавливавем маркер в позицию начала Листа1
     fFile.Read(fListLen, SizeOf(fListLen)); // Считываем количество элементов
     ListLen[1] := fListLen;
    ListPos[2] := ListPos[1] + ListLen[1]*SizeOf(TElList1Element) + 4; // получаем смещение второго листа
   end;
end;

procedure TForm10.sListBox1Click(Sender: TObject);
begin
    openlist1(slistbox1);
end;

end.

Может тут что не так в самом коде

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

так, на глаз не скажу, дома буду проверю в компиляторе.

[nefakt]

Хорошо спасибо.

[nefakt]

Ну чего ещё не проверили?

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

вот глянь.

[nefakt]

Хорошо сейчас попробую. У меня заранее еще один вопрос вы знаете то что модели и картинки пишутся так "Surfaces\图标\通用物品\百战刀.dds" как сделать так что бы при нажатии например ка кнопку рядом открывался список всех картинок. Что бы можно было выбрать нажать и он сам изменит на новый путь? Думаю вы меня поняли о чем я.

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

сначала определитесь откуда брать список будете.
ибо вообще это архивы pck(вроде не путаю расширение)

[nefakt]

Да так и есть в sELider`е пишется так "Surfaces\图标\通用物品\百战刀.dds" а находится эта папка и т.д. в surfaces.pck потом идет "Surfaces\图标\通用物品\百战刀.dds" "Surfaces" и т.д. находятся внутри surfaces.pck