Platzhalter für Strings?

[Bastler]

Hallo zusammen;

Ich haben einen String, den ich inhaltlich durchsuchen will. Dabei soll er mir die Teilworter sozusagen ausgeben.

z.B.:

Zitat:

String: "Übermorgen ist Freitag"

Und ich habe ein Array, in dem

Zitat:

[('Tag');('Morgen');(...)]

steht.

Die Prozedure soll mir ausgeben, wieviele und welche Elemente des Arrays in dem String vorhanden sind; dabei soll weder Groß-/Kleinschreibung beachtet werden, noch ob das Wort allein oder als Teil eines zusammengesetzten Substantives vorhanden ist.

Habt ihr Vorschläge/Ideen?

:gruebel: Ich leider momentan nicht... :?

mfg Bastler

[sirius]

Pseudocode:

Delphi-Quellcode:

versuchstring='Übermorgen...';
stringarray=['Tag'...;


for i:=low(srtingarray) to high(stringarray) do begin
  teststring:=lowercase(versuchstring);
  tmp:=lowercase(stringarray[i1]);
  while pos(tmp,teststring)>0 do begin
    inc(zaehlarray[i]);
    delete(teststring,1,pos(tmp,teststring)+length(tmp)-1);
  end;
end;

[leddl]

Zitat:

Zitat von sirius

Pseudocode:

Sehr viel Pseudocode seh ich da aber nich :stupid:

Außer den fehlenden Deklarationen und den ersten beiden Zeilen sollte er das ja 1 zu 1 übernehmen können ;)

[sirius]

Zitat:

Zitat von leddl

Sehr viel Pseudocode seh ich da aber nich :stupid:

Manchmal nimmt man sich einfach zu viel vor.
Es ist bei sowas kleinem schwerer nicht funktionierenden Code zu schreiben.
Aber Fehler sind bestimmt drin.. :zwinker:

[Bastler]

Danke, aber ich hab mich dann doch für die mir einfahcer erscheinendes Variante entschieden, die ich heute Gefunden habe... :-D

Delphi-Quellcode:

AnsiContainsText(string,wort)