Einzelnen Beitrag anzeigen

ripper8472

Registriert seit: 17. Aug 2003
275 Beiträge
 
#5

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

  Alt 4. Aug 2004, 12:57
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ß
Christoph
char l[]="\xd6N\x96\xa6\xe6\xce.\xa6\xe4\xce\x04N\x86\xae\ xce\xfc",I,*i=l-1;for(;I=3,*i
++;){while(*i=*i&~(1<<I|1<<7-I)|(*i&1<<I)<<7-2*I|(*i&1<<7-I)>>7-2*I,I--);}puts(l);
  Mit Zitat antworten Zitat