Eingabe Zeichen für Zeichen auswerten

[rochus]

Delphi-Quellcode:

const
  MeineKonstante = 'IrgendeinText'
var
  i: Integer;
begin
  for i:=0 to Length(strBenutzerEingabe)-1 do begin
    if i>(Length(MeineKonstante)-1) then
    begin
      ShowMessage('Die Benutzereingabe ist kürzer als die Konstante');
    end
    else 
      if strBenutzerEingabe[i] <> MeineKonstante[i] then begin
        ShowMessage('Die Stelle ' + IntToStr(i) + ' unterscheidet sich');
        Exit;
      end;      
  end;
end;