Zapis formy

0

Mam formę Form1 i tworze na niech w sposób dynamiczny etykietki (TLabel).Chce zapisac teraz taka forme do pliku by później móc ją załadować z powrotem z tymi etykietkami.Z zapisem do pliku nie mam problemu : WriteComponentResFile() ale a ReadComponentResFiles jum mi nie działa.Zatem jak załadować formę ponownie a raczej te stworzone wcześniej dynamiczne etykieki na nią.

POZDRAWIAM !!!
[cya]

0

zapisuj w petli kazdy komponent z osobna - podalbym w pelni dziajajacy kod, ale nie mam swojego kompa. uzywam tego w mojej pracy inzynierskiej.

0

Jeśli masz także labele hm.. statyczne(?) - no, te tworzone "normalnie", to przede wszystkim musisz pamiętać o tym, żeby nadać dynamicznym jakiś unikalny Tag. Potem zapisujesz do pliku w każdej linii informacje o Labelu w takiej pętli:

for i:=0 to ComponentCount-1 do
  if Components[i] is TLabel then
    if (Components[i] as TLabel).Tag=Wlasciwy_tag then with Components[i] as TLabel do begin
      Writeln(plik_tekstowy,Caption+chr(1)+itnToStr(Left)+chr(1)+...);
    end;

A ładując wczytujesz kolejną linię, rozdzielasz ją względem chr(1) i tworzysz labele nadając im te właściwości. Tk jest chyba najprościej.

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