Хранение второго значения в ListBox.

← →
allucard (2007-04-13 09:29) [40]

Но как теперь эти обьекты записать в файл?

Пишу так:
ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+"data\users.dat");

Но сохраняются только названия а не обьекты:
ListBox1.Items.AddObject(user.realname, user);

Т.е. при загрузке
ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+"data\users.dat");
Получаю только названия записей user.realname.

← →
Сергей М. © (2007-04-13 09:35) [41]

> как .. обьекты записать в файл?

Запись объекта есть ничто иное как запись св-в этого объекта.

← →
allucard (2007-04-13 09:38) [42]

> Сергей М. © (13.04.07 09:35) [41]

есть метод специально для сохранения обьектов ListBox"a в файл?

← →
Сергей М. © (2007-04-13 09:44) [43]

> allucard (13.04.07 09:38) [42]

Нет такого.
Самому писать придется.
И если класс TUser сделать наследником TComponent, это ощутимо облегчит решение.

← →
allucard (2007-04-13 09:54) [44]

> Сергей М. © (13.04.07 09:44) [43]

Сделал наследником TUser.

Подскажи хоть с чего начать.
Я таким ещё не занимался.

Дописывать к методам TListBox или создавать новый метод своего класса TUser?

Если к TListBox, делать новый метод(напр. SaveObjectToFile) и писать в нём Inherited SaveToFile.
Если к своему методу то я даже не знаю как унаследовать метод от TListBox, т.к. он не является дочерним.

← →
allucard (2007-04-13 10:09) [45]

Я что-то совсем завис.

Неужели нельзя записать в файл структуру данных(в моём случае класс) вместе со свойствами?

← →
clickmaker © (2007-04-13 10:10) [46]

> [45] allucard (13.04.07 10:09)

CreateFile(), WriteFile()

← →
allucard (2007-04-13 10:14) [47]

> clickmaker © (13.04.07 10:10) [46]

Это создаст файл и запишет что-то в него.
А как класс со свойствами туда вихнуть?

← →
clickmaker © (2007-04-13 10:36) [48]

> [47] allucard (13.04.07 10:14)

записать как набор байт, а как еще?
Если записи переменной длины (имена юзеров), то сначала пишешь размер записи, потом собственно данные.
При чтении сначала читаешь размер, потом собственно данные, потом позиционируешься на следующую запись (тек. поз. + размер)
SetFilePointer(), например
Но можно все это и через TFileStream
Т.е. получается что-то типа простенькой базы данных

← →
allucard (2007-04-13 11:05) [49]

> clickmaker © (13.04.07 10:36) [48]

Идею понял, реализацию нет.

делаю так:

try
AssignFile (F, ExtractFilePath(ParamStr(0))+"data\users.dat");
Rewrite(F);
if IOResult=0 then
begin
for i:=0 to ListBox1.Count - 1 do
begin
write(f, (ListBox1.Items.Objects[i] as TUser));
end;
end;
CloseFile(F);
except
end;

но пишет в строке write(f, (ListBox1.Items.Objects[i] as TUser)); ошибку
Variable required.
Что за ошибка?

← →
clickmaker © (2007-04-13 11:22) [50]

> [49] allucard (13.04.07 11:05)

ты вообще представляешь, что такое объект? Что такое класс, а что такое экземпляр класса? И как они в памяти хранятся?
Например, как компилятор, а затем и среда выполнения интерпретирует ListBox1.Items.Objects[i]?

← →
allucard (2007-04-13 11:46) [51]

> clickmaker © (13.04.07 11:22) [50]

что такое объект?
Это тип данных сочетающий в себе свойства и методы.
Короче экземпляр класса.

>Что такое класс
Тип данных, переменная соотв. типа.

> что такое экземпляр класса?
Выделенная область в памяти для хранения свойств, методов.

Как в памяти хранится не понимаю.

ListBox1.Items.Objects[i] - это по всей видимости ссылка на структуру, т.е. обьект.
Обьясни что не так.

Напиши коротенький примерчик.

← →
Сергей М. © (2007-04-13 11:48) [52]

> allucard (12.04.07 11:27)

А тебя что так на TListBox"е заклинило ?

