Ausgabe eines Blobfeldes auf den Drucker

[khh]

Hallo zusammen,
ich habe in einer DB ein Blobfeld, welches schön mittels dbmemo gefüllt wird.
Die Zeilenumbrüche sind an der richtigen Stelle, so wie sie im Memo eingegeben werden.

ich lese diese memo zur Druckausgabe in einen string und übergebe diesen an stringlist.text

In einer Schleife ( for i := 0 to sl.Count-1 do )
wird der Inhalt per Printer.Canvas.TextOut....
auf den Drucker ausgegeben. Dabei natürlich die Druckposition hochgezählt.
Irgendwie steh ich aber mal wieder auf dem Schlauch.
Wie krieg ich das hin, dass die Zeilenumbrüche berücksichtigt werden?
Das sollte doch viel einfacher gehen, oder ?

Gruss KHH

[p80286]

Gehen wir davon aus, daß die Zeilenumbrüche CRLF sind, dann solltest Du dies Aufteilung mit Stringliste[i] zurück erhalten.

Wenn der Ausdruck nicht so aussieht wie Du ihn erwartest, bräuchten wir noch ein paar Details.

Gruß
K-H

[khh]

Das Eigenartige ist folgendes :
in den ersten beiden Zeilen habe ich am Ende #10#13#10
hier funktioniert der Zeilenumbruch, obwohl hier ja wohl ein #10 zu viel ist.
Auch die Stringliste ist hier korrekt.


danach habe ich #13#10#10#10 als "Zeilenumbruch" , wohl die Ursache des Fehlers

Aber woher kommen diese seltsamen Werte?

[p80286]

Ich kenne als Verursacher, word und Wordpad aber es gibt da bestimmt noch ein paar andere.

ersetz doch jedes alleine stehendes #10 durch #13#10 und fertig.

Delphi-Quellcode:

for i:=length(mytext) down to 1 do
  if mytext[i]=#10 then
    if (i>1) and (mytext[i-1]<>#13) then 
      insert(#13,mytext,i)
    else 
      if i=1 then 
        insert(#13,mytext,i) ;

Nich soo der Bringer aber wohl schneller als Ansireplace...

Gruß
K-H

[khh]

ich danke dir

[himitsu]

Delphi-Quellcode:

with TStringList.Create do
  try
    Text := mytext;
    mytext := Text;
  finally
    Free;
  end;

Aber da du es doch schon in der SL hattest, dann sind dieser die reingegebenen Zeilenumbrüche egal und in den mytext.String[i] , bzw. mytext[i] sind keine mehr enthalten.
(es kommt aber auch darauf an, wie man die StringList befüllt)