Platzhalter für Strings?

[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;