Record -> .ini fil

Mon ikke det er hurtigere at kode det selv, frem for at lede efter en komponent?
Det er ikke mange linie, der skal til :o)

Brug Delphi\'s indbyggede streaming. Component.SaveToStream(aStream);


/Martin

martinlind >> Så får du da ikke en en INI-fil, men en Binær-fil. En INI-fil er en formateret ASCII-fil ;o)

Det er jeg godt klar over, men det er noget nemere i stedet for at ligge og \"opfinde den dybe talerken\" igen.

/Martin

martinlind >> *gg*, med mindre der var en ide med at det skulle være en INI-fil :o)

Howdy, tak for kommentarerne.

Det skal være en inifil (human readable form) fordi det gør debugging ca. 1000 gange lettere.

>i stedet for at ligge og \"opfinde den dybe talerken\" igen

Det er jo derfor jeg leder efter en komponent ;o)

Iøvrigt tror jeg ikke at Component.SaveToStream kan bruges. Den vil bare gemme en pointer ved strings og dynamiske arrays (går jeg ud fra, har ikke checket det).

Microtec: Mener du kode komponenten selv, eller bare gemme indholdet af recorden selv? Formålet skulle være at jeg ikke skal ændre på mine load/save rutiner når recorden ændres.

Der er checket, og det virker fint, hvordan tror du delphi gemmer sine form filer !!

/Martin

unclebug >> ...bare gemme indholdet af recorden selv..
Med mindre, det er en kæmpe record, så syntes jeg du sættet temmelig meget i bevægelse for at få gemt din record i en INI-fil :o)

>Med mindre, det er en kæmpe record, så syntes jeg du sættet temmelig meget i bevægelse for at få gemt din record i en INI-fil :o)

Well, det kan vel diskuteres. Jeg har en load procedure på 30 linier og en save procedure på 30 liner, og jeg skal opdatere dem hver gang jeg laver den mindste ændring i recorden. Hvis jeg fandt en komponent der gjorde det for mig, så ville det da været meget smartere. Desuden er det jo ikke bare i dette projekt, det kunne være rart i mange andre.

unclebug >> Har du for øvrigt overvejet hvordan en evt. komponent, skulle kunne give elementerne i din record nogle fornuftige navne når de gemmes i INI-filen?

En INI-fil med navngivning BYTE1, BYTE2, BYTE3, STRING1, STRING2 og WORD1 er ikke vidre læsbar, hvis formålet var at den skulle være \"human readable\" ;o)

Soma-sumarom >> Component-streaming er faktikst temmeligt smart, istedet for en record laver du en class med published probs. så vil alle published probs blive savet.

/Martin

martinlind >> Men så kan man ikke manuelt læse og ændre i filen. Det kan jeg godt se at der er en pointe i at man kan. Jeg benytter det ofte selv.

Til gengæld skal man ikke rette for at tilføje en ny prop, den bliver automatisk gemt når den er tilføjet til class\'en

/MArtin

martinlind >> Hvorfor laver du et \"svar\" hver gang du kommer med en \"kommentar\" ;o)

fordi eller ville du ikke havde noget at spørge om *S*

martinlind >> Godt \"svar\" *gg*

\"point-jagten\" plejer bare ikke at være så intens herinde i Delphi (heldigvis) :o)

Du kunne evt. prøve med følgende :

Procedure SaveRecordToIni( Dataset : TDataset; IniFileName, Section : String );
Var i : integer; Ini: Tinifile;
begin
  Ini := TInifile.Create( IniFileName );
  For i := 0 to Dataset.FieldCount - 1 do
  begin
    Ini.WriteString( Section, DataSet.FieldList.Fields[i].FieldName, DataSet.FieldList.Fields[i].AsString);
  end;
  Ini.Free;
end;

Betydeligt nemmere end at tilføje og modifisere en kmoponent.

shanders >> Det kræver at der er tale om en database application. Det er vist ikke det unclebug mener med en \"record\" :o)

Damm jeg trænger til at komme lidt ud !
Den er slem når man forsøger at optimere indexseringen på kryderrihylden ;)

shanders >> og ender i salatfadet ( med spinat )

Nedenstående er bare en omskrevet udgave af shanders. Den kræver bare du opretter en record. Nu har jeg ikke lige testet den, men det ser ud til at virke.

Mark

Type
    TMyRec = record
        Navn: String;
        Alder: Integer;
End;

Procedure SaveRecordToIni( Rec: TMyrec; IniFileName, Section : String );
Var
i,Antal : integer;
Ini: Tinifile;

begin

  Ini := TInifile.Create( IniFileName );
    Ini.ReadInteger( \'Main\', \'Antal\', Antal);
    Ini.WriteInteger( \'Main\', \'Antal\', Antal+1);
    Section := Section + \' \' + IntToStr(Antal+1);
    Ini.WriteString( Section , \'Navn\', Rec.Navn);
    Ini.WriteString( Section, \'Alder\', IntToStr(Rec.Alder));
  end;
  Ini.Free;
end;

Måske burdejeg lige nævne at der i ovenstående kode  er mulighed for flere records gemt i samme fil. Der bliver bare skrevet et ekstra tal efternavnet på sektionen.

Mark

bustermaniac >> Du er da nød til at ændre \"SaveRecordToIni\" hvis du ændre din record \"MyRec\".

Du du gør er pærcis det jeg anbefaler \"12/02 2001 11:52:55\".

microtec>> Ok. det glemte jeg vidst at sige, men i mit lille hoved er det da logisk at man ændre i det, så det passer på ens kode.

Altså hvis du ændrer i recorden skal du også tilføje/ændre i:

Ini.WriteString( Section , \'Navn\', Rec.Navn);
    Ini.WriteString( Section, \'Alder\', IntToStr(Rec.Alder));

...så den passer på din kode.

Buster

bustermaniac >> Jammen, jeg ville også selv have løst det på den måde du gør *gg*

unclebug har bare flere gange gjort opmærksom på at det ikke var det han ønskede. Hvis der ændres i recorden, skal der ikke ændres i INI-fil håndteringen.

Netop derfor skal man bruge RTTI hvis du skal lave noget ordenligt.

martinlind >> Det er skide irreterende at du konsekvent vælger at benytte \"svar\" selv om det kun er en simpel kommentar du kommer med.

Hvis du ikke har opdaget det, så skrives det i den mail der udsendes til spørgsmålets deltagere. Når der står \"svar\" tror man at nu er der kommet noget med kød på.

Jeg tror ikke dine chancer for at få point´s bliver størrer bare fordi du benytter \"svar\" hele tiden ;o)