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

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

на вопрос не ответили.

[nefakt]

Не знаю. Не подскажите от куда лучше?
Вот типа такого как в платном редакторе типа такого сделать хочу.


Что то не понятно или я криворукий
хочу дописать 3 лист дописываю эти значения запускаю а лист не появляется все теже 2 и видны

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

TElList3=record
 offsetdata:array[0..3] of byte;
 data:array of TElList3Element;
end;

var
  Form1: TForm1;
  version,sign:word;
  List1:TElList1;
  List2:TElList2;
  List3:TElList3;

А все со страницами разобрался =)

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

Не знаю. Не подскажите от куда лучше?

проще распаковать pck файл и брать пути оттуда.
хотя есть сорцы для чтения pck, но они на С(чтоб самим работать с ними, а не через консольную утилиту)

[nefakt]

Как я понял это что бы изменить нужно распаковать .pck и потом только можно будет менять так? Если да то как реализовать.

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

ну утилиты по распаковке много где можно нарыть.
а далее банально по CreateProcess и ждать пока отработает(этого добра тоже навалом)
рядом с архивом будет папка Surfaces_files(как то так, точно не помню)
и уже позволить выбирать в ней(или добавлять в нее)

[nefakt]

И ещё по примеру того как вы создали первый лист я решил сделать второй вот код

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, unit1, StdCtrls, ExtCtrls;

type

    PElList2=^TElList2;

  TFrame3 = class(TFrame)
    ListBox1: TListBox;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure ListBox1Click(Sender: TObject);
  private
    List:PElList2;
  public
    constructor Create(List:PElList2; Owner:TWinControl);
  end;

implementation

{$R *.dfm}

constructor TFrame3.Create;
 var i:integer;
begin
 inherited Create(Owner);
 Parent:=Owner;
 ListBox1.Clear;
 Self.List:=List;
 for i:=0 to Length(List^.data)-1 do
  ListBox1.Items.Add(WideCharArToWideStr(List^.data[i].name));
end;

procedure TFrame3.ListBox1Click(Sender: TObject);
var i:integer;
begin
 if ListBox1.ItemIndex>0 then
  begin
   i:=ListBox1.ItemIndex;
   Label1.Caption:=IntToStr(List^.data[i].id);
   Edit1.Text:=WideCharArToWideStr(List^.data[i].name);
end;
end;

end.

Прописал все все нормально. Запускаю программу выбираю 2-ой лист и все 0 внимание ни чего не показывает.

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

ListBoxClick там в case прописали создание этого фрейма?

[nefakt]

Ну то что новую страницу код скинул там в ListBox прописан в принципе и создания. На главной форме вот дописал тут

uses Unit2, Unit3;

и тут

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if Combobox1.ItemIndex<0 then exit;
 if Assigned(Frame) then FreeAndNil(Frame);
 case Combobox1.ItemIndex of
  0:Frame:=TFrame3.Create(@List2,Panel1);
  //1: и тп
 end;

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

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if Combobox1.ItemIndex<0 then exit;
 if Assigned(Frame) then FreeAndNil(Frame);
 case Combobox1.ItemIndex of
  0:Frame:=TFrame2.Create(@List1,Panel1);
  1:Frame:=TFrame3.Create(@List2,Panel1);//первое индекс названия страницы в боксе, далее класс Frame для этой страницы
 end;

первое же верно.

[nefakt]

Все теперь фрейм вызывается но вызывается пустой не загружая листа