bei String, Array, und Records suchen

[DeddyH]

Ein paar Ratschläge: schmeiß die globalen Variablen weg, ebenso das Array. Statt des Arrays würde ich Dir, da Du ja laut Profil D2010 verwendest, zu einer generischen Liste raten, die wächst und schrumpft dynamisch. Dann würde ich den Vergleich nicht mit Uppercase machen, sondern mit AnsiSameText für den Benutzernamen und AnsiSameString für das Kennwort, da bei Letzterem ja wohl Groß- und Kleinschreibung schon eine Rolle spielen sollten. Und wieso benutzt Du nicht die vordefinierten sprechenden Konstanten, die machen den Code doch viel besser lesbar, und das ganz ohne Kommentare? Passend dazu solltest Du Deine Komponenten auch mal sprechend benennen, oder schaust Du jedesmal nach, welchen Sinn Edit465 hat?

[mkinzler]

Oder noch besser mit regulären Ausdrücken arbeiten, so kann man eine Ähnlichkeitssuche anstatt einer Such nach exakten Gliechheit durchführen.

[Dennis_Wolfram]

Ok??? Leider hab ich von generischen Liste oder der Ähnlichkeitssuche gehört. Werd mal das DP durchsuchen .Könntet ihr das mal an einem Beispiel erklären? Ich kann das nicht für mich umsetzten. Danke auch dafür LG Dennis

[Bjoerk]

Wie wär‘s mit einer From3.DatenBasis.IndexOf(const User, Passwort: string): integer; ?

Besser, ein Klasse TBenutzerClass, die Zufriff auf die Datenbasis hat und über eine solche Methode verfügt.

[Dennis_Wolfram]

Leider bin ich jetzt TOTAL überfodert.. hab mal das DP durch gesucht, aber nix verständliches gefunden. Hat mal jemand zufällig ne Anleitung für Dummies ?
Danke Dennis

[DeddyH]

Ehrlich gesagt verstehe ich im Moment auch nicht, wie uns hier eine Ähnlichkeitssuche weiterhelfen sollte. Entweder Benutzername und Passwort sind korrekt oder eben nicht, man kann ja nicht "so ähnlich" eingeloggt werden. Zur Liste:

Delphi-Quellcode:

uses ..., Generics.Collections;

type
  TPerson = record
    Name,
    Passwort: ShortString;
  end;

  TPersonenListe = TList<TPerson>; //generische Liste mit TPerson-Elementen

  TForm1 = class(TForm)
    ...
  private
    { Private-Deklarationen }
    FPersonen: TPersonenListe;
    function PersonInList(const AName, APW: ShortString): Boolean;
    ...
  end;

...

procedure TForm1.FormCreate(Sender: TObject);
var
  Person: TPerson;
begin
  //Erzeugen der Liste
  FPersonen := TPersonenListe.Create;
  //Einfügen von 3 Personen (testhalber)
  Person.Name := 'Heinz';
  Person.Passwort := '123';
  FPersonen.Add(Person);
  Person.Name := 'Hans';
  Person.Passwort := '234';
  FPersonen.Add(Person);
  Person.Name := 'Adalbert';
  Person.Passwort := 'Rubbeldikatz';
  FPersonen.Add(Person);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //Liste wieder freigeben
  FPersonen.Free;
end;

(* Ermitteln, ob eine Person mit der angegebenen Namens-Passwort-Kombination 
   vorhanden ist. Beim Namen wird case-insensitive verglichen, beim Passwort nicht. *)
function TForm1.PersonInList(const AName, APW: ShortString): Boolean;
var
  Person: TPerson;
begin
  Result := false;
  for Person in FPersonen do
    begin
      Result := AnsiSameText(string(Person.Name), string(AName))
        and AnsiSameStr(string(Person.Passwort), string(APW));
      if Result then
        break;
    end;
end;

Hilft Dir das erstmal weiter?

[Dennis_Wolfram]

Ich stell mich heute wieder an - ich weiß aber wie soll ich dann diese Funktion über eine Procedur aufrufen können(Button1Click)??? Weil so wird Sie ja sonst nicht beim Ausführen verwendet. LG Dennis

[DeddyH]

Na, wie jede "normale" Funktion auch:

Delphi-Quellcode:

aName := edtName.Text;
aPasswort := edtPasswort.Text;
if PersonInList(aName, aPasswort) then
  LoggedIn := true
else
  MessageBox(Handle, 'Benutzer unbekannt oder falsches Passwort', 'Fehler beim Login', MB_OK or MB_ICONERROR);