---

Hej,

Jeg skal skrive to arrays af to records, der hver er af variabel længde
(altså arrays'ene). Recordsene indeholder typer som shortstring, integer og
boolean. Hvilket filformat skal jeg bruge, og hvordan gør jeg det i hele
taget ? Indtil nu, har jeg kun været i stand til at skrive til filer hvor
typen er den samme (så kunne jeg jo bruge minfil : file of mintype).
Anything ?

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes

---

"Thomas P" <blomme@post.com> wrote in message
news:9gng0m$d77$1@news.inet.tele.dk...
> Hej,
>
> Jeg skal skrive to arrays af to records, der hver er af variabel længde
> (altså arrays'ene). Recordsene indeholder typer som shortstring, integer
og
> boolean. Hvilket filformat skal jeg bruge, og hvordan gør jeg det i hele
> taget ? Indtil nu, har jeg kun været i stand til at skrive til filer hvor
> typen er den samme (så kunne jeg jo bruge minfil : file of mintype).
> Anything ?


Ja, lad være med at bruge File!

Brug i stedet det abstrakte storage-interface TStream.

En defineret descendant af TStream er TFileStream, som du kan
instacsi...instensi.... lave instancer af

Gør således:

Procedure Quux;
Var
S : TFileStream;
Begin
S := TFileStream.Create('c:\config.sys',fmShareDenyWrite Or fmOpenReadWrite)
// Se hjælpen, den er meget udførlig på dette punkt [1]
S.Write(MyArray1^,MyArraySize1);
S.Position := 1234;
S.Write(MyArray2^,MyArraySize2);
S.Free;
End;

P.S: Husk at bruge en fixed-pitch font når du læser dette...

Hvis du vil høre mere, så bare skriv igen

[1]
Value Meaning

fmCreate = Create a file with the given name. If a file with the
given name exists, open the file in write mode.

If the file can not be opened, Create will raise an exception.
fmOpenRead = Open the file for reading only.
fmOpenWrite = Open the file for writing only. Writing to the file
completely replaces the current contents.
fmOpenReadWrite = Open the file to modify the current contents rather than
replace them.

The share mode must be one of the following values:

fmShareCompat = Sharing is compatible with the way FCBs are opened.
fmShareExclusive = Other applications can not open the file for any reason.
fmShareDenyWrite = Other applications can open the file for reading but not
for writing.
fmShareDenyRead = Other applications can open the file for writing but not
for reading.
fmShareDenyNone = No attempt is made to prevent other applications from rea
ding from or writing to the file.

--
Regards, Christian Iversen [FIDUSO]
Flawless.Dk: [http://domains.flawless.dk]
Do you have a (broken?) IBM75GXP Drive?
Please go to [http://ibm.flawless.dk]

---

> Brug i stedet det abstrakte storage-interface TStream.

[snip]

> S.Write(MyArray1^,MyArraySize1);

Hey ! Det ser jo rigtigt spændende ud, dette TFileStream format. Jeg har
imidlertid bare lidt problemer med at få denne write-metode til at fungere,
hvor mit array er defineret således: mitaray1 : array of minrecord1. Meget
gerne et illustrativt eksempel som sidste gang

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes

---

> > Brug i stedet det abstrakte storage-interface TStream.
>
> [snip]
>
> > S.Write(MyArray1^,MyArraySize1);
>
> Hey ! Det ser jo rigtigt spændende ud, dette TFileStream format. Jeg har
> imidlertid bare lidt problemer med at få denne write-metode til at
fungere,
> hvor mit array er defineret således: mitaray1 : array of minrecord1. Meget
> gerne et illustrativt eksempel som sidste gang


TStream er "måden" at gøre den slags på

Jeg har desværre hverken Delphi 4, 5 eller 6 (kun 3), så jeg må forsøge at
gætte mig frem

Procedure SaveFoo;
Type
TMyRecord =
Record
// Foo
End;
Var
MyArray : Array Of TMyRecord;
S : TStream; // Du kan også bare bruge TFileStream. Her er det lige meget
Begin
S := TFileStream.Create(MyFileName,MyShareMode);
S.Write(MyArray,Length(MyArray)*SizeOf(TMyRecord));
S.Free;
End;

Se, det er enten

S.Write(MyArray,Length(MyArray)*SizeOf(TMyRecord));

eller

S.Write(MyArray^,Length(MyArray)*SizeOf(TMyRecord));

Hvilken en det er ved jeg ikke (jeg har ikke så nye versioner af Delphi). Du
må bare prøve dem begge!

--
Regards, Christian Iversen [FIDUSO]
Flawless.Dk: [http://domains.flawless.dk]
Do you have a (broken?) IBM75GXP Drive?
Please go to [http://ibm.flawless.dk]