Einzelnen Beitrag anzeigen

Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
 
Delphi XE8 Professional
 
#6

Re: Durchsuchen von Dateien

  Alt 2. Jun 2009, 10:58
Hallo.
ich weiß zwar nicht genau, wofür Dein Passwort benutzt werden soll
(Stichwort Sicherheit ?)
Um mehrere Möglichkeiten der Verarbeitung zu haben, benutze doch folgendes:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
PasswordList : TStringList;
i, n, l :Integer;
begin
PasswordList := TStringList.Create; // StringList erzeugen
PasswordList.LoadFromFile('[dateiname]'); // datei in StringList laden
if Copy(PasswordList[i], n, l) = 'dein Passwortthen // Passwort-Abfrage
 begin
  // wenn dein Passwort übereinstimmt, dann .....
 end;
PasswordList.Free; // StringList wieder freigeben
end;
i ist die Position deines Passwortes, z.B. i := 5; Dein Passwort ist in der 6. Zeile
n ist die Anfangsposition deines Passwortes, z.B. n := 10; Dein Passwort beginnt ab Zeichen 10
l ist die Länge deines Passwortes
die obige Prozedur setzt voraus, dass dein Passwort in einem zumindest einzeiligen Text
gespeichert ist und an Position n mit einer Länge l vorhanden ist.
zu beachten :
Die Eigenschaft Count der StringList beginnt bei 0
Die Position im String beginnt bei 1

Wenn Sicherheit überhaupt keine Rolle spielt, ist TIniFile 'ne sehr gute Möglichkeit
da Du über die Eigenschaften [Section]und den Bezeichner in der Section explizit auf
Dein Passwort zugreifen kannst.
Markus H.
  Mit Zitat antworten Zitat