Mehrere Memo's Speicher

[inherited]

Daran liegt es nicht, es liegt daran, das die Funktion "Write" eine Variable braucht, Text ist eine Property. Du musst also vorher Memo1.Text in einen String kopieren und den dann in den Stream schreiben.

[SaFu]

Sorry wenn ich so dumm Frage aber.
Mit Streams habe ich noch nie gearbeitet wie macht man sowas
:oops:

[inherited]

Delphi-Quellcode:

var s: String
[...]
  s:=Memo1.text;
  FileStream.Write(Length(s), SizeOf(Integer));
  FileStream.Write(s, Length(Memo1.Text));

usw.

[SaFu]

Sorry aber irgendwie habe ich immernoch den gleichen Fehler

Delphi-Quellcode:

procedure TForm7.Panel1Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos :TFileName;
    a,b: String;
begin
 a:=Memo1.Text;
 b:=Memo1.Text;

  FileStream := TMemoryStream.Create;

  FileStream.Write(Length(a), // und zwar hier SizeOf(Integer));
  FileStream.Write(a, Length(Memo1.Text));

  FileStream.Write(Length(b), // und hier SizeOf(Integer));
  FileStream.Write(b, Length(Memo1.Text));

  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(memos);
  FileStream.Free;
end;

Delphi-Quellcode:

[Fehler] Unit7.pas(426): Variable erforderlich

[MrKnogge]

Dann speicherst du SizeOf(Integer) vorher eben genauso in eine Variable wie du es bei Memo2.Text gemacht hast.

Gruß

[inherited]

Auch daran liegt es nicht ;)
Er muss Length(a) bzw length(b) vorher in eine eigene Variable packen.

[SaFu]

so etwa

Delphi-Quellcode:

procedure TForm7.Panel1Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos :TFileName;
    a,b :String;
    c,d :integer;
begin
 a:=Memo1.Text;
 b:=Memo2.Text;
 c:= SizeOf(Integer);
 d:= SizeOf(Integer);

  FileStream := TMemoryStream.Create;

  FileStream.Write(Length(a), c));
  FileStream.Write(a, Length(Memo1.Text));

  FileStream.Write(Length(b), d));
  FileStream.Write(b, Length(Memo2.Text));

  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(memos);
  FileStream.Free;
end;

:cry:

[3_of_8]

Das ist nicht das Problem. Das Problem ist das length(a), das macht Ärger. Speicher das in eine Variable.

Delphi-Quellcode:

procedure TForm7.Panel1Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos: TFileName;
    a,b: String;
    la, lb: Integer;
begin
a:=Memo1.Text;
b:=Memo2.Text;
c:= SizeOf(Integer);
d:= SizeOf(Integer);

  FileStream := TMemoryStream.Create;

  la:=length(a);
  FileStream.Write(la, sizeof(Integer));
  FileStream.Write(a, la);

  lb:=length(b);
  FileStream.Write(lb, sizeof(Integer));
  FileStream.Write(b, lb);

  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(memos);
  FileStream.Free;
end;

[SaFu]

Habs jetzt so aber die *.txt ist jetzt unleserlich

Delphi-Quellcode:

procedure TForm7.Button7Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos :TFileName;
    a,b :String;
    c,d :integer;
begin
 a:=Memo1.Text;
 b:=Memo2.Text;
 c:=Length(a) ;
 d:=Length(b) ;

  FileStream := TMemoryStream.Create;

  FileStream.Write(c, SizeOf(Integer));
  FileStream.Write(a, Length(Memo1.Text));

  FileStream.Write(d, SizeOf(Integer));
  FileStream.Write(b, Length(Memo2.Text));

  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(memos);
  FileStream.Free;
end;

[3_of_8]

Wie, "unleserlich"?

Die ersten 4 Zeichen sind "unleserlich" und später mal 4 Zeichen ebenfalls, das ist normal. Ansonsten müsste es eigentlich so stimmen. Wie sieht sie denn aus, die TXT?