Leere Zeilen im Memo löschen

Sprache: Deutsch
Programmiersprache: Delphi
Veröffentlicht von: pumi
Letzte Änderung: 16.05.2006
Aufrufe: 1652

Beschreibung

Mit dieser Routine kann man leere Zeilen aus einem
Memo entfernen.

Code

Zeilennummern anzeigen

1 procedure DelMemoBlankLines(aMemo: TMemo); 2 var s: string; 3 var p: integer; 4 begin 5 s := aMemo.text; 6 repeat 7 p := pos(#13#10#13#10, s); 8 system.delete(s, p, 2); 9 until p = 0; 10 amemo.text := s; 11 end;

Ein Kommentar

Hallo,
Code ist sehr gut und brauchbar.
Danke.

Montag, 1. Januar 2007 18:30:36 von Manfred

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *