Announcement

**U. Rupprecht** · 15.04.2002, 06:29

Hi,

eigentlich ist das ganz einfach. Du speicherst deinen Record wie "normale" Records in einer typisierten Datei. Hier mal ein Beispiel: 
 
//Record speichern 
var 
REC : TTESTRECORD; 
DAT : File of TTestrecord; 
 
begin 
{* Hier Record bef�llen *} 
Assignfile(DAT,'C:\TEST.DAT'); 
REWRITE(DAT); 
write(DAT,REC); 
CloseFile(DAT); 
end; 
 
//Record lesen 
var 
REC : TTESTRECORD; 
DAT : File of TTestrecord; 
 
begin 
Assignfile(DAT,'C:\TEST.DAT'); 
Reset(DAT); 
Read(DAT,REC); 
CloseFile(DAT); 
//Mach irgendwas mit den Daten 
end; 
 
Ich hoffe das hilft dir weiter. 

Uw

**Ulrich Gerhardt** · 15.04.2002, 12:11

Ich w�rde an deiner Stelle aus dem einen varianten Record lieber
zwei getrennte normale Records machen und ein file of TNormalerRec
verwenden. Den Header kannst du dann in deiner Schreib- und Leseroutine mit etwas Tricksen (Casten/Move/absolute) in die Datei "reinmogeln".
Hier mal ein ungetestes Fragment:
<pre>
<code> THeaderRec = record
Flag: Boolean; // negativ wenn Datenbank nicht ordnungsgemäß geschlossen wurde
MaxDS: Word; // Anzahl der Datensätze
BName: string[20]; // V. Nachname
BID: Cardinal; // Benutzernummer
end;
 
TTestRec = record
DBeg: TDateTime; // Dienstbeginn, Datum und Uhrzeit
DP: string[5]; // Pause
DEnd: TDateTime; // Dienstende, Datum und Uhrzeit
DPl: Word; // Dienstplannummer
Memo: string[50]; // Anmerkungen zur Dienstschicht
end;
 

procedure TForm1.SaveButtonClick(Sender: TObject);
var
rec: TTestRec;
hdr: THeaderRec absolute rec;
dat: file of TTestRec;
begin
Assert(sizeof(THeaderRec) <= sizeof(TTestRec)); //Anderenfalls funktioniert's nicht ganz so einfach
Assignfile(dat, 'C:\TEST.dat');
Rewrite(dat);
 
// Header befüllen (über Variable "hdr&quot

:
hdr.Flag := true;
//...
write(dat, rec); // Header wegschreiben über Variable "rec" (!)
 
while NochSaetzeDa do
begin
// Datensatz befüllen:
rec.Memo := 'Test';
// ...
write(dat, rec);
end;
 
CloseFile(dat);
end;

</code></pre>

Die L�sung ist vielleicht nicht ganz sauber, aber den "unsauberen" Teil hast du ja nur an zwei Stellen (beim Schreiben und beim Lesen).
Der Vorteil ist meiner Meinung nach, dass du beim Arbeiten mit den
normalen Datens�tzen nicht mehr dauernd mit den Feldern des Headersatzes zu tun hast. (z.B. beim IntelliSense (=Programmierhilfe?))
 Ach ja: Du musst bei meiner L�sung auf die Satzgr��en achten (siehe Assert im Bsp.). Wenn der Header zu gro� ist, br�uchtest du u.U. mehrere "normale" Datens�tze Platz am Dateianfang -- das ginge
wahrscheinlich mit BlockWrite ganz gut.
 Ciao, Uli

**Mario Hortig** · 15.04.2002, 17:32

Hallo Herr Rupprecht und Herr Gerhardt ... 
Sorry, ich habe mich sicherlich zum Anfang falsch ausgedr�ckt. Ich habe bisher mit 2 verschiedenen Dateien gearbeitet ( Inidatei f�r Header ) und m�chte diese nun irgendwie zusammenspeichern. Deswegen bin ich auf die varianten Records gekommen. Die eigentliche Datendatei habe ich bisher mittels Record gespeichert. Diese Routinen h�tte ich also oder m��te diese nur ein wenig modifizieren.
<PRE>
type
TTestRec = Record
DBeg : TDateTime; // Dienstbeginn, Datum und Uhrzeit
DP : String[5]; // Pause
DEnd : TDateTime; // Dienstende, Datum und Uhrzeit
DPl : Word; // Dienstplannummer
Memo : String[50]); // Anmerkungen zur Dienstschicht
end;
</PRE> <PRE>
var Daten_Datei: File of TTestRec; // Dateivariable
Bytes_Datei: File of Byte; // Dateivariable
Daten_Rec : TTestRec; // Recordvariable

