Record laden

**grader**

Guten Abend!

Habe ein Record, welches aus Strings besteht und dieses schreibe ich in eine .Dat Datei. Hier die write Prozedur:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.saverec;

var

  Stream: TStream;

  I: integer;

  Len: Longint;

begin

  Stream := TFileStream.Create('c:\TMData.dat', fmCreate);

  try

    Len := Length(T);

    Stream.Write(Len, SizeOf(Len));

    for I := 0 to Length(T) - 1 do

    begin

      Len := Length(T[I].B);

      Stream.Write(Len, SizeOf(Len));

      Stream.Write(PChar(T[I].B)^, Len);

    end;

  finally

    Stream.Free;

  end;

end;

Das laden funktioniert auch nur beim ausgeben habe ich ein Problem! Dazu brauche ich die Anzahl der Datensätze, welche ich dann einer Variable n zuordne!

Also wenn ich 5 Termine gespeichert habe steht n auf 5.. Wenn ich jetzt das Programm schließe und das Record wieder lade soll er jetzt n wieder auf 5 setzen!

Habt ihr ne Idee?

Habs so probiert, aber dann sagt er für n immer '1'!

n:=Length(T);

Brauche im Endeffekt nur die Anzahl der Einträge im Record! Muss das Programm leider morgen in Informatik abgeben und sitze schon das ganze WE an diversen Problemen hoffe ihr könnt mir da nochmal helfen

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt und Quelltext eingerückt - Mfg, SirThornberry[/edit]

**MrKnogge**

Die Größe deiner Datei durch SizeOf(DeinRecord) teilen.

Gruß

**himitsu**

Oder die Datei bis zum Dateiende (EndOfFile) abarbeiten und jeweils den grad gelesenen Eintrag anhängen,

aber du hast doch die Anzahl in der Datei abgespeichert?
Also brauchst du die doch einfach nur auszulesen.

markieren

Delphi-Quellcode:

			Stream.Read(Len, SizeOf(Len)); 

SetLength(T, Len); 

for I := 0 to Length(T) - 1 do 

begin 

  Stream.Read(Len, SizeOf(Len)); 

  SetLength(T[I].B, Len);

  Stream.Read(PChar(T[I].B), Len); 

end;

**grader**

Und wie lese ich die jetzt genau aus? Sorry, bin entweder zu blöd oder überhaupt nicht mehr aufnahmefähig heute

edit:

habe jetzt so gemacht:

markieren

Delphi-Quellcode:

			Stream.Read(Len, SizeOf(Len)); 

SetLength(T, Len);

n:=Length(T);

jetzt kommt aber immer ne Exception!! help please

edit2:

das war jetzt glaube ich noch größerer Blödsinn

verstehe aber nicht warum es mit n:=Length(T); nicht geht??

**grader**

Bitte bräuchte wirklich noch nen Tipp, da das Programm ohne das sinnlos wäre

Will doch nur die Anzahl der Datensätze des Records in eine Variable stecken!

**bitsetter**

Hallo,

normalerweise müsste es funktionieren. Hast du beim Laden der Datei auch mit fmOpenRead gearbeitet?
Stream := TFileStream.Create('c:\TMData.dat', fmOpenRead); Ansonsten zeige uns mal den Rest deines Codes.

EDIT:

Zitat von MrKnogge:

Die Größe deiner Datei durch SizeOf(DeinRecord) teilen.

Gruß

Len := stream.Size div SizeOf(T);

**Luckie**

Zitat von grader:

Habe ein Record, welches aus Strings besteht

AnsiStrings in einem Record kann man nicht so einfach in eine Datei schreiben. Zeig mal deinen Record und deine Speicher-Routine.

**himitsu**

markieren

Delphi-Quellcode:

			    Len := Length(T); 

    Stream.Write(Len, SizeOf(Len)); 

    for I := 0 to Length(T) - 1 do 

    begin 

      Len := Length(T[I].B); 

      Stream.Write(Len, SizeOf(Len)); 

      Stream.Write(PChar(T[I].B), Len);

sieht eigentlich OK aus, wenn B der String ist

er speichert die Arraylänge und dann jeweils die Länge von B, sowie dessen Inhalt?

[edit]
getäucht ... ein ^ zuviel

**TStringlist**

hallo grader,

der erste Parameter der Stream.Write- und Stream.Read-Funktionen muss immer die Adressen der Variablen sein, welche man damit auslesen bzw. beladen will, also ungefähr so:

markieren

Delphi-Quellcode:

			Stream.Write(Addr(Len)^, SizeOf(Len));

bzw.

Stream.Read(Addr(Len)^, SizeOf(Len));

edit: wenn das der Compiler nicht schon automatisch macht

**himitsu**

Nein, Read/Write nimmt verwendet Var/Const-Parameter (D7) und demnach nichts mit Addr und Co.

Weßhalb auch die Dereferenzierung im Ausgangspost falsch wäre.

markieren

Code:

Stream.Write(PChar(T[I].B)[color=#ff0000][b]^[/b][/color], Len);

dat Rote muß weg, denn sonst kann es mit dem Auslesen nicht klappen ... da ja schon was Falsches in der Datei stünde.

PS: hattest du eigentlich mal in die Datei geschaut, also ob da überhaupt was richtig Aussehendes drin ist?

Record laden

Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Re: Record laden

Forumregeln

MrKnogge Registriert seit: 9. Jun 2003 Ort: Pforzheim 2.458 Beiträge Delphi 2007 Professional	#2 Re: Record laden 25. Mär 2007, 19:26 Die Größe deiner Datei durch SizeOf(DeinRecord) teilen. Gruß Christian Bootz Einstein ist tot, Newton ist tot, und mir ist auch schon ganz schlecht...
	Zitat

grader Registriert seit: 5. Mär 2007 19 Beiträge Delphi 2005 Personal	#5 Re: Record laden 25. Mär 2007, 20:27 Bitte bräuchte wirklich noch nen Tipp, da das Programm ohne das sinnlos wäre Will doch nur die Anzahl der Datensätze des Records in eine Variable stecken! the grader
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#7 Re: Record laden 25. Mär 2007, 21:39 Zitat von grader: Habe ein Record, welches aus Strings besteht AnsiStrings in einem Record kann man nicht so einfach in eine Datei schreiben. Zeig mal deinen Record und deine Speicher-Routine. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat