Stream

[TonyR]

Ist es richtig das bei deinen for-Schleifen keinerlei begins und ends zu sehen sind?

Delphi-Quellcode:

for x:= 1 to row do
      for y:= 1 to col do

        buff:= StringGrid1.Cells[y,x];
        len:= length(buff);

  FileStream.WriteBuffer(len, SizeOf(Word));
  FileStream.WriteBuffer(buff[1], len);

Vielleicht so?

Delphi-Quellcode:

for x:= 1 to row do
  for y:= 1 to col do
    begin
    buff:= StringGrid1.Cells[y,x];
    len:= length(buff);
    FileStream.WriteBuffer(len, SizeOf(Word));
    FileStream.WriteBuffer(buff[1], len);
    end;