Ну возьми ты, к примеру, тот же TTreeView, он одним махом позволяет сохранять себя в файл..

Пушкин <- юзер №1
СанчоПушкин <- RealName
Pushkin <- Username
ВеликийНегритянскийПоэт <- Password
Пупкин <- юзер №2
ВасяПупкин <- RealName
Pupkin <- Username
ПарольВасиПупкина <- Password

← →
clickmaker © (2007-04-13 11:51) [53]

> [51] allucard (13.04.07 11:46)
> ListBox1.Items.Objects[i] - это по всей видимости ссылка на структуру

ну правильно. А что такое ссылка?
Тогда вот этой строкой
write(f, (ListBox1.Items.Objects[i] as TUser));
ты что делаешь?

← →
allucard (2007-04-13 12:01) [54]

> clickmaker © (13.04.07 11:51) [53]

Указываю записать в файл F, только вот не пойму почему - но по ходу:
ссылку на структуру данных или саму структуру.

Но в ListBox1.Items.Objects[i] должен быть рабочий экземпляр класса?

> Сергей М. © (13.04.07 11:48) [52]

Я бы давно с двумя ListBox"aми сделал, но нужно же понимать что я делаю.

← →
Сергей М. © (2007-04-13 12:05) [55]

> нужно же понимать что я делаю

И это правильно !)

Берешь исходник TTreeView и смотришь, что там происходит при файловой загрузке/выгрузке.

← →
clickmaker © (2007-04-13 12:06) [56]

> в ListBox1.Items.Objects[i] должен быть рабочий экземпляр
> класса?

ну с точки зрения предметной области - да. Но с точки зрения кода - нет. Там указатель. 4 байта в 32-разрядной ОС.
Эти 4 байта ты и пытаешься писать в файл.
Чтобы сохранить объект, нужно последовательно записать все его свойства в файл. Формат - это уже твое дело

← →
allucard (2007-04-13 12:49) [57]

> 4 байта в 32-разрядной ОС.
> Эти 4 байта ты и пытаешься писать в файл.

Ну, вообще-то он их и записывает.
Только вот почему для каждого из элеиентов [i] он был одинаковый?
Ведь это указатель на данные или на структуру данных?

← →
Сергей М. © (2007-04-13 13:49) [58]

> это указатель на данные или на структуру данных?

На данные.

А уж структурированы эти данные или нет - эт другой коленкор)

← →
allucard (2007-04-13 13:57) [59]

А если записать в файл не 4-байта указателя, а байты по этому указателю?
Точнее как такое сделать?

>clickmaker © (13.04.07 10:36) [48]

записать как набор байт, а как еще?
Если записи переменной длины (имена юзеров), то сначала пишешь размер записи, потом собственно данные.
При чтении сначала читаешь размер, потом собственно данные, потом позиционируешься на следующую запись (тек. поз. + размер)
SetFilePointer(), например
Но можно все это и через TFileStream

Как через TFileStream?

← →
Сергей М. © (2007-04-13 14:01) [60]

> А если записать в файл не 4-байта указателя, а байты по
> этому указателю?

А среди этих "байт по указателю" обязательно найдутся еще куча "четверок" байт, также являющих собой указатели - ты об этом подумал ?)

← →
{RASkov} (2007-04-13 14:15) [61]

var U: TUser; S: String; .............. try AssignFile (F, ExtractFilePath(ParamStr(0))+"data\users.dat"); Rewrite(F); try for i:=0 to ListBox1.Count - 1 do begin U:=TUser(ListBox1.Items.Objects[i]); if U=nil then Continue; S:=Format("%s;%s;%s", [U.username,U.realname, U.password"); WriteLn(f, S); end; finally CloseFile(F); end; except ShowMessage("Блин, косяк при сохранении пассвордов..:("); end;

Читать из этого файла и загружать в ListBox сам придумай как.... не сложно.
ЗЫ Можно и шифровать пароли если нужно....

← →
allucard (2007-04-13 14:16) [62]

> Сергей М. © (13.04.07 14:01) [60]

Указатели на указатели ?)
Да уж.
Класс экземпляр класса никак не запишешь, свой так точно.
Хотя стоп!

FileStream.WriteComponent(self);

← →
Сергей М. © (2007-04-13 15:13) [63]

> allucard (13.04.07 14:16) [62]

> Указатели на указатели ?)

А это что, нонсенс ?)
И такое бывает)

