Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

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

  Alt 4. Aug 2004, 12:27
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;
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
  Mit Zitat antworten Zitat