Zeilenumbrüche ins CSV-Format schreiben

[Hansa]

Das mit dem OnDrawCell ist keine gute Idee. Wie der Name "Draw" schon aussagt, da geht es lediglich um die Anzeige. Nach dem Motte "mache mir ein X für ein U". Man kann das also schon verwenden, um den Zelleninhalt X als U darzustellen. Glaube aber kaum, dass das was nützt. Der Zelleninhalt ist immer noch X ! Wie werden denn die Zellen konkret bestückt ? Das ist die Stelle, an der man ansetzen müsste. Zeilenumbruch-Zeichen auswerten, wie bereits gesagt. Also diese (siehe Link) in #10#13 zurück umwandeln.

[alzaimar]

Delphi-Quellcode:

Const
  cEscape = '\';
  cHexDigits = '0123456789ABCDEF';

Function EncodeNonPrintable(Const aString: String): String;
// Konvertiert alle Zeichen < #32 (sowie '\' selbst) in '\xx', wobei xx = Hex (c)
Var
  c, i, n: Integer;

  Procedure _AddChar(aChar: Char);
  Begin
    Inc(n);
    Result[n] := aChar;
  End;

Begin
 // Schlimmstenfalls müssen alle Zeichen konvertiert werden
  SetLength(Result, 3 * Length(aString));
  n := 0;
  For i := 1 To Length(aString) Do
    If (aString[i] = cEscape) Or (aString[i] < #32) Then Begin
      c := Ord(aString[i]);                  // '\xx' anhängen
      _AddChar(cEscape);
      _AddChar(cHexDigits[1 + c Shr $4]);    // Hex-Code
      _AddChar(cHexDigits[1 + c And $F]);
    End
    Else                                     // Sonst das Zeichen anhängen
      _AddChar(aString[i]);

  SetLength(Result, n);                      // Finale Länge setzen
End;

Function DecodeNonPrintable(Const aString: String): String;
// Konvertiert alle '\xx' in einem Text zurück in c, wobei c = Char ($xx)
// Achtung! Es findet keine explizite Fehlerbehandlung statt.
Var
  i, n, l: Integer;
  c: Char;

Begin
  l := Length(aString);
// Das Resultat kann nicht länger als der Ausgangsstring sein
  SetLength(Result, l);                     
  n := 0;
  i := 0;
  While i < l Do Begin
    inc(i);
    If aString[i] = cEscape Then Begin       // Wenn nächstes Zeichen ein '\' 
      c := Char(StrToInt('$' + Copy(aString, i + 1, 2)));  // Hex -> Char
      inc(i, 2);
    End
    Else
      c := aString[i];                      // Ansonsten Zeichen kopieren  
    inc(n);
    Result[n] := c;
  End;

  SetLength(Result, n);                      // Finale Länge setzen
End;

EncodeNonPrintable konvertiert die Sonderzeichen in '\xx', DecodeNonPrintable konvertiert sie wieder zurück.

[Sko]

Ich weis nicht ob ich jetzt irgendwas wichtiges übersehen habe, aber könnte man das nicht einfach mit StringReplace machen?

[alzaimar]

Könnte man: 31 mal. Aber dann ist es auch 30 mal langsamer (vorausgesetzt, o.g. Funktionen sind optimiert)

Derzeit möchte er eigentlich nur #10 und #13 konvertieren, aber wenn im String doch mal andere Zeichen vorkommen, wird's eng. Dann lieber so eine allgemeingültige Funktion und man hat seine Ruhe.

[capo]

Hallo alzaimar,
danke für dein beispiel.
ich habe aber ehlich gesagt nicht ganz verstanden wie ich das für mich verwenden kann.

DecodeNonPrintable(Form1.StringGrid1.Cells[1, Form1.StringGrid1.Row]); irgendwie passiert damit aber auch nichts.

Zitat:

Selbst dann wird das "andere Zeichen" doch im Stringgrid angezeigt, oder verstehe ich was falsch?
Gruss Capo

das trennzeichen soll zwar nicht im stringgrid angzeigt werden aber... beim klick auf eine zeile im stringgrid muss der trennwert im string enthalten sein.

gruss capo

[alzaimar]

Na ja, das ist eine Funktion, die liefert einen Wert.

Du rufst Die Funktionen beim Speichern bzw. Laden des Inhaltes auf.

[capo]

Zitat:

das trennzeichen soll zwar nicht im stringgrid angzeigt werden aber... beim klick auf eine zeile im stringgrid muss der trennwert im string enthalten sein.

schon klar und was ist damit?