сохранение\ загрузка List View в\из бинарного файла

[bulldog5293]

Приветствую собратьев по Дельфи. Вопрос такой, вот как сохранять\загружать listview в\из txt файл\а эт, через Tsavedialog\Topendialog я знаю, но если я хочу не в\из txt файл сохранить\загружать, а в бинарный файл, как тогда поступить. Ввожу даные в edit сохраняю в бинарный файл выводятся в msgbox, но с listview такое не проходит, почему, если не трудно дайти пример.

[bulldog5293]

Точнее в типизированный файл, а то с бинарного я ещё и лишние данные могу получить или данные не полностью вводятся

[_-Re@l-_]

Смотря как ты создаёшь бинарный файл.

[bulldog5293]

кидаю на форму 2 edit и кнопку, через OnClic по кнопке прописываю в обработчеке
type
TCustomer = record
name : string[20];
age : Integer;
male : Boolean;
end;
var
myFile : File of TCustomer; // Файл записи клиента
customer : TCustomer;
begin
// Попытка открыть бинарный файл Test.cus для записи
AssignFile(myFile, 'Test.cus');
ReWrite(myFile);
// Запись нескольких записей клиента в файл
customer.name := Edit1.text+Edit2.text;
customer.male := true;
Write(myFile, customer);
// Закрытие файла
CloseFile(myFile);
// Повторное открытие файла в режиме только для чтения
FileMode := fmOpenRead;
Reset(myFile);
// Показ содержимого файла
while not Eof(myFile) do
begin
Read(myFile, customer);
ShowMessage(customer.name)
end;
begin
// Закрытие файла в последний раз
CloseFile(myFile);
end;
end;

Но он не может сохранить длинные строки, но вопрос не в этом, как на подобном примере можно сохранять\загружать с\в данные листвиева

[bulldog5293]

Ну подскажите кто ни будь, очень нада. Я знаю что существуют типизированый, не типизированый и двоичный формат, но пока умею из примера по не типизированому файлу вводить данные через edit

[igh0st]

А скажем в XML в цикле выгружать/загружать пойдет? Что-то типа

...
for I := 0 to LV.Items.Count - 1 do
    begin
        Item := LV.Items[I];
        XMLItem := XML.Items.Add('Item');
        XMLSubItem := XMLItem.Items.Add('Caption');
        XMLSubItem.Value := Item.Caption;
        XMLSubItem := XMLItem.Items.Add('Address');
        XMLSubItem.Value := Item.Subitems[0];
        XMLSubItem := XMLItem.Items.Add('Pgone');
        XMLSubItem.Value := Item.Subitems[1];
        ...
    end;
...
XML.SaveToFile('mydata.xml');
...

За валидность кода не ручаюсь, это к примеру.

[bulldog5293]

вопрос снят, я уже сам разобрался