Hallo und Willkommen in den Heiligen Hallen des Wissens und des Wahnsinns
Schau doch als erstes einmal in die Hilfe zu
ContainsText(..)
:
http://docwiki.embarcadero.com/Libra...s.ContainsText
Zitat:
Führt eine Suche ohne Berücksichtigung der Groß-/Kleinschreibung nach dem Substring ASubText im String AText durch. Gibt true zurück, wenn ein oder mehrere Vorkommen von ASubText in AText enthalten sind.
Die Funktion sagt dir nur "Ja" oder "Nein" ob ein Text in einem anderen vorkommt. Das hilft dir nicht wirklich weiter. Was du brauchst ist ein … Achtung …
https://de.wikipedia.org/wiki/String-Matching-Algorithmus
Bewährt haben sich hier die
regulären Ausdrücke. Das ist in Delphi alles schon fertig drin.
Die Ultra-Kurzform sähe so aus:
Delphi-Quellcode:
uses System.RegularExpressions;
function passtAufMeinMuster(const input: String): Boolean;
const
pattern = '\d{4}-\d{2}-\d{2}\s\d{3}\s\d{3}';
begin
Result := TRegex.IsMatch(input, pattern);
end;
Wahrscheinlich willst du aber noch mehr. Beispielsweise alle solche Muster in deinem Text finden und die Zahlen hinter dem Datum (deine XXX XXX) herauslesen und ausgeben, oder?
Ich denke mal du kanntest reguläre Ausdrücke noch nicht. Experimentier mal ein bisschen damit herum, da kann man wirklich schon eine Menge mit anstellen.
Ganz gut im Browser spielen kann man auch unter
https://regexr.com/
oder
https://regex101.com/