Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Вниз

Сохранение array в FileStream   Найти похожие ветки 

← →
Deus   (2002-02-13 16:34) [11]

Нашёл решение:
Type TDoAction=record
ExtKey:TExtKey;
Actions:TActions;
Caption:string[255];
StandardKey:integer;
Modifiers:TModKeys;
Others:TOther;
RunProgram:string[255];
end;
.....
ss:=TFileStream.Create(sd.FileName,fmOpenWrite or fmCreate);
for i:=0 to length(actions)-1 do begin
ss.Write(actions[i].ExtKey, sizeof(actions[i].ExtKey));
ss.Write(actions[i].Actions, sizeof(actions[i].Actions));
ss.Write(actions[i].Caption, sizeof(actions[i].Caption));
ss.Write(actions[i].StandardKey, sizeof(actions[i].StandardKey));
ss.Write(actions[i].Modifiers, sizeof(actions[i].Modifiers));
ss.Write(actions[i].Others, sizeof(actions[i].others));
ss.Write(actions[i].RunProgram, sizeof(actions[i].RunProgram));
end;
ss.Free;
Работает....

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c