TreeView, Record, FileStream

[Stilet]

Вы, видимо, не так поняли.

Да уж... Трудно понять того кто сам не оч. понимает что хочет...
А SNUPY между прочим дело говорит. Структуры в текстовые файлы сохранять не удобно. Так что ты определись что тебе нужно.
Если посчитаешь это флудом то вот тебе конструктив: Сохраняй то что в StringList в текстовый файл, а то что в Array of Record в другой методом SNUPY, не забыв образмерить или финализировать строки в записи. не смешивай все в кучу - пожалеешь

Удачи.

[JoLan]

Сообщение от SNUPY

^__^ помниться можно делать так f: file of Struct.... но он будет ругаться т.к. ему подавай статические массивы, т.е. для string надо будет зафиксировать размер...

Спасибо, но у меня все объявлено, компилируется и работает.

Сообщение от Stilet

Сохраняй то что в StringList в текстовый файл, а то что в Array of Record в другой методом SNUPY, не забыв образмерить или финализировать строки в записи. не смешивай все в кучу - пожалеешь

Удачи.

Как вариант решения, спасибо.

[cosmic_call]

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

[JoLan]

Такое чувство, что не читаете заголовок темы. Я и хочу сохранить в файл обе структуры с помощью потока, только не знаю как.

[cosmic_call]

нет заголовок я прочел. я про то что не особо вник в сами структуры.

можно ведь в файл записать например последовательно
1.кол-во строк
2. строки
3. размеры структуры или тоже там какие то количества этих записей
4. сами записи

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

[JoLan]

В этом-то и вопрос: как записать? Хотя бы маленький пример, который натолкнет на остальное решение.

[cosmic_call]

ну вот
объявил вот произвольную запись в программе

type
  Rec = record
    a:integer;
    b:string[20];
    cc:boolean;

вот процедура например где есть стринглист и массив этих записей и я его записываю в файл:

var Stream:TFileStream;
    RecArr: array of Rec;
    StrList: TStringList;
    RecCnt, StrCnt: integer;
    Str:string[20];
    i:integer;
begin

//заполняю структуру какой нибудь информацией для примера

StrList:=TStringList.Create;
StrList.Add('ertertret');
StrList.Add('erdsfdsf');
StrList.Add('eqweqweeeeeeqweqwt');
StrList.Add('ertersdsdasdaset');

//пусть будет пять строк и например 2 записи

RecCnt:=2;
SetLength(RecArr, RecCnt);
RecArr[0].a:=54;
RecArr[0].b:='fewfewf';
RecArr[0].cc:=false;
RecArr[1].a:=454;
RecArr[1].b:='4teffewf';
RecArr[1].cc:=false;

//создаю поток для записи
Stream:=TFileStream.Create('c:\lalala.ini', fmOpenWrite or fmCreate);
Stream.Seek(0, soFromBeginning); //указатель в начало
//считаю кол-во строк и записываю их в файл
StrCnt:=StrList.Count;
Stream.Write(strCnt, sizeof(integer));
//вытягиваю строки из тстринглист в обычный массив строк
for i:=0 to StrCnt - 1 do begin
  Str:=StrList.Strings[i];
  //и записываю в файл сами строки
  Stream.Write(Str, 20) end;


//записываю кол-во записей
Stream.Write(RecCnt, sizeof(integer));
//и сами записи
for i:=0 to RecCnt - 1 do Stream.Write(RecArr[i], sizeof(Rec));
//закрываю поток
Stream.Free;
end;

теперь аналогично только все обратно - читаю из файла то же самое не зная заранее сколько там строк и сколько записей в массиве - это все содержится в самом файле

procedure TForm1.Button2Click(Sender: TObject);
var Stream:TFileStream;
    StrList: TStringList;
    RecCnt, StrCnt: integer;
    RecArr: array of Rec;
    Str:string[20];
    i:integer;
begin
//создаю поток для чтения
Stream:=TFileStream.Create('c:\lalala.ini', fmOpenRead);
Stream.Seek(0, soFromBeginning); //указатель в начало
//читаю из файла кол-во строк
Stream.Read(strCnt, sizeof(integer));
//читаю из файла массив строк и перевожу массив строк в стринглист
StrList:=TStringList.Create;
for i:=0 to StrCnt - 1 do begin
  Stream.Read(Str, 20);
  StrList.Add(Str[i]) end;
//читаю кол-во записей
Stream.Read(RecCnt, sizeof(integer));
//и сами записи
SetLength(RecArr, RecCnt);
for i:=0 to RecCnt - 1 do Stream.Read(RecArr[i], sizeof(Rec));
//закрываю поток
Stream.Free;
end;

вроде ничего сложного - единственное, что, как видите, пришлось поставить ограничение на строку в 20 символов. можно поставить больше с запасом - просто в файл будут писаться пробелы. но лучше всего (и тоже не сложно) усовершенствовать механизм и перед каждой строкой писать еще и ее длину. тогда файл будет оптимальной длины.

[JoLan]

Спасибо огромное, именно то, что нужно
P.S. А если вписать "4" вместо "sizeof(integer)" быстрей не будет?

[Stilet]

быстрей не будет?

Нет. Быстрей не будет.