Wenn Name in Textdatei dann Meldung

[Die Muhkuh]

Schon wieder ich mit meinen Text-Dateien :mrgreen:

Folgender Code:

Delphi-Quellcode:

if Users.Find(Username,Users.IndexOf(Username)) then
    begin
      Showmessage('Sorry, aber dein Benutzer name existiert schon!');
    end;

Dann kommt beim Compilieren folgende Meldung

Zitat:

Zitat von Diese sch*** Meldung

[Fehler] Main1.pas(46): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Wie man vielleicht sieht will ich das wenn man einen Usernamen eingegibt der schon vorhanden ist dann soll eine Nachricht angezeigt werden! Das machst aber net, wegen der Meldung! Was nu?

[Sharky]

Hmmm... in der Onlinehilfe steht das der zweite Parameter der Methode Find eine Variable sein muss.
Ausserdem ist zu beachten das Find nur in sortierten Stringlisten verwendet werden kann.
Alternativ kann ja mit Users.IndexOf (Username) = -1 die Prüfung durchgeführt werden.

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