Hallo, ich habe ein Problem:
Ich gebe auf eine Canvas mehrzeiligen Text mit der DrawText- Procedure aus.
...
Delphi-Quellcode:
var
s:
String;
r: TRect;
begin
r:= Rect(10,10,300,200);
s:= Mem01.Text;
Text:= PChar(s);
DrawText(
Handle,PChar(Text),length(Text),r, DT_Wordbreak);
Nun möchte ich den Text in einer Datei speichern. Das ist kein Problem. Wenn ich die Datei öffne, soll der Text wieder per DrawText auf eine Canvas ausgeben werden und zwar mit den gleichen Zeilenumbrüchen bzw. Tabstops, wie sie ursprünglich in die Memo eingegeben wurden. Nun speicher die Datei aber den Text als einen String und gibt diesen hintereinanderweg auf die Canvas aus. Zwar mit einen Zeilenumbruch, da es ja eine Beschränkung was das Ausgaberechteck betrifft gibt, aber die Zeilenumbrüche, die ursprünglich da waren werden ignoriert.
Kann mir bitte jemand ein Beispiel posten, bei dem der Text in eine Datei gespeichert und aus der Datei inklusive Zeilenumbrüche wieder ausgelesen werden kann?
MfG
hansklok