Leere Zeilen im Memo löschen

Language: Deutsch
Programming Language: Delphi
Published by: pumi
Last Update: 5/16/2006
Views: 1550

Description

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

Code

Display line numbers

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;

One comment

Hallo,
Code ist sehr gut und brauchbar.
Danke.

Monday, January 01, 2007 6:30:36 PM from Manfred

Add a comment

Name *

Email (won't be displayed) *

Website

Comment *

Sicherheitscode Security Code *