String in Stream speichern

[Chemiker]

Hallo d1ng0d0gt0r,

was für ein Name.

Ich habe zufällig heute einen neuen Urlaubsplan gemacht und musste dafür die Daten aus einem StringGrid abspeichern.

Erst mal abspeichern:

Delphi-Quellcode:

procedure TMainFormUrlausPlaner.FileSaveAs1Accept(Sender: TObject);
var
  DateiName: TFileName;
  i, y : integer;
  f: TFileStream;
  buff: String;
  len: Word;
begin
  DateiName:= FileSaveAs1.Dialog.FileName;
  f:= TFileStream.Create(DateiName,fmCreate or fmOpenWrite);
  try
    if FileExists(DateiName) then
    begin
    // Speichern des StringGrid - Daten
      for I := 0 to coTage  do
      begin
        for y := 0 to coMitarbeiterAnzahl do
        begin
          buff:= strGridJahr.cells[i,y];
          len:= length(buff);
          f.WriteBuffer(len,SizeOF(Word));
          f.WriteBuffer(buff[1],len);
        end;
      end;
    end;
   finally
     f.free;
  end;
end;

Und jetzt die Daten wieder laden:

Delphi-Quellcode:

procedure TMainFormUrlausPlaner.FileOpen1Accept(Sender: TObject);
var
  DateiName: TFileName;
  i, y : integer;
  f: TFileStream;
  buff: String;
  len: word;
begin
  DateiName:= FileOpen1.Dialog.FileName;
  f:= TFileStream.Create(DateiName,fmOpenRead);
  try
    if FileExists(DateiName) then
    begin
       for I := 0 to coTage  do
       begin
         for y := 0 to coMitarbeiterAnzahl do
         begin
           f.ReadBuffer(len, SizeOf(Word));
           SetLength(buff,len);
           f.ReadBuffer(buff[1], len);
           strGridJahr.cells[i,y]:= buff;
         end;
       end;
    end;
  finally
    f.Free
  end;

end;

Vielleicht kannst Du da was mit anfangen.

Bis bald Chemiker