zapis i odczyt pliku

0

Mam taki mały problem :)
Czy jest możliwość aby dane(Items) z MainMenu można było zapisać do pliku i wczytać je do dziłającej aplikacji.
Za wszelką pomoc bardzo dziękuję.

0

Tak. Poczytaj o strumieniowym zapisywaniu komponentów. To jest przykłąd zapisywania Coolbara do rejestru:

{-CoolBar---------------------------------------------------}
Const MaxLength=5120;

Procedure SaveCoolBar(CoolBar:TCoolBar;Const Nazwa:String;Reg:TRegistry);
Var Stream:TMemoryStream;
Buf:Array[0..MaxLength] Of Byte;
Begin
Stream:=TMemoryStream.Create;
Stream.WriteComponent(CoolBar);
Stream.Position:=0;
Stream.Read(Buf,Stream.Size);
Reg.WriteBinaryData(Nazwa,Buf,Stream.Size);
Stream.Free;
End;

Procedure LoadCoolBar(Const CoolBar:TCoolBar;Const Nazwa:String;Const Reg:TRegistry);
Var Stream:TMemoryStream;
Buf:Array[0..MaxLength] Of Byte;
Len:Integer;
Begin
If Not Reg.ValueExists(Nazwa) Then Exit;
Len:=Reg.ReadBinaryData(Nazwa,Buf,MaxLength);
Stream:=TMemoryStream.Create;
Stream.WriteBuffer(Buf,Len);
Stream.Position:=0;
Try
Stream.ReadComponent(CoolBar);
Finally
Stream.Free;
End;
End;

0

Jeśli chodzi o menu, to chyba będzie problem z procedurami przypisanymi do itemów. Jak na moje oko, będziesz musiał jeszcze raz poprzypisywać procedury do nich.

1 użytkowników online, w tym zalogowanych: 0, gości: 1