сохранение структуры(записи)

← →
santey (2006-09-02 18:40) [0]

Уважаемые господа у меня такой вопрос:
Есть запись
Tsett=record
limtime:byte;
limtim:integer;
groupq:byte;
hiWord:String;
end;
я ее заполняю и пытаюсь сохранить при помощи
var
f:TfileStream;
begin
f:=TfileStream.Create(a,fmcreate);
f.Write(sett,sizeof(sett));
f.Free;

сохраняются поля лишь integer или byte, a поле string сохраняться не хочет
Подскажите как можно сохранить всю заполненую запись.
За ранее спасибо
С уважением Santey

← →
Правильный Вася (2006-09-02 18:42) [1]

1. packed record
2. sizeof(TSett)
3. hiWord:String[255];

← →
имя (2006-09-02 18:44) [2]

Удалено модератором

← →
SergP © (2006-09-03 08:31) [3]

> сохраняются поля лишь integer или byte, a поле string сохраняться
> не хочет

Ну ясный пень что не приведенным тобой способом не будет сохраняться.

Либо [1], либо string сохраняй отдельно...

У меня все сохраняется.

Fil : TextFile;

procedure TForm1.dxBarButton4Click(Sender: TObject);
var
Node : TTreeNode;

begin
AssignFile(Fil, NameOfFile) ;
Rewrite(Fil);

Writeln(Fil, "<?xml version="1.0" encoding="windows-1251"?>");
Writeln(Fil, "");
Writeln(Fil, "");
Writeln(Fil, "");
Writeln(Fil, "<MENU>");

Node := TreeView1.Items.GetFirstNode;
while Node <> nil do
begin
WriteCategoryProgramTree(Node);
Node:=Node.getNextSibling;
end;

Writeln(Fil, "</MENU>");

CloseFile(Fil);
end;

WriteCategoryProgramTree(Node: TTreeNode);
var
ChildNode : TTreeNode;
begin
if Node = nil then exit;

Writeln(Fil, "");
Writeln(Fil, "<CATEGORY>");
Writeln(Fil, "<CATEGORY_NAME>"+TDescription(Node.Data).Name+"</CATEGORY_NAME>");
Writeln(Fil, "<CATEGORY_Login>"+TDescription(Node.Data).Login+"</CATEGORY_Login>");
Writeln(Fil, "<CATEGORY_Password>"+TDescription(Node.Data).Password+"</CATEGORY_Password>");
Writeln(Fil, "<CATEGORY_Link>"+TDescription(Node.Data).Link+"</CATEGORY_Link>");
Writeln(Fil, "<CATEGORY_DESCR>"+TDescription(Node.Data).ShortDescrip.Text);
Writeln(Fil, "</CATEGORY_DESCR>");

ChildNode:=Node.getFirstChild;
while ChildNode <> nil do
begin
WriteCategoryProgramTree(ChildNode);
ChildNode:=ChildNode.getNextSibling;
end;

Writeln(Fil, "</CATEGORY>");

end;

сохранение структуры(записи) Найти похожие ветки