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

Herbert Paukert: Textverarbeitung in DELPHI 20
procedure TextFlow(RE: TRichEdit);
// Erzeugt einen Fließtext
const EOL: String = #13#10;
var S,T: String;
N : Integer;
begin
with RE do begin
S := EOL;
T := '~';
RE.SelStart := 0;
N := ReplaceAllText(RE,S,T,0);
S := EOL;
T := '';
RE.SelStart := 0;
N := ReplaceAllText(RE,S,T,0);
S := '~~';
T := EOL+EOL;
RE.SelStart := 0;
N := ReplaceAllText(RE,S,T,0);
S := '~';
T := ' ';
RE.SelStart := 0;
N := ReplaceAllText(RE,S,T,0);
end;
end;
procedure ExtractValues(S,SEP: String; var ZF: ZFeld);
// CSV-Liste aus einen String S extrahieren und in das Array ZF speichern
// Die Anzahl der extrahierten Dezimalzahlen steht dann in ZF[0]
var T : String;
Z : Real;
N,P,Code : Integer;
Error : Boolean;
begin
if S[Length(S)] SEP then S := S + SEP;
Error := False;
N := 0;
Repeat
P := Pos(SEP,S);
if P > 0 then begin
N := N + 1;
T := Trim(Copy(S,1,P-1));
Val(T,Z,Code);
ZF[N] := Z;
if Code 0 then Error := TRUE;
S := Copy(S,P+1,Length(S));
end;
Until P = 0;
if Error then ZF[0] := 0 else ZF[0] := N;
end;