Delphi-Quellcode:
LF : Result := 'LF';
CR : Result := 'CR';
Wie
drüben schon gesagt wurde ... nimm diese Zeichen (CR&LF) aus deiner GibZeichen-Funktion raus.
Entweder je
Result := C;
oder
if (C >= ZeichenBlank) or (C = CR) or (C = LF) then
Wozu ein neuer Thread?
Und ändere bitte den Threadtitel ... "Fragen zu Memo feld" ist kein aussagekräfitger Titel, welcher das Problem kurz umschreibt
(dazu einfach den 1. Beitrag editieren)
PS: Delphi wertet CR+LF gemeinsam aus und wandelt diese um ... also nicht jedes Zeichen einzaln an Memo/Edit.Text übergeben, sondern erst in einen Temp-String und dann alles zusammen.