String untersuchen...

[Praktikant]

Folgendes Problem:
Ein vom User eingegebener String (via editfeld) soll darauf untersucht werden, ob ein zweiter eingegebener String (editfeld) mehr als drei aufeinander folgender Zeichen gleich hat.
Bsp: edit1:='langerName'
edit2:='german'

In diesem Fall müsste das Programm anspringen, da in edit1 u. edit2 die zeichenfolge 'ger' verwendet wurde.

Habe es mal so gemacht, allerdings funktioniert das nur solange wie mein edit2 text kürzer als edit1 text ist.

Delphi-Quellcode:

//Nicht drei aufeinander folgende Zeichen aus dem Benutzernamen
StrBenutzer:=...;
if Pos(newstring, StrBenutzer) > 0 then 
  //Suchen in Benutzername nach erstem gleichen eingegebenem Zeichen aus Kennwort(newstring)
if AnsiCompareText(TableBenutzerBenutzer.Text, StrBenutzer) <= 0 then  //Wenn weitere identisch ungültiges Passwort
begin
  messagedlg('Aufeinander folgende Zeichen aus Benutzername sind nicht erlaubt.', mtInformation, [mbOk],0);
ClickedOK:=False;
end;