Einzelnen Beitrag anzeigen

Benutzerbild von Nalincah
Nalincah

Registriert seit: 18. Jul 2003
898 Beiträge
 
Delphi 6 Professional
 
#4

Re: Satz in Datei schreiben ohne Satzende (CR+LF)?

  Alt 4. Aug 2004, 12:44
Zitat von franktron:
z.b. so

Delphi-Quellcode:
type
  //Nur ein bsp. man kann auch ein Longstring nehemen
  TBuffer = record
    text1 : String[255];
    text2 : string[93];
  end;
var
  stream : TFileStream;
  buffer : TBuffer;
begin
  stream:=TFileStream.Create('test.txt');
  try
    buffer.text1:='text';
    buffer.text2:='text2';
    stream.Write(buffer,SizeOf(TBuffer));
  finally
   stream.Free;
  end;
end;
Im Prinzip das gleich wie meins, nur bei dir wird das erste Byte mit der Länge des Strings besetzt. Das heißt die Datei wär 349 Bytes groß, anstatt 348
Sebastian
Ehemals bekannt als General2004
  Mit Zitat antworten Zitat