> Wirklich? 
> Oder weißt du nicht, das Asc nur den Code vom ersten Zeichen liefert...

Doch, probiers aus! Ich habe Editfield.text zeichenweise per Asc() bis zum
Textende (mit mehreren Zeilenumbrüchen) ausgeben lassen:

  For i = 0 To Len(Freitext.Text)
    Freitext.SelStart = i
    Freitext.SelLength = 1
    Freitext.Refresh
    MsgBox str(Asc(Freitext.SelText))
  Next

Gemerkt hab ich's weil meine bisherige Methode, die das Zeilenende unter
Windows mit Chr(13) + Chr(10) suchte, plötzlich nicht mehr funktionierte.

Liegt das am generellen UTF8 für Steuerelemente?

Gruss
Mike


Antwort per Email an