Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#7

Re: Durchsuchen von Dateien

  Alt 2. Jun 2009, 12:09
Hallo Johannes,

zum einen ist das Vorgehen was Markus aufgezeigt hat sehr empfehlenswert, zum anderen kannst Du eine Text-Datei auch so auslesen

Delphi-Quellcode:
var
  datei : text;
  satz : string;
  buffer : array [0..4095] of byte;

.....

assignfile(datei,'C:\temp\pw_file.txt');
settextbuf(buffer);
reset(datei);
repeat
  readln(datei,satz); //hier wird jede Zeile einzeln gelesen
  // bearbeite Satz
until eof(datei);
closefile(datei);
Und mit TInifile kannst Du problemlos Wertepärchen wie
PASSWORT = MeinPasswort
lesen und schreiben. Dann bleibt Dir die Arbeit mit Pos und Copy erspart.

Gruß
K-H
  Mit Zitat antworten Zitat