Registriert seit: 17. Aug 2003
275 Beiträge
|
Re: Satz in Datei schreiben ohne Satzende (CR+LF)?
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);
|