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

Herbert Paukert: Textverarbeitung in DELPHI 17
For I := 0 to Y-2 do begin
if RE.Lines[I] = '' then J := 2
else J := Length(RE.Lines[I]) + 2;
N := N + J;
end;
N := N + X - 1;
RE.SelStart := N;
RE.SelLength := 0;
SendMessage(RE.Handle,EM_SCROLLCARET,0,0);
end;
function SearchFirst(S,A: String; Start,Flag: Integer): Integer;
// sucht im Text S den Suchstring A und liefert die
// Position der ersten Fundstelle ab Startposition.
// Case-Insensitiv: Flag = 0, Case-Sensitiv: Flag = 1
var P : Integer;
begin
S := Copy(S,Start+1,Length(S));
if Flag = 0 then begin
S := UpperCase(S);
A := UpperCase(A);
end;
P := Pos(A,S);
if P = 0 then Result := 0
else Result := Start + p;
end;
function ReplaceAllText(RE: TRichEdit; A,B: String; Flag: Integer): Integer;
// String A in Text S suchen und durch Text B ersetzen
// und die Anzahl N der Ersetzungen liefern
var S : String;
P,N : Integer;
begin
N := 0;
P := 0;
repeat
S := RE.Text;
P := SearchFirst(S,A,P,Flag);
if P > 0 then begin
N := N + 1;
RE.SelStart := P - 1;
RE.SelLength := Length(A);
RE.SelText := B;
P := P + Length(B);
end;
until (P = 0);
Result := N;
end;
procedure PrintMemo(M: TMemo);
// Memotext ausdrucken
const LR = ' ';
FF = '.';
var S : String;
N : Integer;
Datei: TextFile;