T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert

Herbert Paukert: Textverarbeitung in DELPHI 19
procedure KompressLines(RE: TRichEdit; B: Boolean);
// Entfernt alle mehrfachen Leerzeilen aus dem Text,
// bei B = TRUE werden auch alle mehrfachen Blanks entfernt
var N,I : Integer;
S: String;
begin
with RE do begin
N := Lines.Count-1;
I := -1;
repeat
I := I + 1;
if (Trim(Lines[I]) = '') and (Trim(Lines[I+1]) = '') then begin
Lines.Delete(I);
I := I-1;
N := N-1;
end;
until I > N;
if B then begin
N := Lines.Count-1;
For I := 0 to N do begin
S := Trim(Lines[I]);
if (S '') then S := RemoveMultipleChar(S,#32);
Lines[I] := S;
end;
end;
end;
end;
procedure EOLAppend(var RE: TRichEdit);
// An jede Zeile ein anfügen
const EOL : String = #13#10;
var I,K,N,ANZ : Integer;
begin
with RE do begin
SelStart := Length(Text);
SelText := EOL;
N := Length(Text);
K := 0; I := 0;
repeat
SelStart := I;
if (CaretPos.X = 0) and (CaretPos.Y 0) then begin
K := K + 1;
end;
I := I + 1;
until I >= N;
ANZ := K;
K := 0; I := 0;
repeat
SelStart := I;
if (CaretPos.X = 0) and (CaretPos.Y 0) then begin
K := K + 1;
SelText := EOL;
I := I + 2;
end;
I := I + 1;
until K >= ANZ;
end;
end;