Rich-Edit-Text in txt-Datei schreiben (über WriteLn!)

**Svenkan**

Wie ist es möglich, einen Rich-Edit-Text aus selbigem Feld per WriteLn in eine Datei zu schreiben?
Hab dazu irgendwie leider nichts gefunden und ich selbst bekomms iwie nicht geschissen..
WriteLn(Datei, REInfo.Lines);

Es wäre wohl eher
WriteLn(Datei, REInfo.Lines.Text); Immerhin will WriteLn einen string und kein TStrings. Allerdings verlierst Du damit jegliche Formatierung. Und warum nicht REInfo.Lines.SaveToFile?

**Svenkan**

zusammenfalten · markieren

Delphi-Quellcode:

			  AssignFile(Datei, (ExtractFilePath(ParamStr(0))+'.\splaene\index.htm'));

  Rewrite(Datei); // Datei neu schreiben

  anfang:='<html>'+sLineBreak+'<head>'+sLineBreak+'<style>'+sLineBreak+''+sLineBreak+'</style>'+sLineBreak+'<title>Stundenplanübersicht '+schule+'</title>'+sLineBreak+'</head>'+sLineBreak+'<body>'+sLineBreak+'<table width="100%">'+SLineBreak+'<tr>';

  b:='<td align="left"><FONT face=Arial COLOR=#000080 style="font-size: 8pt">Stand: '+str+'</FONT><font color=#000080 face=Arial size=5></font></td>'+sLineBreak+'<td align="right"><FONT face=Arial COLOR=#000080 style="font-size: 8pt">'+schule+'</td></tr></table><h1 align="center"><span style="font-size: 22pt">Stundenplan - </span>[i]<font color="#FF0000"><span style="font-size: 22pt">'+schule+'</span></font>[/i]</h1>';

  WriteLn(Datei, anfang);

  WriteLn(Datei, b);

  WriteLn(Datei, REInfo.Lines);

  e:='<table border="1" width="99%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+sLineBreak+'<tr>'+sLineBreak+'<td>'+sLineBreak+'<table align="center" border="1" width="'+FloatToStr(weite)+'%" style="border-collapse: collapse" bordercolorlight="#000000" bordercolordark="#000000">'+sLineBreak+'<tr>';

  WriteLn(Datei, e);

  for count := 1 to Pred(LbOverview.Items.Count) do begin

   hcode:='<td align="center" width="'+FloatToStr(width2)+'%">[url="'+LbOverview.Items[count]+'"]'+LbOverview.Items[count]+'[/url]</td>';

   WriteLn(Datei, hcode);

    if count mod klassen2 = 0 then begin

     trennung:='</tr>'+sLineBreak+'<tr>';

     WriteLn(Datei, trennung);

    end;

  end;

  ende:='</tr>'+sLineBreak+'</table>'+sLineBreak+'</td>'+sLineBreak+'</tr>'+sLineBreak+'</table>'+sLineBreak+'<p align="right"><font face=Arial size=1 color=#0000A0>

Geschrieben mit '+programm+' von [email="svenkan@gmx.de"]Sven Kannenberg[/email]</font></p>'+sLineBreak+'</body>'+sLineBreak+'</html>';

  WriteLn(Datei, ende);

  CloseFile(Datei);                 // Datei schließen

Deswegen xD
Wie bekomm ich das denn nu hin, dass mir hier nicht plötzlich das ganze im Code alles untereinander eingefügt wird? oO
Das sieht mir nämlich ziemlich bekloppt aus^^
PS: Es sind auch gar keine Formatierungen vorhanden..brauchte nur ein Textfeld zur Texteingabe.

Rich-Edit-Text in txt-Datei schreiben (über WriteLn!)

Rich-Edit-Text in txt-Datei schreiben (über WriteLn!)

Re: Rich-Edit-Text in txt-Datei schreiben (über WriteLn!)

Re: Rich-Edit-Text in txt-Datei schreiben (über WriteLn!)

Forumregeln

Svenkan Registriert seit: 10. Feb 2007 Ort: Bersenbrück 547 Beiträge Delphi 7 Enterprise	#1 Rich-Edit-Text in txt-Datei schreiben (über WriteLn!) 3. Mai 2007, 17:37 Wie ist es möglich, einen Rich-Edit-Text aus selbigem Feld per WriteLn in eine Datei zu schreiben? Hab dazu irgendwie leider nichts gefunden und ich selbst bekomms iwie nicht geschissen.. WriteLn(Datei, REInfo.Lines); Sven Kannenberg
	Zitat

CCRDude (Gast) n/a Beiträge	#2 Re: Rich-Edit-Text in txt-Datei schreiben (über WriteLn!) 3. Mai 2007, 17:50 Es wäre wohl eher WriteLn(Datei, REInfo.Lines.Text); Immerhin will WriteLn einen string und kein TStrings. Allerdings verlierst Du damit jegliche Formatierung. Und warum nicht REInfo.Lines.SaveToFile?
	Zitat