...
</PRE> <PRE>
procedure TForm1.Datensatz_lesen(Satz: SmallInt);
begin
Reset(Daten_Datei); // Datei �ffnen
Seek(Daten_Datei, Satz); // Datensatzzeiger setzen
Read(Daten_Datei, dataframe1.Daten_Rec); // Datensatz lesen
CloseFile(Daten_Datei); // Datei schliessen
end;
</PRE> <PRE>
procedure TForm1.Datensatz_speichern(Satz: SmallInt);
begin
Reset(Daten_Datei); // Datei �ffnen
if Satz = -1 then
Satz:= FileSize(Daten_Datei); // auf letzten Datensatz setzen
Seek(Daten_Datei, Satz); // Datensatzzeiger setzen
Write(Daten_Datei, Daten_Rec); // Datensatz schreiben
CloseFile(Daten_Datei); // Datei schliessen
end;
</PRE> <PRE>
procedure TForm1.Datenbank_laden(FN: TFileName);
var i: SmallInt;
begin
while FN = '' do begin // Dateiname zugewiesen ??
if OpenDialog1.Execute then // Dialog �ffnen
FN:= OpenDialog1.FileName; // Dateiname zuweisen
end;
AssignFile(Daten_Datei, FN); // Dateiname mit Variable
AssignFile(Bytes_Datei, FN); // Dateiname mit Variable
if not FileExists(FN) then // Datei nicht vorhanden ??
Datenbank_erstellen(FN); // ... dann erstellen !!
Datenbank_Info;
if Record_ges > 1 then begin // Datens�tze einlesen
showmessage(inttostr(record_ges -1)+ ' Datens�tze gefunden');
// StringGrid1.RowCount:= Record_ges;
for i:= 1 to (Record_ges -1) do begin
Datensatz_lesen(I);
StringGrid1.Cells[1, I]:= Daten_Rec.Datum;
StringGrid1.Cells[2, I]:= Daten_Rec.Dplan;
StringGrid1.Cells[3, I]:= Daten_Rec.Schicht;
StringGrid1.Cells[4, I]:= Daten_Rec.AZeit;
end;
end;
Form1.Caption:= FN;
end;

</PRE>

&#10

**Mario Hortig** · 15.04.2002, 18:11

Hallo Herr Rupprecht und Herr Gerhardt ... 
Vielen Dank ersteinmal f�r Ihre M�he mei der Beantwortung. Sorry, ich habe mich sicherlich zum Anfang falsch ausgedr�ckt. Ich bin nicht so ge�bt in Delphi und habe bisher mit 2 verschiedenen Dateien gearbeitet ( Inidatei f�r Header ) und m�chte diese nun irgendwie zusammenspeichern. Deswegen bin ich auf die varianten Records gekommen. Die eigentliche Datendatei habe ich bisher mittels Record gespeichert. Diese Routinen h�tte ich also oder m��te diese nur ein wenig modifizieren. 
Bisher sah das so aus ...
<PRE>
type
TTestRec = Record
DBeg : TDateTime; // Dienstbeginn, Datum und Uhrzeit
DP : String[5]; // Pause
DEnd : TDateTime; // Dienstende, Datum und Uhrzeit
DPl : Word; // Dienstplannummer
Memo : String[50]); // Anmerkungen zur Dienstschicht
end;
</PRE> <PRE>
var Daten_Datei: File of TTestRec; // Dateivariable
Bytes_Datei: File of Byte; // Dateivariable
Daten_Rec : TTestRec; // Recordvariable

...
</PRE> <PRE>
procedure TForm1.Datensatz_lesen(Satz: SmallInt; FN: TFileName);
begin
AssignFile(Daten_Datei, FN); // Dateiname mit Variable
AssignFile(Bytes_Datei, FN); // Dateiname mit Variable
Reset(Daten_Datei); // Datei �ffnen
Seek(Daten_Datei, Satz); // Datensatzzeiger setzen
Read(Daten_Datei, Daten_Rec); // Datensatz lesen
CloseFile(Daten_Datei); // Datei schliessen
end;
</PRE> <PRE>
procedure TForm1.Datensatz_speichern(Satz: SmallInt; FN: TFileName);
begin
AssignFile(Daten_Datei, FN); // Dateiname mit Variable
AssignFile(Bytes_Datei, FN); // Dateiname mit Variable
Reset(Daten_Datei); // Datei �ffnen
if Satz = -1 then // neuen Datensatz anh�ngen
Satz:= FileSize(Daten_Datei); // auf letzten Datensatz setzen
Seek(Daten_Datei, Satz); // Datensatzzeiger setzen
Write(Daten_Datei, Daten_Rec); // Datensatz schreiben
CloseFile(Daten_Datei); // Datei schliessen
end;
</PRE>

... nur wie spreche ich jetzt beim Laden und Speichern den Header oder die Datens�tze speziell an? Wenn ich den Header mit "Datensatz_lesen(0)" laden m�chte, mu� ich dann TTestRec net so ansprechen damit er wei� welche Variablen im Record er f�llen mu�? 
<PRE>
procedure TForm1.Datensatz_lesen(Satz: SmallInt);
begin
AssignFile(Daten_Datei, FN); // Dateiname mit Variable
AssignFile(Bytes_Datei, FN); // Dateiname mit Variable
if Satz = 0 then
... // nur was???????????????????
Reset(Daten_Datei); // Datei �ffnen
Seek(Daten_Datei, Satz); // Datensatzzeiger setzen
Read(Daten_Datei, Daten_Rec); // Datensatz lesen
CloseFile(Daten_Datei); // Datei schliessen
end;
</PRE>
Bin ich nur auf dem Holzweg oder ...

