VPF::TCheckListBox - Форум программистов

~FoX~

Дата 28.3.2006, 10:01 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Совсем я затупил что то:
Есть на форме ЧекЛистБокс и две кнопки:

Код


type //Сама структура
  TCheckToFile = record
    MyCheckIt: boolean;
    MyPath: string[255];
  end;
//........................

procedure TForm1.SaveClick(Sender: TObject);
var
  m: array of TCheckToFile;
  j, i: integer;
  FS: TFileStream;
begin
  j := CheckListBox1.Items.Count -1;
  SetLength(m, j);    // Устанавливаем размер структуры
  for i := 0 to j do begin
    m[i].MyCheckIt := CheckListBox1.Checked[i];    // Складываем в структуру состояние чеков из бокса
    m[i].MyPath := CheckListBox1.Items.Strings[i]; // Складываем названия итемов 
  end;
  try
    FS := TFileStream.Create('c:\1.txt', fmCreate); 
    FS.Write(j, SizeOf(j));   // Валим в файл количество итемов
    for i := 0 to j do FS.Write(m[i], SizeOf(m[i])); //Валим структуру в файл
  finally
    FS.Free;
  end;
end;
//...................
procedure TForm1.LoadClick(Sender: TObject);
var
  m: array of TCheckToFile;
  j, i, k: integer;
  FS: TFileStream;
begin
  SetLength(m, 0);
  try
    FS := TFileStream.Create('c:\1.txt', fmOpenRead);
    FS.Read(j, SizeOf(j));  // Читаем количество итемов из файла
    SetLength(m, j);         //Устанавливаем размерность структуры
    for i := 0 to j do FS.Read(m[i], SizeOf(m[i])); //Читаем все в структуру
  finally
    FS.Free;
  end;
end;

И так, в файл структура попадает нормально, из файла она нормально загружается, но как только я тыкаю на CheckListBox прога выпадает с ошибкой. Так же происходить если обратиться к боксам программно...

Код


  for k := 0 to j do begin
    CheckListBox1.Checked[k] := m[k].MyCheckIt;
    CheckListBox1.Items.Strings[k] := m[k].MyPath
  end;

Это происходит только после загрузки структуры.....Я себе всю голову сломал уже

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 28.3.2006, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(~FoX~ @ 28.3.2006, 10:01

)

MyPath: string[255];

Так низя. Ты пытаешься переписать первые 2 байта стринга. А это недопустимо.
Сохраняй все вручную.
Прочитать стринг с первыми 2-мя байтами дельфя тебе не даст.

TWriter тебе поможет.
Прикрути его к TFileStream и сохраняй стринг и Checked.
Пусть 2 операции вместо одной, зато массив не нужно создавать.

Romikgy

Дата 28.3.2006, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(~FoX~ @ 28.3.2006, 09:01

)

прога выпадает с ошибкой

в каком месте и с какой ошибкой?
+ переменую м надо освобождать , в конце процедуры

Цитата(Snowy @ 28.3.2006, 09:32

)

Так низя. Ты пытаешься переписать первые 2 байта стринга.

Я не такой гуру в дельфи как ты
Snowy, но имхо вполне законное определение типа string[255]

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 28.3.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j:  integer;
  wr:   TWriter;
  FS:   TFileStream;
begin
  j := CheckListBox1.Items.Count -1;
  try
    FS := TFileStream.Create('c:\1.txt', fmCreate);
    wr := TWriter.Create(fs, 1);
    wr.Write(j, SizeOf(j));
    for i := 0 to j do begin
      wr.WriteString(CheckListBox1.Items[i]);
      wr.WriteBoolean(CheckListBox1.Checked[i]);
    end;
    wr.Free; FS.Free;
  Except end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  j, i: integer;
  FS:   TFileStream;
  rr:   TReader;
begin
  try
    FS := TFileStream.Create('c:\1.txt', fmOpenRead);
    rr := TReader.Create(fs, 1);
    rr.Read(j, SizeOf(j));
    CheckListBox1.Clear;
    for i := 0 to j do begin
      CheckListBox1.Items.Add(rr.ReadString);
      CheckListBox1.Checked[i] := rr.ReadBoolean;
    end;
    rr.Free; FS.Free;
  Except end;
end;

Так даже компактней.
Меньше тратится памяти. Файл получается много меньше...
Добавлено @ 10:55

Цитата(Romikgy @ 28.3.2006, 10:38

)

в каком месте и с какой ошибкой?

В этом:

Цитата(~FoX~ @ 28.3.2006, 10:01

)

FS.Read(m[i], SizeOf(m[i])); //Читаем все в структуру

Замени в коде на

Код

begin
  m[i].MyPath := 'бла-бла';
  m[i].MyCheckIt := false;
end;

и сразу все заработает...

~FoX~

Дата 28.3.2006, 11:06 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Snowy, Спасибо.

Цитата(Snowy @ 28.3.2006, 11:32

)

Так низя. Ты пытаешься переписать первые 2 байта стринга. А это недопустимо.

Может я от дня рождения ни как не отойду, но я не совсем понял почему?

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 28.3.2006, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Хм. Вроде кофе выпил. А еще торможу.
Ошибка тут:

Код

SetLength(m, j+1); //Устанавливаем размерность структуры

Размер массива ты выделяешь на еденицу меньше.

~FoX~

Дата 28.3.2006, 11:11 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Snowy, пойду я теперь кофе попью... smile

Спасибо огромное, а то я думал вообще свихнусь к обеду.

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »