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

Herbert Paukert: Textverarbeitung in DELPHI 3
Die gestellte Aufgabe wird dadurch gelöst, dass man den Quellstring S schrittweise durchläuft und
jedes seiner Zeichen mit dem Zeichen C vergleicht. Fällt der Vergleich wahr aus und stimmt im
Quellstring das nachfolgende Zeichen auch mit C überein, dann muss es gelöscht werden. Dazu
wird die Routine DELETE verwendet. Das Stringende wird mit einem Spezialzeichen markiert.
function RemoveMultipleChar(S: String; C: Char): String;
{ Entfernt mehrfache Zeichen C aus einem String S }
const Marker : Char = #1;
var I : Integer;
begin
S := S + Marker;
I := 0;
repeat
I := I + 1;
if (S[I] = C) and (S[I+1] = S[I]) then begin
Delete(S,I,1);
I := I - 1;
end;
until S[I] = Marker;
Result := Copy(S,1,Length(S)-1);
end;
[03] Suchen von Texten
Ein Quelltext S soll erstens auf das Vorkommen eines Suchstrings A ab der Startposition Start
durchsucht und die Position P der Fundstelle ermittelt werden. Der Parameter Flag gibt an, ob die
Suche unabhängig von Groß-/Kleinschrift (Case-insensitiv, Flag = 0) oder davon abhängig (Casesensitiv,
Flag = 1) erfolgen soll. Die entsprechende Position P liefert die Systemroutine POS.
Wenn dabei 0 herauskommt, dann wurde nichts gefunden.
In der zweiten Routine wird die Anzahl der Fundstellen des Suchstrings A im ganzen Quelltext S
ermittelt. Dabei wird in einer Wiederholungsschleife der Quelltext S so lange durchlaufen, bis der
Suchstring A nicht mehr gefunden wird.
function SearchFirst(S,A: String; Start,Flag: Integer): Integer;
{ Sucht im Text S den Suchstring A ab Start und liefert die Fundposition }
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 SearchAll(S,A: String; Flag: Integer): Integer;
{ String A im ganzen Text S suchen und die Anzahl der Fundstellen liefern }
var P,N: Integer;
begin
P := 0;
N := 0;
repeat
P := SearchFirst(S,A,P,Flag);
if (P > 0) then begin
N := N + 1;
P := P + Length(A);
end;
until (P = 0);
Result := N;
end;