Хотя редкость)

А вот тебе обычный пример - на некую форму "кинули" некий "батон".
В рез-те ты имеешь:

TfrmReportParams = class(TForm)
Button1: TButton; <- вот он, указатель на структурированные данные, появившийся в результате "батонокидательства" !)
..
end;

← →
allucard (2007-04-16 11:06) [64]

Сделал так:
Запись компонента:

FileStream := TFileStream.Create("users.dat", fmCreate);
FileStream.WriteComponent(Form2.ListBox1);
FileStream.Free;

Чтение:

if (FileExists("users.dat")) then
begin
FileStream := TFileStream.Create("users.dat", fmOpenRead);
FileStream.ReadComponent(Form2.ListBox1);
FileStream.Free;
end;

Но при чтении свойств обьектов внутри TListBox1 сволочь пишет AccessViolation.
Что на этот раз то?

← →
Сергей М. © (2007-04-16 11:10) [65]

> Что на этот раз то?

Либо Form2 либо Form2.ListBox1 содержат nil или "мусор".

← →
allucard (2007-04-16 11:40) [66]

> Сергей М. © (16.04.07 11:10) [65]

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

Короче FileStream.WriteComponent(Form2.ListBox1) не записывает компоненты, находящиеся внутри ListBox1.

← →
allucard (2007-04-16 11:41) [67]

В общем как я понял мир познания устроен по кругу, после недельного разбирательства так и не понятным осталось как в компонент ListBox запхнуть ещё хотя бы два параметра для каждой записи.
:(
Грустно.

← →
Сергей М. © (2007-04-16 11:44) [68]

> FileStream.WriteComponent(Form2.ListBox1) не записывает
> компоненты, находящиеся внутри ListBox1

Да , не записывает. И не должен.
Но в дан.случае AV-исключение при выполнении ReadComponent не имеет к этому никакого отношения.

> allucard (16.04.07 11:41) [67]

Чем тебе TreeView не угодил ?

В случае с ним вообще ничего "запихивать" не нужно - компонент сделает все сам.

← →
allucard (2007-04-16 11:47) [70]

> Но в дан.случае AV-исключение при выполнении ReadComponent
> не имеет к этому никакого отношения.

Понятное дело, когда читаешь по адресу то, чего не существует там.

← →
allucard (2007-04-16 11:49) [71]

> Сергей М. © (16.04.07 11:47) [69]

Сейчас буду розбираться.
В принцыпе цель - это познание.

Так что Respect всем помогающим.
Понял многое.

> читаешь по адресу то, чего не существует там

Ну вот для начала и прими меры к тому, чтобы это самое "то, чего не существует" начало существовать "там".

← →
allucard (2007-04-16 11:53) [73]

Где описан ListBox?

Открываешь окно справки, вводишь стороку поиска фразы TListBox..

← →
allucard (2007-04-16 12:09) [75]

А что лучше подойдёт:

TreeView или ListView?

TTreeView

← →
{RASkov} (2007-04-16 12:13) [77]

> [67] allucard (16.04.07 11:41)

> [69] Сергей М. © (16.04.07 11:47)
> Чем тебе TreeView не угодил ?

Или как вариант ListView:

> запхнуть ещё хотя бы два параметра для каждой записи.

Для каждой записи там есть еще дополнительный (SubItem)Strings и пихай в него сколько угодно параметров...строковых.
Тоже, вроде, умеет сохранять все сам... может вру.

← →
{RASkov} (2007-04-16 12:14) [78]

> [76] Сергей М. © (16.04.07 12:11)

Сорри... не успел, я вплотную незнаком не с TreeView не с ListView, а чем лучше TreeView?

> {RASkov} (16.04.07 12:14) [78]

> чем лучше TreeView?

Тем что там уже все "запихнуто".

← →
{RASkov} (2007-04-16 12:34) [80]

Хранение второго значения в ListBox. Найти похожие ветки