Memo-Feld mit Zeilenumbruch auslesen

[WIng2005]

Hallo Gemeinde,

ich muss auf eine DB (Postgresql) zugreifen und die dort abgelegten Daten in ein Memo schreiben.
Das Datenfeld, welches hier ein paar Probleme bereitet ist vom Typ Memo und beinhaltet mehrer Zeilen.
Wie kann ich realisieren, dass die enthaltenen Zeilenumbrüche auch im Zielmemo eingefügt werden?
Derzeit werden die Zeilenumbrüche aus '|' angezeigt. Der Zugriff auf die DB erfolgt mittels der Zeos-Komonenten.


MFG
Steffen

[taaktaak]

Moin, Moin,
hab' von Datenbanken keine Ahnung, aber wenn du statt #13#10 ein | erhältst, dann wäre es einen Versuch wert, dieses Zeichen vor der Ablage in der Zieldatenbank einfach wieder durch CRLF zu ersetzen...

[mschaefer]

  Memo.lines.text := StringReplace(Dataset.fieldbyname('Feldname des DBMemos'.AsText, '|', #10#13,[rfReplaceAll]);
taaktaak hat schon recht mit dem Ersetzten. Offensichtlich wird kein volles CR/LF aus der DB gelesen. Wo das allerdings hakt ist mir momentan nicht klar.

Grüße // Martin


PS: Mir ist gerade die Funkmaus abgestürtzt ...

[taaktaak]

huhuhuhu, ich hab' nix gesagt

[mschaefer]

Klar hast Du! 8)

[WIng2005]

...stimmt, habs auch gehört....

@mschaefer: Vielen Dank...hat mir sehr geholfen.

MFG
Steffen

[WIng2005]

Ein Problem habe ich aber trotzdem noch:

Die Daten des Memos sind Prüfergebnisse. Dummerweise enthalten diese auch Sonderzeichen (ungewollt, aber noch nicht behoben).
Diese versuche ich mit Stringreplace zu ersetzen. Funktioniert jedoch nur bei einem der beiden Sonderzeichen. Hier mal
ein wenig Code:

Delphi-Quellcode:

.
.
.
/////////////////////////////////////////////////////////  Ausschnitt!!
while not zquery2.Eof do
    Begin
      bcs.JvMemo1.Lines.Text:=bcs.JvMemo1.Lines.Text
       + str_rep(zquery2.fieldbyname('user_data1').AsString);
      zquery2.next;
    end;
.
.
.
/////////////////////////////////////////////////////////

function str_rep(s:string):string;
Begin
result:=StringReplace(s,'','',[rfReplaceAll]);
result:=StringReplace(s,'€','',[rfReplaceAll]);
end;

Wie gesagt, es funktioniert nur beim '€'.

MFG
Steffen

[Nuclear-Ping]

Das andere ist glaube ein Steuerzeichen was für alles mögliche genommen wird, was nicht dargestellt werden kann. Am besten du findest raus, was für ein ASCII-Code sich dahinter verbirgt und suchst danach, statt nach dem Zeichen direkt.

[WIng2005]

Habe ich schon probiert. Dummerweise taucht das Zeichen gleich mehrfach auf -> http://www.torsten-horn.de/techdocs/ascii.htm
Habe via

result:=StringReplace(s,chr(129),'',[rfReplaceAll]);

alle Möglichkeiten durch. Bringt nix.
Wie könne ich denn den ASCII-Code des Zeichens mal per Messagebox ausgeben?

MFG
Steffen

[Nuclear-Ping]

Chr (129) ist aber = ü

Wenn du die Möglichkeit hast, den Text als Hex darzustellen, mach es.

[edit]

Zitat von WIng2005:

Wie könne ich denn den ASCII-Code des Zeichens mal per Messagebox ausgeben?

Als Hex / Byte dumpen. Also einen leeren String hernehmen und in 'ner Schleife deinen Text durchgehen und mit IntToHex (Byte (MemoText[i]), 2) + ', ' verknüpfen.
[/edit]