DELPHI 05 Sortier- und Suchalgorithmen © Herbert Paukert

Herbert Paukert: Programmieren in DELPHI – Grundkurs, Teil 5 104
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
Systemroutine DELETE verwendet. Die Stringlänge wird mit der Systemroutine LENGTH abgefragt.
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;
end;
[6.02] Suchen von Textteilen
Ein Quellstring S soll auf das Vorkommen eines Suchstrings A durchsucht werden und die Anzahl der
Fundstellen soll ermittelt werden. Dazu muss zuerst im Quellstring S das erste Vorkommen des Suchstrings
A gesucht werden. Die entsprechende Position liefert die Systemroutine POS. Dann wird an
dieser Position im Quellstring S der Suchstring A gelöscht. Dieses Verfahren wird in einer Schleife so
lange wiederholt, bis der Suchstring im Quellstring nicht mehr vorkommt. Bei jeder Fundstelle wird
ein Zähler um Eins erhöht. Die Suche soll unabhängig von Großschrift und Kleinschrift erfolgen
(case-insensitiv). Das Ganze erfolgt natürlich nicht mit den originalen Zeichenketten S, A sondern mit
lokalen Kopien S1, A1 davon.
function SearchString(var S: String; A: String): Integer;
{ Sucht im Text S den Suchstring A und liefert die Anzahl der Fundstellen. }
var S1,A1 : String;
L,P,N : Integer;
begin
S1 := UpperCase(S);
A1 := UpperCase(A);
L := Length(A1);
N := 0;
repeat
P := Pos(A1,S1);
if (P > 0) then begin
N := N + 1;
Delete(S1,P,L);
end;
until (P = 0);
Result := N;
end;
[6.03] Suchen und Ersetzen
Ein Quellstring S soll auf das Vorkommen eines Suchstrings A durchsucht und dieser an allen Fundstellen
durch den Ersatzstring B ersetzt werden. Zusätzlich wird die Anzahl der Fundstellen ermittelt.
Suchen und Ersetzen soll unabhängig von Groß- oder Kleinschrift erfolgen (case-insensitiv). Ein
Problem kann sich dann ergeben, wenn der Suchstring A ein Teil des Ersatzstrings B ist.