Hallo Leute,

ich muss eine Auftragsdatei mit einem Satz schreiben.
Dieser Satz hat genau 348 Stellen und darf kein Satzende haben.
Kein 0D 0A (CR+LF);

Wie mach ich das am besten?

Gruß aus Ostfriesland
Christian

Mit nem FileStream

zusammenfalten · markieren

Delphi-Quellcode:

var
  FS:TFileStream
  s : string;
begin
  FS := TFileStream.Create('DATEINAME',fmCreate);
  try
    s := 'DEIN SATZ';
    FS.Write(s[1],348);
  finally
    FS.Free;
  end;
end;

s[1] sagt aus: Der String wird vom Ersten Zeichen an reingeschrieben. Einfach nur "s" würd die Länge des String auch mit reinschreiben
DATEINAME ist der komplette Pfad (z.B. 'C:\test.txt') und DEIN SATZ ist...Dein Satz

Die Gesamtlänge ist 348

z.b. so

zusammenfalten · markieren

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;

Zitat von franktron:

z.b. so

zusammenfalten · markieren

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

markieren

Code:

var
  f:textfile;
  deintext:string;
begin
  assignfile(f,'datei.txt');
  rewrite(f);
  write(f,deintext);
  closefile(f);
end;

das ist nativer Pascal Code für Dateizugriff. Der funkioniert auch ohne Streams und auch im alten Turbo Pascal 7 für DOS.

[edit] der [ delphi ] tag ging nicht
Gruß

Danke!!