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

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

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?

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.

markieren

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

ich danke dir

markieren

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)