Wenn Name in Textdatei dann Meldung

[Die Muhkuh]

Hi,


so geht's.

Delphi-Quellcode:

try
    Users.LoadFromFile('Users.txt');
    Users.Sort;
    if Users.IndexOf(Username) <> -1 then
    begin
      Showmessage('Sorry, aber dein Benutzer name existiert schon!');
    end
    else
    begin
      Users.Add(User.text);
    end;
    Users.SaveToFile('Users.txt');
  except
    Showmessage('Sorry aber du kannst dich nicht einloggen');
  end;