Eingabe Zeichen für Zeichen auswerten

[ichbins]

@Rochus: Stimmt nicht ganz. Benutzereingabe: 'TEXT000000' konstante: 'TEXT' -> gleich

Delphi-Quellcode:

const
  MeineKonstante = 'IrgendeinText'
var
  i: Integer;
begin
  if length(meinekonstante)<length(strbenutzereingabe) then
    ShowMessage('Die Benutzereingabe ist länger als die Konstante');
  for i:=0 to Length(strBenutzerEingabe)-1 do 
    if i>(Length(MeineKonstante)-1) then begin
      ShowMessage('Die Benutzereingabe ist kürzer als die Konstante');
      break;     //abbrechen wenn ein fehler gekommen ist
    end 
    else
      if strBenutzerEingabe[i] <> MeineKonstante[i] then begin
        ShowMessage('Die Stelle ' + IntToStr(i) + ' unterscheidet sich');
        Exit;
      end;     
end;

außerdem kannst du ein paar begin/end dinger weglassen