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

Herbert Paukert: Textverarbeitung in DELPHI 24
else begin
P := SelStart;
P0 := SelStart;
AllFlag := False;
end;
ANZ := SelLength;
NUM := 1;
if Not AllFlag then begin
CopyToClipboard;
RE2.Clear;
RE2.Font := REF ;
RE2.DefAttributes := REA;
RE2.Lines.Add(Blank);
T := K + IntToStr(NUM) + '>';
if NumFlag then RE2.Lines.Add(T);
For i := 1 to TopMargin do RE2.Lines.Add(Blank);
RE2.PasteFromClipboard;
InsertTab(RE2,LeftMargin);
RE2.Print('');
Clipboard.Clear;
RE2.ReadOnly := True;
Exit;
end;
PANZ := SearchAllText(RE1,SEP);
repeat
RES := ANZ - P;
P := FindText(SEP,P,ANZ,[]);
if (P -1) or (NUM = 1) then begin
N := P - 1 - P0;
SelLength := N;
CopyToClipboard;
RE2.Clear;
RE2.Font := REF ;
RE2.DefAttributes := REA;
RE2.Lines.Add(Blank);
T := K + IntToStr(NUM) + '>';
if NumFlag then RE2.Lines.Add(T);
For i := 1 to TopMargin do RE2.Lines.Add(Blank);
RE2.PasteFromClipboard;
P := P + LEN;
P0 := P;
SelStart := P;
NUM := NUM + 1;
InsertTab(RE2,LeftMargin);
RE2.Print('');
end;
until (P = -1);
if PANZ > 0 then begin
SelStart := P0;
SelLength := RES;
CopyToClipboard;
RE2.Clear;
RE2.Font := REF ;
RE2.DefAttributes := REA;
RE2.Lines.Add(Blank);
T := K + IntToStr(NUM) + '>';
if NumFlag then RE2.Lines.Add(T);