( 
Ich hoffe es kann noch jemand etwas Licht in mein dunkel bringen 
Ciao Mari

**U. Rupprecht** · 15.04.2002, 19:36

Hi,

ok..mal ein kurzer Exkurs.

Bei Varianten Records ermittelt der Compiler zuerstmal den gr��ten variablen Block im Record. Dieser wird dann (egal welcher Teil bef�llt ist) als Satzgr��e (zur Speicherung) angenommen. Daher kann der variable Teil auch nur am Ende der Recorddefinition stehen. D.h. egal welchen Teil des Records du bef�llst, der zu speichernde Block wird immer auf die max. Gr��e (Allgemeiner Teil + gr��ter Variant-Teil) gespeichert.

Ok..also ist den Header-Satz genauso gro� wie der Daten-Teil.

Wenn du also deinen Header-Satz im Satz Nr. 0 gespeichert hast, kannst du ihn genauso lesen wie einen normalen Datensatz. Der Unterschied ist die Variable Header im Record. Ist sie True werden
die Felder des Header-Teils bef�llt. Ist sie False werden die Teile des Datenteils bef�llt.

Bsp.

Daten_SatzLesen(xyz,rec);
if rec.header then 
//Mach was mit den Headerdaten 
else 
//Mach was mit den Datendaten. 
 
 

Ich hoffe das hilft dir weiter.

Uw

**Mario Hortig** · 15.04.2002, 20:39

Hallo Uwe... 
Vielen Dank f�r Deine Ausf�hrungen. Soweit habe ich das jetzt verstanden. Ich habe mir das sicherlich etwas schwieriger vorgestellt die varianten Teile auszulesen. Sorry wenn ich nerve, aber w�rde das im Umkehrschlu� mit dem schreiben des Records bedeuten das ich "rec.Header" erst zuweisen mu�? 
Bsp'weise: rec.Header:= true -> f�r den Header? 
Ich werde mir heute noch schnell ein Testproggy schreiben um das von Dir ausgef�hrte mal zu testen. 
... auf jeden Fall nochmal's Danke, Gru� Mari

**Mario Hortig** · 16.04.2002, 03:41

Moin ;o) 
... lange Nacht und doch nix gebracht. Das mit dem auslesen des Headers und der Datens�tze hab ich ja gedanklich gerafft und in meinem Programm umgesetzt... nur mit dem schreiben das bekomme ich einfach net hin. Wie mache ich das, das der Record wei� welcher variante Teil in die Datenbank zu schreiben ist. Das blo�e zuweisen der Variablen durch "rec.header:= true" bringt nicht den gew�nschten Erfolg. Vielleicht kann mir ja jemand ein einfaches Demoprogramm schreiben damit ich das auf die reihe bekomme oder ich komme nicht umhin den Vorschlag von Ulrich umzusetzen. W�re wirklich nett. 
Gute Nacht und hoffe auf einen besseren Tag, Ciao Mari

**U. Rupprecht** · 16.04.2002, 06:46

Hi,

also mal ein etwas ausf�hrlicheres Beispiel:

<pre>
<code>var
Datei : File of TTestrec;
REC : TTestrec;

procedure WriteData;
begin
Seek(Datei,Filesize(datei)); //Dateizeiger auf das Ende der Datei Positionieren
write(datei,rec);
end;

procedure ReadData(SatzNr:Longint);
begin
Seek(datei,Satznr);
read(datei,rec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Öffnen der Datei
Assignfile(Datei,'C:\TEST.DAT');
if FileExists('C:\TEST.DAT') then
RESET(Datei)
else
Rewrite(Datei);
//Hier steht der sog. Dateizeiger auf dem Anfang der Datei
rec.Header := true;
writeData;
rec.header := false;
writeData;
ReadData(0);
if (rec.header) then
ShowMessage('Headersatz')
else
ShowMessage('Datensatz');
closefile(Datei);
end;

</code></pre>

Anmerkung:

Durch Reset oder Rewrite wird der Dateizeiger immer wieder auf den Dateianfang gesetzt. Wenn du also deinen Header wegschreibst, die Datei schlie�t und anschlie�end neu aufmachst und den Datensatz schreibst, hast du nur 1. Datensatz. Der Headersatz wurde �berschrieben.

Gru�

Uw

**Mario Hortig** · 19.04.2002, 02:06

Hallo Uwe ..., 
komme leider erst heute dazu Dir f�r die schnelle und kompetente Hilfe zu danken. Ich habe Dein Bsp. umgesetzt und siehe da, es funktioniert. In meiner Routine hatte sich ein kleiner Denkfehler eingeschlichen.
Gru� Mari

Announcement

Variante Records ansprechen und speichern

Variante Records ansprechen und speichern

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment