Inhalt wird nicht gespeichert?

[mo_greene]

Hallo,

wie ihr sicherlich schon mitbekommen habt, bin ich gerade ziemlich intensiv am Programmieren.

Leider habe ich mal wieder ein Problem: Ich speicher diverse Inhalte in einem Filestream und lese die auch wieder aus.

Der Inhalt des folgenden Edit-Feldes wird leider nicht gespeichert und ich weiß irgendwie nicht warum nicht?

GesMengeEdt.Text := IntToStr(sum); Hier wird der Inhalt des Edit-Feldes in eine Variable geschrieben:

cock.SetGesMenge(GesMengeEdt.Text);

Delphi-Quellcode:

procedure cock.SetGesMenge (n : string);
begin
  GesMenge := n;
end;

Hier wird der Inhalt (neben vielen anderen Sachen) gespeichert:

  FS.Write(GesMenge,sizeOF(GesMenge));
Leider erscheint in der .dat Datei nichts. Alles andere, was ich so abspeicher, steht in der .dat Datei drin. Jedoch der Inhalt des o.g. Edit-Feldes nicht.

Woran kann das liegen?

[mkinzler]

Zeig mal das komplette Codefragment

[mo_greene]

Codefragment von?

[mkinzler]

Des ganzen Vorgangs der Speicherung ( von der Erzeugung des Streams bis zum Schliessen desgleichen)

[mo_greene]

Zitat von mkinzler:

Des ganzen Vorgangs der Speicherung ( von der Erzeugung des Streams bis zum Schliessen desgleichen)

Ich denke, dass dies nicht nötig ist, da die Speicherung der restlichen Elemente funktioniert.

Delphi-Quellcode:

procedure TAuto.InDateiSchreiben (var Fs : TFilestream);
(* -------------------------------------------------------------------- *)
var
  i : integer;
begin
  FS.Write(Name, sizeOF(Name));
  FS.Write(Kennzeichen, sizeOF(Kennzeichen));
  FS.Write(GeschGer, sizeOF(GeschGer));
  FS.Write(Farbe, sizeOF(Farbe));
  FS.Write(Preis, sizeOF(Preis));
  FS.Write(DX, sizeOF(DX));
  FS.Write(GesMenge,sizeOF(GesMenge));  //wird, wie gesagt nicht gespeichert :(

Delphi-Quellcode:

procedure TListe.Store(Dateiname : string);
(* -------------------------------------------------------------------- *)
var Elem  : TElement;
    Fs    : TFilestream;

begin
  DeleteFile(Dateiname);
  Fs := TFilestream.Create(Dateiname, fmCreate);

  if not IsEmpty
  then begin
         Fs.Write(Lilaenge, SizeOf(Lilaenge));
         First;
         while NOT EoList do
         begin
           Elem := GetElement;
           Elem.InDateiSchreiben (Fs);
           inc(AktuellePos);
         end;
       end;
  Fs.Free;
end;

[mkinzler]

Dieser Klassenmethgodenaufruf wird nicht funktionieren:
cock.SetGesMenge(GesMengeEdt.Text);

[mo_greene]

Warum nicht?

Ich habe ihn soeben geändert:

Auto.SetGesMenge(GesMengeEdt.Text);

[FAlter]

Hi,

das übliche Problem: Ein String ist ein Zeiger. Den speicherst du, nicht den Inhalt des Strings.

Mfg
FAlter

[mo_greene]

Zitat von FAlter:

Hi,

das übliche Problem: Ein String ist ein Zeiger. Den speicherst du, nicht den Inhalt des Strings.

Mfg
FAlter

Und was heißt das? Ich mach es doch nicht anders, als mit den anderen Inhalten??

[mkinzler]

Warum nicht? Dem Code nach heißt die Klasse cock